526互联

Delphi模拟鼠标点击

发布时间 2023-11-25 22:14:02作者: yanglu_51
1 var
2 FindW:HWND;
3 begin
4 findw:=FindWindow(nil,'欢迎使用百度网盘');
5 sendmessage(FindW,messages.WM_LBUTTONDOWN ,0,$00250107);
6 sendmessage(FindW,messages.WM_LBUTTONUP ,0,$0015043D);
7 end;

 HWND FindWindow(

  LPCTSTR lpClassName,  // 通过查找窗口类名 获取句柄 nil

  LPCTSTR lpWindowName  // 通过查找窗口标题 获取句柄== '欢迎使用百度网盘

 

  LRESULT SendMessage(

  HWND hWnd,      // 目标窗口句柄 在这里由FindWindow获取

  UINT Msg,       // 发送消息类型 WM_LBUTTONDOWN WM_LBUTTONUP 00250107

  WPARAM wParam,  // 这个我们用不着

  LPARAM lParam   // 这个是鼠标点击 窗口的坐标 高位是Y，低位X

 );               

 

//鼠标软模拟：好处就是不会真的移动鼠标  开始按钮 坐标 x=386  y=387

 sendmessage(hookHwnd,messages.WM_LBUTTONDOWN ,0,$0180017A);// 按下鼠标左键

 sendmessage(hookHwnd,messages.WM_LBUTTONUP  ,0, $0180017A); //抬起鼠标左键

 

硬件模拟：会真的移动鼠标

//mouse_event(MOUSEEVENTF_LEFTDOWN,X ,Y , 0, 0);

//mouse_event(MOUSEEVENTF_LEFTUP,X ,Y , 0, 0);