VBScript para iniciar um login no site
Eu encontrei este script online, editei a maior parte dele.
É capaz de inserir o nome de usuário e a senha, mas não consegue clicar em login.
por favor me ajude a consertarAqui está o fórum de login.
http://desistream.tv/en/index.shtml
Aqui é script atualmente está no IE, mas precisarei alterá-lo para abrir no 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