1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| ' cherche et renseigne les champs
Dim theElementCollection As HtmlElementCollection
theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
For Each curElement As HtmlElement In theElementCollection
Dim controlName As String = curElement.GetAttribute("name").ToString
If controlName = "email" Then
curElement.SetAttribute("value", "Votre email")
Application.DoEvents()
ElseIf controlName = "password" Then
curElement.SetAttribute("value", "votre mot de passe")
Application.DoEvents()
End If
Next
' clique sur le bouton de validation
Dim btnValider = WebBrowser1.Document.GetElementsByTagName("input")
For Each separe As HtmlElement In btnValider
If separe.GetAttribute("value") = "Ouvrir une session" Then
separe.InvokeMember("click")
Call WaitForPageLoad()
Exit For
End If
Next |