Insira esse código no seu projeto:
Private
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI)
As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As
Long, ByVal y As Long) As Long
Private
Type POINTAPI
x As Long
y As Long
End Type
Private
Function Random(Num As Integer)
Random = Int(Rnd * Num)
End Function
Insira um Timer com o código:
Dim Pos As POINTAPI
GetCursorPos Pos
Call SetCursorPos(Pos.x + Random(20) - 10, Pos.y + Random(20) - 10)
Pra fazer o mouse tremer basta colocar o código abaixo em algum evento:
Timer1.Interval = 1
Para o mouse parar de tremer coloque o código abaixo em algum evento:
Timer1.Interval = 0
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco