1

Preciso simular o clique do mouse, porém não posso utilizar PostMessage nem mouse_event. Existe alguma outra maneira de enviar o clique?

1 Resposta 1

1

Você pode utilizar a API SendInput.

Sintetiza as teclas digitadas, movimentos de mouse e cliques de botão.

Obs: Esta função está sujeita a UIPI. Os pedidos são autorizados a injetar a entrada apenas em aplicações que estão em um nível de integridade igual ou inferior.

Supondo que você deseja primeiramente mover o cursor para uma ponto especifico, deve-se usar coordenadas absolutas no intervalo entre 0 e 65535, portanto, para calcular corretamente as coordenadas da tela, use a seguinte função:

function ObterCoordenada(const Indice, Posicao: Integer): Integer;
begin
  Result := (65535 div (GetSystemMetrics (Indice) -1)) * Posicao;
end;

Agora, a função responsável por mover o cursor e simular o clique com o botão esquerdo com a função SendInput:

procedure SimularClick(const X, Y: Integer);
var
Entrada: array [0..1] of TInput;
begin
  ZeroMemory(@Entrada, SizeOf(Entrada));
  // Primeiramente move o cursor do mouse a uma coordenada especifica, em Pixels!
  Entrada[0].Itype := INPUT_MOUSE;
  Entrada[0].mi.dwFlags := MOUSEEVENTF_MOVE or MOUSEEVENTF_ABSOLUTE;
  Entrada[0].mi.dx := ObterCoordenada(SM_CXSCREEN, X);
  Entrada[0].mi.dy := ObterCoordenada(SM_CYSCREEN, Y);
  SendInput(1, Entrada[0], sizeof(TInput)); // Envia o pedido

  // Realiza o click com o botão esquerdo do mouse
  Entrada[1].Itype := INPUT_MOUSE;
  Entrada[1].mi.dwFlags := MOUSEEVENTF_LEFTDOWN or MOUSEEVENTF_LEFTUP;

  SendInput(1, Entrada[1], sizeof(TInput));   // Envia o pedido
end;

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SimularClick(625, 486); // Onde "625" é X e "486", Y
end; 
2
  • Também não posso usar sendinput pois o programa fez um hook para bloqueio da função. pastebin.com/q8JmP6ix, o que eu posso fazer para bypassear este hook?
    – Fake
    Commented 4/05/2015 às 4:09
  • @Fake Complicado, porque o hooking trabalha a baixo nível, para anular a atividade do program que intercepta as chamadas do mouse, você terá que finalizá-lo ou impedir que ele instale o hook , ou seja, anular a função SetWindowsHookEx. Aqui fala algo sobre code injection, aqui tem outra abordagem.
    – stderr
    Commented 4/05/2015 às 17:12

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .