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 StringDim 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 !
