Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- with id
- Webbrowser.Document.getElementById("user").setAttribute("value", "username")
- without id
- Webbrowser.Document.getElementByTagName("input").getElementByName("user").item(0).setAttribute("value", "username")
- example
- Try
- MainForm.WebBrowser1.ScriptErrorsSuppressed = True
- While MainForm.WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
- Application.DoEvents()
- End While
- MainForm.WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("email").Item(0).SetAttribute("value", UName)
- MainForm.WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("password").Item(0).SetAttribute("value", Upassword)
- Dim allelements As HtmlElementCollection = MainForm.WebBrowser1.Document.All
- For Each webpageelement As HtmlElement In allelements
- If webpageelement.InnerText = "Login" Then
- webpageelement.InvokeMember("click")
- End If
- Next
- Catch ex As Exception
- MsgBox(ex.StackTrace)
- End Try
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement