Visual Basic'n'Delphi Tip: Detectando e simulando cliques e posição do mouse: Macros

Olá pessoal.
Neste artigo iremos tratar sobre a criação de programas de macro, tanto no VB como no Delphi.
Creio que alguém já teve de criar um programa que detectasse clique fora da janela do programa ou mesmo simular o clique.
Pois bem. Iremos por etapas.

Detectando posição do mouse

Este algoritmo é muito fácil. Deve-se usar a API GetCursorPos da biblioteca User32 e usar o tipo POINTAPI. O código é o seguinte:

Private Type POINTAPI X as Long Y as Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'exemplo segue abaixo Sub Timer1_Timer() Dim pt As POINTAPI GetCursorPos pt Me.Cls Me.Print pt.X, pt.Y 'os valores de x e y serão respectivamente pt.x e pt.y End Sub
No Delphi, fica:
procedure TForm1.Button1Click(Sender: TObject); var pt: TPoint; begin GetCursorPos(pt); self.Caption:=IntToStr(pt.x) + 'x' + IntToStr(pt.y) end;

Detectando cliques

Creio que muita gente não sabe, mas é possível detectar o botão do mouse como se fosse do teclado. Não é necessário usar nenhum hook complexo nem funções complicadas. Usa-se somente a função GetAsyncKeyState da biblioteca User32. O código dos botões do mouse equivalem aos valores vbLeftButton, vbRightButton e vbMiddleButton, respectivamente 1,2 e 4.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'exemplo segue abaixo Sub Timer1_Timer() me.cls me.print iif(GetAsyncKeyState(1), "Left", iif(GetAsyncKeyState(2),"Right","None")) End Sub
No delphi, é simplesmente "self.Caption:=IntToStr(GetAsyncKeyState(1));" pois não há a necessidade de declarar tal função.

"Clicando" automaticamente

Existe a função mouse_event, que simula cliques.
Private 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) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Const MOUSEEVENTF_RIGHTDOWN = &H8 Private Const MOUSEEVENTF_RIGHTUP = &H10 Private Const MOUSEEVENTF_ABSOLUTE = &H8000 Sub SimulaClick() mouse_event MOUSEEVENTF_LEFTDOWN, 0,0,0,0 mouse_event MOUSEEVENTF_LEFTUP, 0,0,0,0 'fecha o clique 'caso não for colcada a linha acima, ele simula a função de drag-drop (arrastar e soltar) End sub

No delphi é simplismente:
mouse_event(MOUSEEVENTF_LEFTDOWN, 0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP, 0,0,0,0);

Lembrando que tal função clica no local onde o cursor está. Por isso, há necessidade de se mover o mouse antes de se clicar. Veremos a função de mover o mouse a seguir.

Movendo o mouse automaticamente

Existe a função SetCursorPos da biblioteca User32.
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long 'exemplo segue abaixo Sub MoverMouse() SetCursorPos 500,200 '(move-se o mouse até o ponto 500x200px. No delphi é simplismente "SetCursorPos(500,200)", e onde é 500 e 200, irá a sua posição de cursor.

Programa para gravar macro

Juntando todas essas APIs, você pode construir um programa de criação de macros do simples ao avançado.

Estarei postando em breve o programa de criação de macros.

Fique ligado!