Dengan Visual Basic, anda bisa membuat gerakan kursor mouse menjadi tidak menentu☺ .
Perhatikan gambar dibawah ini.
Form ini hanya terdiri dari dua buah command button dengan sebuah timer.
“Command1” [Untuk membuat gerakan tidak menentu pada kursor mouse]
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Penjelasan : Ketika tombol command 1 diklik, maka program akan memanggil fungsi timer1
Command2 [Untuk Menghentikan gerakan gila pada kursor mouse]
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Penjelasan : Ketika tombol command2 diklik, maka program akan mematikan fungsi timer1
Timer1 [Fungsi timer untuk kursor mouse]
Private Sub Timer1_Timer()
X = 1 + 2 + 3 + 4 + 5 + 6 - 2
Y = 1 + 2 * 800 + 200 - 400 + 130 + 700
SetCursorPos X, Y
End Sub
Penjelasan : interval timer di set 1000 dan enabled = false, jika timer diaktifkan, maka timer akan
memanggil fungsi SetCursorPos. X = gerakan atas dan bawah mouse, Y = gerakan kiri dan kanan
mouse.
Buatlah sebuah Module untuk memainkan fungsi kursor mouse dan masukkan baris kode berikut :
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
