Este é um código que quando clicar no botão, seu mouse irá tremer DESCONTROLADAMENTE
então aviso: perigoso, xD.
Você precisará de um botão - btnTremer com a caption "tremer mouse", e uma timer chamado "tmrTremer"
Caso queira que o comando seja ativado ao abrir o aplicativo, na form_load adicione:
CÓDIGO:
tmrTremer.interval = 1
Isso é bem util caso queira fazer umas "brincadeiras" com seus amigos.
Creditos: Boun , FireWave por modificar
então aviso: perigoso, xD.
Você precisará de um botão - btnTremer com a caption "tremer mouse", e uma timer chamado "tmrTremer"
Código:
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 Sub tmrTremer_Timer()
Dim Pos As POINTAPI
GetCursorPos Pos
Call SetCursorPos(Pos.x + Random(40) - 20, Pos.y + Random(40) - 20)
End Sub
Private Function Random(Num As Integer)
Random = Int(Rnd * Num)
End Function
Private Sub btnTremer_Click()
If btnTremer.Caption = "tremer mouse" Then
tmrTremer.interval = 1
btnTremer.Caption = "Normalizar Mouse"
Else
tmrTremer.interval = 0
btnTremer.Caption = "tremer mouse"
End If
End Sub
Caso queira que o comando seja ativado ao abrir o aplicativo, na form_load adicione:
CÓDIGO:
tmrTremer.interval = 1
Isso é bem util caso queira fazer umas "brincadeiras" com seus amigos.
Creditos: Boun , FireWave por modificar
