Private Sub WebBrowserEx1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowserEx1.DocumentCompleted Dim theElementCollection As HtmlElementCollection = WebBrowserEx1.Document.GetElementsByTagName("INPUT") For Each curElement As HtmlElement In theElementCollection Dim controlName As String = curElement.GetAttribute("name").ToString If controlName.ToString.Contains("Username") Then curElement.SetAttribute("uttam", controlName) ElseIf controlName.ToString.Contains("Password") Then curElement.SetAttribute("test", controlName) exit For End If Next ' Part 3: Automatically click the Login button Dim theWElementCollection As HtmlElementCollection = WebBrowserEx1.Document.GetElementsByTagName("INPUT") For Each curElement2 As HtmlElement In theWElementCollection Dim controlName2 As String = "" controlName2 = curElement2.GetAttribute("NAME").ToString() If controlName2.Contains("Action") Then curElement2.InvokeMember("Click") Exit Sub End If Next WebBrowserEx1.Navigate("http://dev.koliu.in/Main.aspx") Exit Sub End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)