Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- WebBrowser1.Document.GetElementById("vb_login_username").SetAttribute("value", TextBox1.Text)
- WebBrowser1.Document.GetElementById("vb_login_password").SetAttribute("value", TextBox2.Text)
- WebBrowser1.Document.GetElementById("cookieuser").InvokeMember("click")
- Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
- For Each webpageelement As HtmlElement In allelements
- If webpageelement.GetAttribute("value") = "Log in" Then
- webpageelement.InvokeMember("click")
- End If
- Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement