En esta entrada les voy a enseñar a programar un bot en ".vbs" que se encargue de navegar a traves de una pagina web con Internet Explorer (otro no por que ie es el que admite este tipo de scripts por el echo de estar integrado a windows).
+ 
Creamos un archivo de texto,dentro,armaremos el script:
Codigo completo:
Luego usan la opcion "Guardar Como.." y guardan con un nombre seguido de ".vbs", ejemplo "minibot.vbs" y luego van a donde lo guardaron y lo ejecutan.
El bot a ser ejecutado pregunta la pagina que deseas logear,una vez introducida,el bot ejecuta internet explorer y busca la pagina,espera 6 segundos para que se cargue (si no carga en menos de 6 segundos salta error y se cierra),si cargo va a introducir las variables en las casillas correspondientes y luego presionara ENTER (esto se tiene que hacer con la ventana abierta).
Como veran no es tan complicado crearlo,pueden usarlos para varias cosas, un ejemplo de bot que haga login en facebook:
Para conseguir el nombre de un elemento hagan lo siguiente:
1)User chrome o firefox y abran la pagina (ejemplo facebook)
2)En el elemento que quieren usar (una casilla ejemplo) haganle click derecho y seleccion "Inspeccionar Elemento"
3)Fijensen que se abre una ventana alternativa que muestra la parte del codigo fuente donde se posiciona el fragmento del objeto como en la siguiente imagen:
Pueden Emplear los fragmentos y personalizarlos para hacer lo que quieran con IE.
+ Set IE = CreateObject("InternetExplorer.Application")IE.Navigate pagina //esto llama a la variable pagina para ser navegada con el comando
//Esta linea llama a Internet Explorer como aplicacion.
set WshShell = WScript.CreateObject("WScript.Shell")
//Esta linea crea la integración del script al navegador
pagina = inputbox ("PAGINA PARA LOGEAR")
//Esta linea crea la variable "pagina" igual al comando "inputbox" que se encargara de pedir la introduccion de una pagina web para definirla.
IE.Visible = True
//Declara la visibilidad de IE
Wscript.Sleep 6000
//Espera 6 segundos para que la pagina cargue y pueda interactuar
IE.Document.All.Item("userName").Value = "admin"
//Este comando inspecciona en el codigo fuente de la pagina y busca el elemento "UserName" e introduce el valor "ubnt" que seria el nombre de usuario (este elemento esta ligado a la casilla de introduccion de usuario)
IE.Document.All.Item("password").Value = "123123"
//Este comando inspecciona el codigo fuente de la pagina y busca el elemento "password" e introduce el valor "123123" que seria la contraseña. (este elemento esta ligado a la casilla de introduccion de usuario contraseña)
WshShell.AppActivate "IE"
//Activa la ventana de Internet Explorer y la trae al frente
WshShell.SendKeys "{ENTER}"
//Interactua con la ventana que activo y presiona la tecla "ENTER" para que haga login de user y password,pueden usar esto para que presione cualquier tecla
Codigo completo:
Set IE = CreateObject("InternetExplorer.Application")
set WshShell = WScript.CreateObject("WScript.Shell")
pagina = inputbox ("PAGINA PARA LOGEAR")
IE.Navigate pagina
IE.Visible = True
Wscript.Sleep 6000
IE.Document.All.Item("userName").Value = "admin"
IE.Document.All.Item("password").Value = "123123"
WshShell.AppActivate "IE"
WshShell.SendKeys "{ENTER}"
Luego usan la opcion "Guardar Como.." y guardan con un nombre seguido de ".vbs", ejemplo "minibot.vbs" y luego van a donde lo guardaron y lo ejecutan.
El bot a ser ejecutado pregunta la pagina que deseas logear,una vez introducida,el bot ejecuta internet explorer y busca la pagina,espera 6 segundos para que se cargue (si no carga en menos de 6 segundos salta error y se cierra),si cargo va a introducir las variables en las casillas correspondientes y luego presionara ENTER (esto se tiene que hacer con la ventana abierta).
Como veran no es tan complicado crearlo,pueden usarlos para varias cosas, un ejemplo de bot que haga login en facebook:
Set IE = CreateObject("InternetExplorer.Application")
set WshShell = WScript.CreateObject("WScript.Shell")
IE.Navigate https://www.facebook.com/
IE.Visible = True
Wscript.Sleep 6000
IE.Document.All.Item("email").Value = "email@hotmail.com"
IE.Document.All.Item("pass").Value = "contraseña123"
WshShell.AppActivate "IE"
WshShell.SendKeys "{ENTER}"
Para conseguir el nombre de un elemento hagan lo siguiente:
1)User chrome o firefox y abran la pagina (ejemplo facebook)
2)En el elemento que quieren usar (una casilla ejemplo) haganle click derecho y seleccion "Inspeccionar Elemento"
3)Fijensen que se abre una ventana alternativa que muestra la parte del codigo fuente donde se posiciona el fragmento del objeto como en la siguiente imagen:
 |
| Usen "id" o "name" |
Pueden Emplear los fragmentos y personalizarlos para hacer lo que quieran con IE.
Espero que les alla servido,si tienen dudas publiquen en la caja de comentarios! Saludos!!