Posting status Facebook dengan gambar menggunakan web browser VB.net 2010

Di postingan sebelumnya sudah dibahas cara membuat robot auto post facebook berbasis web browser VB.net. Kali ini saya akan membahas bagaimana menyertakan gambar/foto pada postingan tersebut.
Saya anggap anda sudah login facebook. Jika anda sudah mempraktekkan membuat aplikasi robot FB pada postingan saya sebelumnya anda bisa login di aplikasi tersebut, jika belum anda bisa login terlebih dahulu melalui Internet explorer. Karena di sini saya akan memberikan gambaran garis besarnya saja untuk bisa anda tambahkan di project yang sudah anda buat sebelumnya.
Berikut codenya  :

Public Class Form1
    Dim IDWb, IDTimer As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If WebBrowser1.DocumentText.Contains("view_photo") Then
            '// klik menu upload foto
            WebBrowser1.Document.GetElementById("view_photo").InvokeMember("click")
            '//

            '//memberikan sinyak aksi webbrowser
            IDWb = "Upload"
            '//
        End If
       
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If IDWb = "Terkirim" Then
            IDWb = ""
            MsgBox("Done")
            WebBrowser1.Navigate("http://m.facebook.com")

        End If

        If IDWb = "Kirim" Then
            If WebBrowser1.DocumentText.Contains("view_post") Then
                '//test status
                WebBrowser1.Document.GetElementById("xc_message").SetAttribute("value", TextBox2.Text)
                '//

                '//klik kirim
                WebBrowser1.Document.GetElementById("view_post").InvokeMember("click")
                '//
                IDWb = "Terkirim"
            End If
        End If

        If WebBrowser1.DocumentText.Contains("file1") Then
            If IDWb = "Upload" Then
                '//memberikan sinyal aksi timer
                IDTimer = "GetPicUrl"
                '//

                '//menghentikan aksi upload
                IDWb = ""
                '//
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '//membuka facebook
        WebBrowser1.Navigate("https://m.facebook.com")
        '//
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If IDTimer = "GetPicUrl" Then
            Static a As Integer
            a = a + 1
            If a = 3 Then
                If WebBrowser1.DocumentText.Contains("file1") Then
                    '//memaksa aplikasi ini untuk terfokus berada di paling atas
                    AppActivate(System.Diagnostics.Process.GetCurrentProcess.Id)
                    '//

                    '// membuka open dialog memilih lokasi foto yang akan diupload
                    WebBrowser1.Document.GetElementById("file1").InvokeMember("click")
                    '//
                Else
                    a = 0
                End If
            End If
           
            If a > 3 Then
                '//memasukkan lokasi url foto ke dalam open file dialog
                SendKeys.Send(TextBox1.Text)
                SendKeys.Send(Chr(13))
                '//
            End If
            If a > 8 Then
                '//klik pratinjau foto
                WebBrowser1.Document.GetElementById("add_photo_done").InvokeMember("click")
                '//
                IDWb = "Kirim"
                a = 0
                IDTimer = ""
            End If
        End If
    End Sub
End Class

INGAT !! anda harus login terlebih dahulu di Internet Explorer, jika  tidak maka code di atas tidak akan berjalan.

Download VB.net Project