SSO
Moderador.G
Mensagens : 83
Moeda : 117
Pontos : 6
Data de inscrição : 06/01/2013
 |  Assunto: Mouse tremer  Dom Jan 06, 2013 10:38 pm | |
| - Brincadeira idiota - Mode : On- - Citação :
- É mais um falta do que fazer, com o seguinte tutorial, você vai criar um aplicativo, no qual o mouse de quem o utiliza ira ficar tremendo, meio sem controle, você pode editar
a "intensidade" do "terremoto" (rs). Algo que sabendo utilizar pode ser divertido, afinal tudo pode ser aproveitado  Esse projeto precisa de:
CommandButton -Nome:cmdTremer Caption: Tremer Mouse" - Timer - Após criar os objetos requeridos, de duplo clique na form, apague tudo, e insira o seguinte código: - 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 Timer1_Timer()
Dim Pos As POINTAPI
GetCursorPos Pos
Call SetCursorPos(Pos.x + Random(20) - 10, Pos.y + Random(20) - 10)
End Sub
Private Function Random(Num As Integer)
Random = Int(Rnd * Num)
End Function
Private Sub cmdTremer_Click()
If cmdTremer.Caption = "Tremer Mouse" Then
Timer1.interval = 1
cmdTremer.Caption = "Normalizar Mouse"
Else
Timer1.interval = 0
cmdTremer.Caption = "Tremer Mouse"
End If
End Subemer Mouse"
End If
End Sub é bom que use uma tecla como ataque para facilitar a desativar a "brincadeira" .  Créditos: SSOfun.
Última edição por SSO em Seg Jan 07, 2013 6:17 am, editado 1 vez(es) | |
|
Warrior
Admin
Mensagens : 164
Moeda : 1726
Pontos : 3
Data de inscrição : 30/08/2012
Idade : 33
| | Assunto: Re: Mouse tremer Seg Jan 07, 2013 5:50 am | |
| So falto oque o sistema faz nao e mesmo arrume o tópico com oque ele faz ^^ | |
|
