lain lain

Jumat, 25 Januari 2013

bot visitor

[-] Buka Visual Basic 6 buat project baru standard EXE
[-] Buat 1textbox = text dikosongkan
1timer = interval 5000 (atau terserah) , enabled = false
1 webbrowser (caranya tekan ctrl+t lalu centang microsoft internet controls )
2commandbutton = caption "start dan stop"
[-] interval timer 5000 = 5detik

Lalu Masukan (kode Update)
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()
WebBrowser1.Navigate (Text1.Text)
End Sub
f5 Jika Aplikasinya jalan Tinggal Save 

Tidak ada komentar:

Posting Komentar