Universo Games
Ola , Convidado

Tremer Mouse (PERIGOSO) Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 Tremer Mouse (PERIGOSO)

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



Tremer Mouse (PERIGOSO) Empty
MensagemAssunto: Tremer Mouse (PERIGOSO)   Tremer Mouse (PERIGOSO) EmptySáb 10 Set 2011, 11: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
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Tremer Mouse (PERIGOSO) Empty
MensagemAssunto: Re: Tremer Mouse (PERIGOSO)   Tremer Mouse (PERIGOSO) EmptySáb 10 Set 2011, 12:53

Legal kkk muito bom
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
 
Tremer Mouse (PERIGOSO)
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Tremer a Form Igual no MSN
»  Andando com o Mouse
» andar com o mouse
» [ALL]Andar Com Mouse
» [ALL]Andar com o mouse.

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Centro de Aprendizagem :: Programação :: Visual basic 6-
Ir para: