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....
Anda baru saja membaca artikel yang berkategori Tips Visual Basic 6
dengan judul Membuat Sendiri Facebook Auto Comment Menggunakan Visual Basic 6. Jika anda rasa artikel ini bermanfaat, silakan sebarkan dengan meninggalkan URL h
1 comments:
Click here for commentskok gak jalan yah ...
ConversionConversion EmoticonEmoticon