Codenstuff.com

Option Explicit On
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("login").InvokeMember("click")
        Label2.Visible = True
        Me.Height = 377
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://login.facebook.com/login.php?login_")
        Button2.Enabled = False
        Button3.Enabled = False
        Button1.Enabled = False
        TextBox3.Enabled = False
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        TextBox4.Text = WebBrowser1.Url.AbsolutePath
        If TextBox4.Text.Contains("attempt=1") Then
            MsgBox("wrong password")
        End If
        If TextBox4.Text.Contains("home.php") Then
            Label1.Text = WebBrowser1.Document.GetElementById("navAccountName").InnerText
            TextBox1.Visible = False
            TextBox2.Visible = False
            Button1.Visible = False
            PictureBox1.Visible = True
            TextBox3.Enabled = True
            Label5.Visible = False
            Label4.Visible = False
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("status").SetAttribute("value", TextBox3.Text)
        WebBrowser1.Document.GetElementById("status").InvokeMember("focus")
        Button3.Enabled = True
    End Sub
    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Facebookshare As HtmlElementCollection = WebBrowser1.Document.All
        For Each lesanElement As HtmlElement In Facebookshare
            If lesanElement.GetAttribute("value") = "Share" Then
                lesanElement.InvokeMember("click")
            End If
        Next
        MsgBox("Status message Successful", MsgBoxStyle.DefaultButton1, "DONE")
        If MsgBoxResult.Ok Then
            Me.Close()
        End If
    End Sub
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        MsgBox("Login to facebook." + vbNewLine + "Write your status message." + vbNewLine + "Press Enter Status" + vbNewLine + "Press Share", MsgBoxStyle.DefaultButton1, "Help Box")
    End Sub
    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Form2.Show()
    End Sub
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        If TextBox3.Text = "" Then
            Button2.Enabled = False
        Else
            Button2.Enabled = True
        End If
    End Sub
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text = "" Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If
    End Sub
End Class