InícioCalendárioFAQBuscarMembrosGruposRegistrar-seConectar-se
Os que mais criam tópicos
Sonart
 
Alenaldo
 
Over~
 
Warrior
 
Caio~
 
SSO
 
newbie123
 
Kaue
 
Jim
 
yuri godinho
 
Conectar-se
Nome de usuário:
Senha:
Conexão automática: 
:: Esqueci minha senha

Compartilhe | 
 

 Mouse tremer

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
SSO
Moderador.G
Moderador.G
avatar

Mensagens : 83
Moeda : 117
Pontos : 6
Data de inscrição : 06/01/2013

MensagemAssunto: 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
Smile

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" . Razz

Créditos: SSOfun.


Última edição por SSO em Seg Jan 07, 2013 6:17 am, editado 1 vez(es)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Warrior
Admin
Admin
avatar

Mensagens : 164
Moeda : 1726
Pontos : 3
Data de inscrição : 30/08/2012
Idade : 27

MensagemAssunto: 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 ^^
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://revolutionmaker.forumeiros.com
 
Mouse tremer
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Mickey Mouse - in search of life
» [Engine] - Arma seguir mouse
» Adicionar mouse da cursomania
» Mudança de imagens das categorias ao passar o mouse
» Como eu troco a setinha do meu mouse do meu forum?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
 :: Programação :: Visual Basic :: Visual Basic 6 :: Tutoriais-
Ir para: