A voir également:
- Se logger sur un site avec VBS
- Site de telechargement - Guide
- Site inaccessible - Guide
- Site de vente entre particulier - Guide
- Site partage photo - Guide
- Darkino site - Guide
1 réponse
J'ai trouvé la solution :
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://www.eogalaxy.com"
Do While (IE.Busy)
WScript.Sleep 10
Loop
Do While Not ElementExiste ("Login")
Wscript.Sleep 10
Loop
Function ElementExiste ( stNom)
On Error resume next
ElementExiste = IE.document.getElementById("login").name <> ""
end function
Set Helem = IE.document.getElementById("login")
Helem.Value = "xxx"
Set Helem = IE.document.getElementById("pass")
Helem.Value = "xxx"
Set Helem = IE.document.Forms(0)
Helem.Submit
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://www.eogalaxy.com"
Do While (IE.Busy)
WScript.Sleep 10
Loop
Do While Not ElementExiste ("Login")
Wscript.Sleep 10
Loop
Function ElementExiste ( stNom)
On Error resume next
ElementExiste = IE.document.getElementById("login").name <> ""
end function
Set Helem = IE.document.getElementById("login")
Helem.Value = "xxx"
Set Helem = IE.document.getElementById("pass")
Helem.Value = "xxx"
Set Helem = IE.document.Forms(0)
Helem.Submit