Pour me connecter automatiquement sur un site sans avoir à entrer identifiant et mot de passe, j'utilise les instructions suivantes sur IE:
Code : Tout sélectionner
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Left = 0
IE.Top = 0
IE.Height = intVertical
IE.Width = intHorizontal
IE.ShowWindow g_oIE.hwnd, 2
IE.navigate url
Do While (IE.Busy)
WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById(formID)
Helem.Value = identifiant
Set Helem = IE.document.getElementById(formPswd)
Helem.Value = motdepasse
Set Helem = IE.document.Forms(0)
Helem.Submit
Merci!
Votre Navigateur : Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.22 (KHTML, like Gecko) Chrome/25.0.1364.97 Safari/537.22