Auto post facebook berbasis web browser VB.Net 2010

Berikut ini adalah trik membuat robot auto post facebook sederhana berbasis web browser Visual Basic 2010
1. Buat new project
2. Sisipkan item berikut dan atur properties :
    - Label1  : text = "User name"
    - Label2  : text = "Password"
    - Label3  : text = "Delay"
    - Label4  : text = "Left time for next post"
    - Label5  : text = "Target"

    - Textbox1  : enabled = false  > untuk user name
    - Textbox2  : enabled = false  > untuk pasword
    - Textbox3  : Multiline = true  > untuk postingan
    - Textbox4  : text = 10 (bisa diubah)  > untuk target postingan
    - Textbox5  : text = 120 (bisa diubah) > untuk delay antar postingan
    - Groupbox1  : enabled = false, text = "Post"

    - Picturebox1  : visible = false
    - Webbrowser1  : visible =false
    - Timer1 : Enabled = true
    Atur letak sesuai selera anda

  

   

Code :

Public Class Form1

    Dim IdWB1, UrlOut, IdTimeNow As String
    Dim IdPause, IdDelay As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IdWB1 = "Ready"
        WebBrowser1.Navigate("https://m.facebook.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If IdWB1 = "Posted" Then
            IdWB1 = ""
            If TextBox4.Text < 1 Then
                If Button2.Text = "Stop" Then
                    Button2_Click(sender, e)
                    MsgBox("Task completed")
                End If
                Exit Sub
            End If
            IdTimeNow = TimeOfDay & " " & Today
            IdDelay = TextBox5.Text
            TextBox4.Text = TextBox4.Text - 1
            IdPause = 0
        End If
        If IdWB1 = "Logout" Then
            If Not WebBrowser1.DocumentText.Contains("logout.php") Then
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                Button1.Enabled = True
                Button3.Enabled = False
                PictureBox1.Visible = False
                GroupBox1.Enabled = False
            End If
        End If
        If IdWB1 = "Ready" Then
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            Button1.Enabled = True
        End If
        If IdWB1 = "LoginOK" Or WebBrowser1.DocumentText.Contains("logout.php") Then
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            Button1.Enabled = False
            GroupBox1.Enabled = True
            Try
                PictureBox1.Visible = True
                PictureBox1.ImageLocation = "https://graph.facebook.com/" & WebBrowser1.Document.GetElementById("target").GetAttribute("value") & "/picture?type=small"
                Dim Pg As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                For Each Elm As HtmlElement In Pg
                    If Elm.GetAttribute("href").Contains("logout.php") Then
                        Button3.Text = Elm.InnerText
                        Dim result As String() = Button3.Text.Split(New String() {"("}, StringSplitOptions.None)
                        For Each s As String In result
                            If s.Contains(")") Then
                                Me.Text = "AutoFB - " & Strings.Left(s, s.Length - 1)
                            End If
                        Next
                        Button3.Enabled = True
                        UrlOut = Elm.GetAttribute("href")
                        Exit For
                    End If
                Next
            Catch ex As Exception

            End Try

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then Exit Sub
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("login").InvokeMember("click")
        IdWB1 = "LoginOK"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate(UrlOut)
        IdWB1 = "Logout"
    End Sub
    Sub Posting()
        WebBrowser1.Document.GetElementById("xc_message").SetAttribute("value", TextBox3.Text & vbCrLf & TextBox4.Text)
        IdWB1 = "Posted"
        WebBrowser1.Document.GetElementById("view_post").InvokeMember("click")
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Start" Then
            IdPause = 0
            Button2.Text = "Stop"
            IdDelay = TextBox5.Text
            IdTimeNow = TimeOfDay & " " & Today
            If TextBox5.Text = 0 Then
                Button2.Text = "Start"
                IdTimeNow = ""
            End If
            Posting()
        Else
            Button2.Text = "Start"
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Button2.Text = "Stop" Then
            If IdPause = 0 Then Label4.Text = "Left time for next post : " & TextBox5.Text - DateDiff("s", IdTimeNow, TimeOfDay & Today)
            If IdDelay - DateDiff("s", IdTimeNow, TimeOfDay & Today) = 0 Then
                IdDelay = 0
                IdPause = 1
                Posting()
            End If
        End If

    End Sub
End Class

*Sesuaikan atau tambahkan fungsi lain sesuai kebutuhan.  SEMOGA BERMANFAAT !

Download VB Full Project