Ver Mensaje Individual
  #8 (permalink)  
Antiguo 15/04/2016, 08:11
aguml
 
Fecha de Ingreso: febrero-2015
Mensajes: 404
Antigüedad: 9 años, 2 meses
Puntos: 3
Respuesta: .bat para entrar en Pagina Web

Cita:
Iniciado por quake_1990 Ver Mensaje
Ok, gracias lo voy a probar, a ver si consigo automatizarlo.
Esto seria con AutoIt:
Código vb:
Ver original
  1. ;variables locales necesarias
  2. local $path = "C:\Archivos de programa\Mozilla Firefox\firefox.exe"
  3. local $url = "https://es-es.facebook.com/"
  4. local $title = "Facebook - Inicia sesión o regístrate - Mozilla Firefox"
  5. local $text = ""
  6. local $timeout = 0
  7. local $pid = ProcessExists ("firefox.exe")
  8. local $hwnd = WinActivate($title,$text)
  9.  
  10. ;Si no existe la ventana ejecuto firefox con la url deseada
  11. if not $hwnd Then Run($path & " " & $url)
  12. ;Pauso la ejecución de este script hasta que la aplicación exista
  13. WinWait($title,$text,$timeout)
  14. ;Si no está activa la pongo a ella como activa
  15. If Not WinActive($title,$text) Then WinActivate($title,$text)
  16. ;Espero a que esté activa
  17. WinWaitActive($title,$text,$timeout)
  18.  
  19. if $pid then
  20.    ;Si ya existia una instancia de firefox espero 2 segundos
  21.    Sleep(2000)
  22. else
  23.    ;Si no existia una instancia de firefox espero 20 segundos (mi ordenador es muy lento jajaja)
  24.    Sleep(20000)
  25. endif
  26. ;Envio la cadena deseada como correo al Edit del correo
  27. Send("micorreo")
  28. ;Envio una pulsacion del tabulador para pasar al siguiente Edit
  29. Send("{TAB}")
  30. ;Envio la cadena que es mi contraseña
  31. Send("mipass")
  32. ;Envio una pulsacion del tabulador para pasar al siguiente Edit
  33. Send("{TAB}")
  34. ;Envio una pulsacion de la tecla enter para pulsar el boton de registro
  35. Send("{ENTER}")
Lo malo que tiene cualquier cosa que hagas asi es que el nombre y pass son sensibles a que cualquiera que tenga acceso al ejecutable, .bat. script... pueda obtenerlos sin mucha dificultad.