For this we need:
* Webbrowser
* 2 Textbox
* 1 Button
===============================================
VB.NET
01. Dim didWeNavigated? As Boolean = False
02. Dim gottheserver? As Boolean = False
03. Public Property ScriptErrorsSuppressed As Boolean
===============================================
Create a button and add the Click
VB.NET
01. WebBrowser1.Navigate("http://www.darkorbit.com")
02. didWeNavigated = True
03. End Sub
===============================================
Now create a Webbrowser and you click to bring up the function in the code DocumentCompleted.
VB.NET
01. If didWeNavigated = False Then
02. Exit Sub
03. End If
04. If didWeNavigated = True Then didWeNavigated = False
05. Dim username As String = TextBox1.Text
06. Dim password As String = TextBox2.Text
WebBrowser1.Document.GetElementById("loginForm_def ault_username").SetAttribute("Value", username) WebBrowser1.Document.GetElementById("loginForm_def ault_password").SetAttribute("Value", password) WebBrowser1.Document.GetElementById("loginForm_def ault_loginButton").Focus()
WebBrowser1.Document.GetElementById("loginForm_def ault_loginButton").InvokeMember("click")
07. Dim htmlel As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
08. Dim el1 As HtmlElement
09. End Sub
===============================================






) .