Jak rozpoznać czy próba zalogowania się do Facebooka powiodła się?

napisalem cos takiego

Public Class Form1
    Dim buttonclick As Boolean
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        buttonclick = True
        Try
            WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("login").InvokeMember("click")
        Catch ex As Exception
        End Try
        Label1.Text = "connect"
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        buttonclick = False
        WebBrowser1.Navigate("http://facebook.com/login.php")

    End Sub
End Class

chcialbym dodać instrukcje - jeżeli zalogowano...then....

lecz jak wyciągnąć ten wynik "zalogowania" ?

Być może jest na to inny sposób, ale ja bym sprawdził po url. Chyba inny będzie po udanym i nieudanym zalogowaniu.

jak to można zrobić?

próbowałem też tego:

        If Me.WebBrowser1.DocumentText.Contains("Wyloguj") Then
            MsgBox("The login is ok!")
        End If

ale to pobiera wartosc "natychmiastowo" a logowanie trwa kilka sekund...
więc zanim zaloguje to już za późno ;/

z kolei jak robie cos takiego:

    Private Sub WebBrowser1_StatusTextChanged(sender As Object, e As EventArgs) Handles WebBrowser1.StatusTextChanged
        If Me.WebBrowser1.DocumentText.Contains("Wyloguj") Then
            MsgBox("zalogowano!")
        End If

to mi spamuje co chwila...

Nie mam konta na FB i nie programowałem w VB, ale to co robisz nie wygląda dobrze.

Poszukaj czegoś o facebook_api_key

Nie wiem jak w VB ale w C# jest zdarzenie LoadCompleted, odpali się po załadowaniu strony. Wtedy sprawdź czy się zalogowało.