Cara Update Status Facebook dengan Visual Basic .Net

Dalam menjalanka bisnis nya, untuk otomatisasi sering kali para pebisnis online melakukan update status dengan bantuan software BOT.

Saya akan menjelaskan bagaimana melakukan update status dengan menggunakan software bot.
Langsugn saja buat sebuah project dengan komponen
1 richtextbox
1 button
1 webrowser

lihat gambar di bawah ini:

berikut adalah kode langkap nya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("m.facebook.com")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '--- <textarea class="cd ce cf cg ch" name="xc_message" id="u_0_0" rows="2"></textarea>

        '--- isi text area

        Dim oTextColl As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("textarea")

        For Each obj As HtmlElement In oTextColl

            If obj.GetAttribute("name") = "xc_message" Then

                obj.SetAttribute("value", RichTextBox1.Text)

                Exit For

            End If

        Next

        '--- kirim status

        '--- <input value="Kirim" type="submit" name="view_post" class="x y ba" />

        Dim oInputColl As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")

        For Each obj As HtmlElement In oInputColl

            If obj.GetAttribute("name") = "view_post" Then

                obj.InvokeMember("click")

                Exit For

            End If

        Next

    End Sub

End Class

Jika dijalankan maka akan terlihat seperti gambar di bawah ini:

OK vroh selamat mencoba!

Untuk refrensi lengkap pembuatan software bot dengan vb .net ANDA bisa baca buku saya yang berjudul "Trik Membuat Software BOT dengan Visual Basic .NET"
.
ANDA bisa membeli di toko buku GRAMEDIA terdekat di kota ANDA

Bagikan Artikel ini