Pada artikel kali ini..yuk bersama - sama kita membuat sendiri tool hacking facebook bernama Facebook Auto Comment. Tool ini bukan untuk menghacking facebook, tapi hack sederhana memanfaatkan elemen halaman facebook yang bisa kita manipulasi.
Karena judulnya adalah Facebook Auto Comment, maka script sederhana ini berfungsi untuk memberikan komentar otomatis ke status teman yang saat itu terbuka di browser. Ingat..!!! Status Yang Terbuka Dibrowser. Soo...script berikut pastinya akan mengenai semua status teman yang saat itu sobat buka.
Program yang digunakan untuk membuat tool Facebook Auto Comment hanya menggunakan Visual Basic 6. Jika sudah siap mari kita buat sendiri tool Facebook Auto Comment
1. Buka program Visual Basic 6 sobat. Buat sebuah project baru.
2. Masukkan terlebih dahulu control Webbrowser melalui menu Project > Components. Masukkan control Microsoft Internet Controls
3. Lalu atur sedemikian rupa agar kita bisa menggunakan control Webbrowser untuk login ke facebook atau bisa untuk browsing. Untuk hal ini bisa sobat baca dalam pembahasan Tehnik Dasar Penggunaan Web Browser Dalam VB6
4. Jika browser sederhana sobat sudah jadi tinggal buat sebuah tombol untuk memberikan komentar secara otomatis. Jangan lupa juga beri control textbox untuk menuliskan komentar sobat
5. Jangan lupa menambahkan Reference Microsoft HTML Object Library agar coding bisa berfungsi. Caranya dengan memilih menu Project > Reference lalu centang Microsoft HTML Object Library
6. Dalam tombol Kirim Komentar ( commandbutton ) silakan masukkan coding berikut
Private Sub CMDDKIRIM_Click()
Dim HTMLdoc As HTMLDocument
Dim ISI, SUBMIT As HTMLInputElement
Set HTMLdoc = WebBrowser1.Document
'Untuk mempostingkan isi value profil ke situs
For Each ISI In HTMLdoc.getElementsByName("add_comment_text")
ISI.Value = TXTKOMEN.Text
ISI.Click
For Each SUBMIT In HTMLdoc.getElementsByName("comment")
SUBMIT.Value = "Komentari"
SUBMIT.Click
Next SUBMIT
End Sub
Dim HTMLdoc As HTMLDocument
Dim ISI, SUBMIT As HTMLInputElement
Set HTMLdoc = WebBrowser1.Document
'Untuk mempostingkan isi value profil ke situs
For Each ISI In HTMLdoc.getElementsByName("add_comment_text")
ISI.Value = TXTKOMEN.Text
ISI.Click
For Each SUBMIT In HTMLdoc.getElementsByName("comment")
SUBMIT.Value = "Komentari"
SUBMIT.Click
Next SUBMIT
End Sub
TXTKOMEN.Text adalah control textbox yang berisi komentar sobat
Nah...sekarang coba sobat login ke facebook menggunakan browser built in Webbrowser. Setelah itu isi komentar pada textbox. Akhiri dengan menekan tombol Kirim
Selesai...kini sobat sudah bisa membuat Facebook Auto Comment sendiri. Dan silakan kembangkan sendiri agar hasil bisa optimal. Dan mohon maaf saya tidak menyediakan source code. Karena belajar sendiri secara langsung justru akan membuat kemampuan menjadi terasah.
Salam programmer....
Kurang Jelas MIN . Please Lebih Detail Lagi
kalo vb.net gmn min?