Pemrograman HACK Visual basic

Dengan Visual Basic, anda bisa membuat gerakan kursor mouse menjadi tidak menentu. Jika anda malas membaca, silahkan langsung coba source codenya

Form ini hanya terdiri dari dua buah command button dengan sebuah timer.
Command1 (mouse loncat) [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 (mouse normal) [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
?? : ) kita lihat saja nanti