Buat Mouse Loncat - Loncat Pake Visual Basic 6

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

Ehm… mungkinkah kemudian akan muncul banyak varian virus lokal yang dapat memainkan kursor mouse ?? : ) kita lihat saja nanti.
Salam : Newbie_48 ( andikapratama48@yahoo.com )