Pada artikel kali ini Saya akan berbagi kode vb6 yang berfungsi untuk membuat Auto Clicker atau Klik Otomatis dengan menggunakan kode visual basic 6.0.
Auto Clicker adalah sebuah aplikasi yang membuat perangkat yang dapat mengklik secara otomatis tanpa di tekan oleh operator pada posisi yang ditentukan.
Berikut dibawah ini adalah cara membuat Auto Clicker atau Klik Otomatis dengan menggunakan Visual Bsiac 6.0.
 |
| Aplikasi Auto Clicker |
1. Buka Form VB6 Anda Standar EXE
2. Pada Form1 tanamkan 4 Commandbutton dan 3 Label dengan ketentuan :
Command1 Caption= Star
Command2 Caption=Stop
Command3 Caption=Test Click Otomatis
Command4 Caption=Keluar
Label1 Caption=Label1
Label2 Caption=Jumlah klik Otomatis
Label3 Caption=Label3
 |
| Form Desain |
3. Tambahkan 1 buah Module, Copy-Paste dibawah ini dibagian Module1
Option Explicit
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MOVE = &H1
Public Const MOUSEEVENTF_ABSOLUTE = &H8000
Public AutoClick As Boolean
Public AutoClickInterval As Long
Public Sub StartAutoClick()
AutoClick = True
Do
DoEvents
If AutoClick = False Then Exit Sub
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Sleep AutoClickInterval ' Menunggu sebelum klik berikutnya
Loop
End Sub
Public Sub StopAutoClick()
AutoClick = False
End Sub
Private Sub Sleep(ByVal Milliseconds As Long)
Dim EndTime As Single
EndTime = Timer + (Milliseconds / 1000)
Do While Timer < EndTime
DoEvents
Loop
End Sub
4. Kembali ke Form1 dan dobel klik area form kosong bersihkan semua kode, lalu Copy-Paste kode dibawah ini :
Option Explicit
Private Sub Command3_Click()
Label1.Caption = "klik otomatis berhasil"
Label3.Caption = Val(Label3.Caption) + 1
End Sub
Private Sub Command4_Click()
StopAutoClick
Unload Me
End Sub
Private Sub Form_Load()
AutoClickInterval = 500 ' Atur interval klik dalam milidetik
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Label1.Caption = ""
Label3.Caption = 0
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
Label1.Caption = "klik otomatis berhasil di Aktifkan"
StartAutoClick
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Label1.Caption = "klik otomatis berhasil di Matikan"
StopAutoClick
End Sub
Private Sub Form_Unload(Cancel As Integer)
StopAutoClick ' Pastikan auto clicker dihentikan sebelum menutup form
End Sub
5. Jalankan Project anda kemudian tekan tombol Star untuk mengaktifkan klik otomatis.
Pengujian:
Untuk mengujinya tempatkan mouse diatas tombol Test Click Otomatis beberapa saat dan perhatikan jumlah klik otomatis yang dihasilkan selama berada diatas tombol Test Click Otomatis.
Untuk lebih meyakinkannya lagi pindahkan mouse diatas tombol Stop maka dalam hitungan milidetik mouse akan mengklik secara otomatis dan menstop auto clicker.
Demikian artikel kali ini tentang cara Membuat Auto Clicker atau Klik Otomatis dengan Visual Basic 6.0.
Semoga artikel ini bermanfaat buat kita semua,Amin.
Selamat mencoba semoga berhasil.
No comments:
Post a Comment