Membuat Bot Shareapic Menggunakan VB6

Bagi anda yang belum tahu tentang Shareapic silakan baca artikel Cara Mencurangi Shareapic. Dalam tutorial kali ini kita akan membuat sendiri bot Shareapic yang tujuannya untuk melihat gambar di Shareapic secara continued. Sehingga dollar yang didapatkan akan lebih besar. Tool yang nantinya akan kita compile bisa anda pergunakan mandiri tanpa bantuan browser. OK..silakan buka Visual Basic 6 sobat...

Prinsipnya sangat sederhana. Anda hanya membuat sebuah Web Browser yang diberi timer otomatis. Sehingga pada durasi tertentu Web Browser akan terload sendiri secara otomatis. Tutorial berikut hanya bersifat basic saja. Jika anda sudah mahir anda bisa mengembangkannya sendiri sehingga menjadi lebih canggih lagi.

Langsung saja buka Visual Basic 6 anda

1. Buat sebuah project baru

2. Buatlah sebuah form, masukkan sebuah kontrol Microsoft Tabbed Dialog Control 6.0 (SP4) dan Microsoft Internet Control. Buatlah Tab sebanyak 10 dan isi masing - masing dengan sebuah Web Browser. Jadi anda nantinya akan membuka secara otomatis WebBrowser sebanyak 10. Agar dollar yang anda dapatkan lebih besar hasilnya.

3. Jangan lupa buat pula 2 buah tombol Command Button dan 1 Timer. Buat 10 textbox yang nantinya akan menampung URL Shareapic gambar anda.

4. Masukkan script berikut

Dim Timeleft As Integer
Dim Mins, Secs As String

Private Sub CMDMULAI_Click()
If Check3.Value = 0 Then
SAMBUNG
CMDMULAI.Enabled = False
CMDSTOP.Enabled = True
Else
SAMBUNG_WAKTU
CMDMULAI.Enabled = False
CMDSTOP.Enabled = True
End If
End Sub

Sub SAMBUNG()
WebBrowser1(0).Navigate (TXTTARGET(0).Text)
WebBrowser1(1).Navigate (TXTTARGET(1).Text)
WebBrowser1(2).Navigate (TXTTARGET(2).Text)
WebBrowser1(3).Navigate (TXTTARGET(3).Text)
WebBrowser1(4).Navigate (TXTTARGET(4).Text)
WebBrowser1(5).Navigate (TXTTARGET(5).Text)
WebBrowser1(6).Navigate (TXTTARGET(6).Text)
WebBrowser1(7).Navigate (TXTTARGET(7).Text)
WebBrowser1(8).Navigate (TXTTARGET(8).Text)
WebBrowser1(9).Navigate (TXTTARGET(9).Text)

End Sub

Sub SAMBUNG_WAKTU()
LBLCOUNT.Caption = "0"
Timeleft = 0
Timer1.Enabled = True
WebBrowser1(0).Navigate (TXTTARGET(0).Text)
WebBrowser1(1).Navigate (TXTTARGET(1).Text)
WebBrowser1(2).Navigate (TXTTARGET(2).Text)
WebBrowser1(3).Navigate (TXTTARGET(3).Text)
WebBrowser1(4).Navigate (TXTTARGET(4).Text)
WebBrowser1(5).Navigate (TXTTARGET(5).Text)
WebBrowser1(6).Navigate (TXTTARGET(6).Text)
WebBrowser1(7).Navigate (TXTTARGET(7).Text)
WebBrowser1(8).Navigate (TXTTARGET(8).Text)
WebBrowser1(9).Navigate (TXTTARGET(9).Text)
End Sub

Private Sub CMDSTOP_Click()
LBLCOUNT.Caption = ""
Timer1.Enabled = False
WebBrowser1(0).Stop
WebBrowser1(1).Stop
WebBrowser1(2).Stop
WebBrowser1(3).Stop
WebBrowser1(4).Stop
WebBrowser1(5).Stop
WebBrowser1(6).Stop
WebBrowser1(7).Stop
WebBrowser1(8).Stop
WebBrowser1(9).Stop
CMDMULAI.Enabled = True
CMDSTOP.Enabled = False
End Sub

Private Sub LBLCOUNT_Change()
If LBLCOUNT.Caption = TXTTIMER.Text Then
SAMBUNG_WAKTU
End If
End Sub

Private Sub Timer1_Timer()
Timeleft = Timeleft - 1
Secs = "0" - Timeleft
LBLCOUNT.Caption = Secs
End Sub

Private Sub TXTTIMER_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
     And KeyAscii <= Asc("9") & Chr(13) _
     Or KeyAscii = vbKeyBack _
     Or KeyAscii = vbKeyDelete _
     Or KeyAscii = vbKeySpace) Then
        Beep
        KeyAscii = 0
   End If
End Sub

Private Sub WebBrowser1_NavigateError(index As Integer, ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
WebBrowser1(0).Silent = True
WebBrowser1(1).Silent = True
WebBrowser1(2).Silent = True
WebBrowser1(3).Silent = True
WebBrowser1(4).Silent = True
WebBrowser1(5).Silent = True
WebBrowser1(6).Silent = True
WebBrowser1(7).Silent = True
WebBrowser1(8).Silent = True
WebBrowser1(9).Silent = True
End Sub

5. Compile project anda menjadi file exe

6. Untuk menjalankannya agar hasil maksimal, anda harus mematikan beberapa fitur di Internet Explorer agar program bekerja dengan lancar.

7. Buka Internet Explorer anda, masuk ke menu Tools > Internet Options. Pilih Tab Security kemudian klik tombol Custom level. Matikan Scripting dengan men-Disable Active Scripting.

8. Kemudian masuk ke Tab Privacy. Dalam Setting geser slider keatas sehingga anda memilih Block All Cookies.

9. Langkah terakhir matikan proses load gambar melalui Tab Advanced . Dalam Multimedia matikan tanda centang Show Pictures.

CATATAN :

Langkah - langkah seting Internet Explorer diatas harus dijalankan. Tujuannya adalah untuk memperingan proses load WebBrowser. Cookies harus anda disable agar program berjalan dengan sempurna.

Nah...sekarang coba anda jalankan program anda. Masukkan 10 URL gambar Shareapic anda. Beri timer sesuka hati anda sesuai dengan kecepatan internet anda. Karena program ini tanpa mematikan fungsi multitaskting, anda bisa menjalankan 2 atau mungkin lebih program yang sudah anda buat.

Dengan koneksi internet dan kemampuan komputer yang saya miliki, saya bisa menjalankan 4 program ini sekaligus. Yah...agar dollar cepat mengalir. Tinggal anda kembangkan sendiri kemampuan program anda. Sambil menjalankan program ini anda bisa membuka account Shareapic anda. Sehingga anda bisa memantau pendapatan dollar Shareapic sobat.

Selamat merampok dollar aja...dech..Jangan lupa bagi - bagi....yaaaa....hehehehehe ....!!!