Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- WebBrowser1.Navigate("localhost/send-data.php")
- End Sub
- Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
- Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
- For Each Element As HtmlElement In Page
- If Element.GetAttribute("id").Contains("txtName") Then
- Dim oTName As HtmlElement = Element
- oTName.InnerText = txtName.Text
- End If
- If Element.GetAttribute("id").Contains("txtProfession") Then
- Dim oTProfession As HtmlElement = Element
- oTProfession.InnerText = txtProfession.Text
- End If
- If Element.GetAttribute("id").Contains("btnSubmit") Then
- Dim oBtn As HtmlElement = Element
- oBtn.InvokeMember("click")
- End If
- Next
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment