Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Tremer Mouse (PERIGOSO)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Tremer Mouse (PERIGOSO) em Sab 10 Set 2011, 10:35

RenanR


Membro
Membro
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

http://mmomakerbr.ativoforum.com

2Tutorial Re: Tremer Mouse (PERIGOSO) em Sab 10 Set 2011, 11:53

Luucas Robeerto


Fundador
Fundador
Legal kkk muito bom


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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