Imports System.Net
Imports System.IO
Public Class Form1




    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://webtebilisim.com/member.php?action=login")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False

        WebBrowser1.Document.GetElementById("username").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("password").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")



    End Sub


    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Button1.Enabled = True

        TextBox3.Text = WebBrowser1.Document.Body.InnerHtml
        If InStr(1, TextBox3.Text, "Geçersiz kullanıcı adı veya şifre girdiniz.") Then
            MsgBox("Geçersiz kullanıcı adı veya şifre girdiniz.")

        End If
        If InStr(1, TextBox3.Text, "Arkadaş Listesi") Then
            MsgBox("Giriş Başarılı!")

            Form2.Show()

        End If
    End Sub
End Class