Mouse Jiggler

Ok so I made this program in my spare time in VB that will jiggle your mouse pointer violently… I am also uploading the source code if you want to use it.

jiggle

source code

Public Class Form1
Private Declare Sub mouse_event Lib “user32.dll” ( _
ByVal dwFlags As Int32, _
ByVal dx As Int32, _
ByVal dy As Int32, _
ByVal cButtons As Int32, _
ByVal dwExtraInfo As Int32 _
)

Private Declare Function SetCursorPos Lib “user32.dll” ( _
ByVal X As Int32, _
ByVal Y As Int32 _
) As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
While (True)
mouse_event(1, Rnd() * 10 – 5, Rnd() * 10 – 5, 1, 1)
System.Threading.Thread.Sleep(10)
End While
End Sub
End Class