Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("user").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("passwrd").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("frmlogin").InvokeMember("submit")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://parkad.fix.gs/index.php?action=login2")
WebBrowser1.Visible = True
End Sub
End Class
Dim usernameTextBox As HtmlElement = Me.mainWebBrowser.Document.All.Item("Email")
usernameTextBox.InnerText = "james.t.atkinson"
Dim passwordTextBox As HtmlElement = Me.mainWebBrowser.Document.All.Item("Passwd")
passwordTextBox.InnerText = "MyFakePassword"
Load balance : Server 04
