pues eso, no se muy bien las palabras para explicarlo pero pongo aqui mas o menos lo que quiero. programo desde visual basic 6, lo que he hecho ha sido una utilidad para abrir una direccion web mediante un click en botón, esta pagina es la del router, y lo que tengo que hacer posteriormente es meterle el user y pass manualmente. yo querria que el progrma enviase estes datos solos, es decir, se autentificase el solo teniendo los datos previamente metidos en el codigo. esto lo quiero hacer por seguridad, para poder abrir el router pero sin que sepan mi pass, ya que accede a una parte de el para reiniciarlo, y aun que quieran modificar algo no le deja cambiar de dire dentro de el sin volver a meter la pass. un salu2 y agradeceria context, ya que no he visto nada por la red, ni por este foro para ese cometido, o no lo he sabido encontrar. un salu2
no no, la pagina no la he hecho yo. es decir, esde acceso directo que he puesto ahi es la dire de mi router, en donde se resetea. si lo pones en el navegados el explorer te pide el user y pass ( que he puesto yo, ejemplo admin 1234) lo escribes le das a enter y entras dentro.yo lo que he hexo, es una utilidad con visual basic que habra esta pagina, con el codigo que he puesto arriba. lo que hace es abrirla en explorer pero me pide el user y pass y tengo que meterlos a mano ypulsar enter.lo que yo pregunto es si tengo alguna forma de atomatizar esto, es decir, le doy el click abre el explorer en la pagina descrita y el solo se autentifica,es decir, el visual vasic manda los datos de user y pass, previamente configurados en el codigo. un salu2 y perdonad que no me exprese mejor. gracias
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("InternetExplorer.Application") ie.Visible = True ie.Navigate "http://192.168.1.1" 'Aki va la direccion a abrir delay 1 'Que se espere un segundo, en lo que abre la pagina SendKeys "admin", 100 'Envia el usuario y se espera 100 milisegundos SendKeys "{tab}" 'Se pasa al siguiente text SendKeys "miclave" 'Envia la clave SendKeys "{enter}" '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 > Timer DoEvents LoopEnd Sub Espero y te sirva