AUTO CLICK

USUARIO.EXCLUIDOS 27/08/2006 19:16:43
#167741
Olá pessoal meu primeiro post aqui, bom eu trabalho com um servidor de jogo, e gostaria de disponibilizar os meus usuarios um ferramente de auto click, porém estou com dificuldades para desenvolver a mesma. Eu até consegui fazer ela, funciona clica normalmente mas quando eu tento usa-la dentro do jogo ela não funciona. Sei que não é proteção pois uso outros auto click e funciona e o meu que estou desenvolvendo não. Se alguem puder me dar um mão e dizer onde estou errado.

O Modulo com as funções de click do mouse vem abaixo:

[txt-color=#0000ff]Declare Function GetCursorPos& Lib "user32" (lpPoint As PointAPI)
Type PointAPI
x As Long
y As Long
End Type
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4

Sub MouseMove(xP As Long, yP As Long)
Dim move
move = SetCursorPos(xP, yP)
End Sub


Sub LeftClick(xP As Long, yP As Long)
mouse_event MOUSEEVENTF_LEFTDOWN, xP, yP, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, xP, yP, 0, 0
End Sub

[/txt-color]

Qualquer duvida a respeito podem perguntar.
USUARIO.EXCLUIDOS 27/08/2006 21:10:13
#167747
Olhe se isso pode lhe ajudar.
é um monte de Apis. Tem varias para mouse. Inclusive pra cliq.
USUARIO.EXCLUIDOS 28/08/2006 01:58:40
#167776
Ainda não deu certo amigo, mas valew mesmo assim foi bom que aprendi mais um jeito de fazer autoclick ^^, mas nenhum até agora funciona dentro do jogo
Tópico encerrado , respostas não são mais permitidas
Voltar