Witam, pomoże ktoś edytować jak podpiąć 2 TextBoxy loginu i hasła pod ten button logowania?
Login:
<input type="email" name="email" placeholder="Email" class="email" tabindex="1">
Hasło:
<input type="password" name="password" placeholder="Password" class="password" tabindex="2">
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://...")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allElements As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageElement As HtmlElement In allElements
'value="Login"
If webpageElement.GetAttribute("value") = "Login" Then
webpageElement.InvokeMember("click")
End If
Next
End Sub