Cara Membuat Auto Comment Facebook ( Copas Dari Blog Teman ) Work 100% ( Udah gw test )
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 tingg`l 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
Tidak ada komentar:
Posting Komentar