Membuat mouse jadi meloncat loncat

Dengan Mengunakan Visual Basic, disini saya mencoba-coba awal gerakan kursor yang bisa dibilang Hide(hilang) dan Meloncat dan bila ini juga disalah gunakan dalam trik mengangu komputer lain dan di kembangkan akan cukup menyebalkan..singkat aja kita simak yach...

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

Erm… mungkinkah kemudian akan muncul banyak varian virus lokal yang dapat memainkan kursor mouse.