Programación General > Visual Basic 6.0 e inferiores

 Abrir Web Autentificandote

<< < (3/3)

mamex:
Ahhh , ya se me vino a la cabeza una idea, jeje, usa sendkeys, ya lo probé y si me funcionó


--- Código: Text --- private sub abrirRouter()    Dim ie As Object    Set ie = CreateObject(&#34;InternetExplorer.Application&#34;)    ie.Visible = True    ie.Navigate &#34;http://192.168.1.1&#34;  'Aki va la direccion a abrir    delay 1   'Que se espere un segundo, en lo que abre la pagina    SendKeys &#34;admin&#34;, 100  'Envia el usuario y se espera 100 milisegundos    SendKeys &#34;{tab}&#34;     'Se pasa al siguiente text    SendKeys &#34;miclave&#34;   'Envia la clave    SendKeys &#34;{enter}&#34;   'Da un enter para accesarend sub 'Se espera un tiempo dado en segundosPublic Sub delay(s As Single)    Dim T1 As Single    T1 = Timer    Do While T1 + s &#62; Timer        DoEvents    LoopEnd Sub  
Espero y te sirva

hamdycam:

--- Cita de: "mamex" --- Ahhh , ya se me vino a la cabeza una idea, jeje, usa sendkeys, ya lo probé y si me funcionó


--- Código: Text --- private sub abrirRouter()    Dim ie As Object    Set ie = CreateObject(&#34;InternetExplorer.Application&#34;)    ie.Visible = True    ie.Navigate &#34;http://192.168.1.1&#34;  'Aki va la direccion a abrir    delay 1   'Que se espere un segundo, en lo que abre la pagina    SendKeys &#34;admin&#34;, 100  'Envia el usuario y se espera 100 milisegundos    SendKeys &#34;{tab}&#34;     'Se pasa al siguiente text    SendKeys &#34;miclave&#34;   'Envia la clave    SendKeys &#34;{enter}&#34;   'Da un enter para accesarend sub 'Se espera un tiempo dado en segundosPublic Sub delay(s As Single)    Dim T1 As Single    T1 = Timer    Do While T1 + s &#62; Timer        DoEvents    LoopEnd Sub  
Espero y te sirva
--- Fin de la cita ---
lo voy a probar y luego te cuento, un salu2 y muchas gracias amigo. salu2

hamdycam:
perfecto amigo....va de lujo, muchas gracias te estoy muy agradecido. decirte que no paraba de darle al tarro y queria hacer algo como lo que tu has puesto, pero no sabia la orden dendkeys, nunca te acostarás....

con esto solucionas mi problema y me habres orizontes a un programa para controlar los repetidores de mi red en mi barrio, una pequeña red que tengo para mis primos qeu tan tudiando y quieren inet. un salu2

Navegación

[0] Índice de Mensajes

[*] Página Anterior