VBScript para lanzar un sitio web de inicio de sesión
Encontré este script en línea, lo edité casi todo.
Puede ingresar el nombre de usuario y la contraseña en su estado inactivo, pero no puede hacer clic en iniciar sesión.
por favor ayúdame a arreglarAquí está el foro de inicio de sesión.
http://desistream.tv/en/index.shtml
Aquí está el script Actualmente está en IE pero tendré que cambiarlo para abrirlo en Google Chrome.
WScript.Quit Main
Function Main
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = True
IE.Navigate "http://desistream.tv/en/index.shtml"
Wait IE
With IE.Document
.getElementByID("login_username").value = "myusername"
.getElementByID("login_password").value = "mypassword"
.getElementByID("form").submit
End With
End Function
Sub Wait(IE)
Do
WScript.Sleep 500
Loop While IE.ReadyState < 4 And IE.Busy
Do
WScript.Sleep 500
Loop While IE.ReadyState < 4 And IE.Busy
End Sub
Sub IE_OnQuit
On Error Resume Next
WScript.StdErr.WriteLine "IE closed before script finished."
WScript.Quit
End Sub