Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://splitfireteam.******.com/login.forum?")
Button1.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("username").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
WebBrowser1.Document.GetElementById("login").InvokeMember("Click")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Button1.Enabled = True
If WebBrowser1.DocumentTex*****ntains("Your last visit was on") Then
MsgBox("Sucesss")
ElseIf WebBrowser1.DocumentTex*****ntains("You specified an incorrect") Then
MsgBox("Failed")
End If
End Sub
End Class