Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Tremer Mouse (PERIGOSO)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Tremer Mouse (PERIGOSO)

Mensagem por RenanR em Sab 10 Set 2011, 10:35

Bom, pessoal, é 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"

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(20) - 10, Pos.y + Random(20) - 10)
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.
créditos : Boun
avatar
RenanR

Mensagens : 119

http://mmomakerbr.ativoforum.com

Voltar ao Topo Ir em baixo

Tutorial Re: Tremer Mouse (PERIGOSO)

Mensagem por Lucas Roberto em Sab 10 Set 2011, 11:53

Legal kkk muito bom

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum