please help Thank yousendkeys.send("{KEYS}")
Public Class Form1
Inherits System.Windows.Forms.Form
Dim asd
Private Function GetBtnByValue(ByVal value As String) As HtmlElement
For Each d As HtmlElement In Webbrowser1.Document.GetElementsByTagName("input")
'If (d.GetAttribute("type").ToLower = asd.Text Or d.GetAttribute("type").ToLower = "submit") Then
If (d.GetAttribute("type").ToLower = "submit") Then
If (d.GetAttribute("value") = value) Then
Return d
Exit For
End If
End If
Next
End Function
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("ID").SetAttribute("value", TextBox1.Text())
'GetBtnByValue("What the Button Says").InvokeMember("Click")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://website.com") 'the target
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'GetBtnByValue("What the Button Says").InvokeMember("Click")
End Sub
End Class