Dim theElementCollection As HtmlElementCollection = 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", "uzivatelske jmeno")
ElseIf controlName = "pass" Then
curElement.SetAttribute("Value", "heslo")
ElseIf controlName = "login" Then
curElement.InvokeMember("click")
End If
|