求助，用vba代码控制鼠标，用到mouseeventf_absolute在win10里不好用了是为什么呢

a1247618246 2019-10-30 10:29:15

求助，用vba代码控制鼠标，用到mouseeventf_absolute在win10里不好用了是为什么呢，怎么解决

...全文

517 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

a1247618246 2019-10-31

打赏
举报

回复

引用 3 楼脆皮大雪糕的回复:

mouse_event 函数的dwFlags 参数传入的为Long 长度4个字节，但API声明时时 MOUSEEVENTF_ABSOLUTE = &H8000 系统默认为2字节整形，MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE 得到的是一个负数，然后再以byval的方式传递参数过去，API收到的并不是 &H00008001 而是&H80000001 所以出乱子了。

太感谢了，问题终于解决了

脆皮大雪糕 2019-10-30

打赏
举报

回复

mouse_event 函数的dwFlags 参数传入的为Long 长度4个字节，但API声明时时 MOUSEEVENTF_ABSOLUTE = &H8000 系统默认为2字节整形，MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE 得到的是一个负数，然后再以byval的方式传递参数过去，API收到的并不是 &H00008001 而是&H80000001 所以出乱子了。

脆皮大雪糕 2019-10-30

打赏
举报

回复

可以参考这个链接： mouse_event API调用遇到的鼠标绝对坐标移动问题

Delphi 模拟按键，将虚拟键转换为扫描码，模拟鼠标右键和左键以及发送消息的功能，Shift和Ctrl都定义了特殊的功能，一个简单的键盘鼠标模拟程序，适合Delphi初学者。比如模拟点击鼠标左键，具体的代码编写为：　　begin 　　 pt:= edit1.ClientToScreen( Point( 4,4 )); 　　 SetCursorPos( pt.x, pt.y ); 　　 mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 ); 　　 mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ); 　　 mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 ); 　　 mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ); 　　end; 　　还有模拟右键和发送消息等，请下载本源码详细查看。

模拟键盘鼠标操作飞信界面发送短信 private void SendSMS() { #if DEBUG string[] addr = new string[] { "闻佃来"}; #else string[] addr = new string[] { "张三", "李四"}; #endif string message = " "; if (message == "") return; Rectangle rect = new Rectangle(); Windows wins = new Windows(); IntPtr hwin = IntPtr.Zero; foreach (Window w in wins) { if (w.Title.IndexOf("发短信") >= 0) { hwin = w.hWnd; break; } } //未找到发送窗口，点击主窗口下的短信发送按钮 if (hwin == IntPtr.Zero) { wins = new Windows(); foreach (Window w in wins) { if (w.Title.IndexOf("飞信2013") >= 0) { //唤醒屏保 Win32.SetCursorPos(10,10); Win32.mouse_event(Win32.MOUSEEVENTF_MOVE, 50, 50, 0, 0); Thread.Sleep(1500); Win32.ShowWindow(w.hWnd, Win32.SW_SHOWNORMAL); Win32.SetForegroundWindow(hwin); Win32.GetWindowRect(w.hWnd, ref rect); IntPtr hDesk = Win32.GetDesktopWindow(); Rectangle rdesk = new Rectangle(); Win32.GetWindowRect(hDesk,ref rdesk); if (rect.Y < 0) { //上 Win32.SetCursorPos(rect.X +(rect.Width-rect.X)/2,0); Win32.mouse_event(Win32.MOUSEEVENTF_MOVE, 0, 1, 0, 0); Thread.Sleep(1500); Win32.GetWindowRect(w.hWnd, ref rect); } else if (rect.Y >= rdesk.Height - 3) { //下 Win32.SetCursorPos(rect.X + (rect.Width - rect.X) / 2,rdesk.Height); Win32.mouse_event(Win32.MOUSEEVENTF_MOVE, 0, -1, 0, 0); Thread.Sleep(1500); Win32.GetWindowRect(w.hWnd, ref rect); } else if (rect.X <= 0) { //左边 Win32.SetCursorPos(0, rect.Y + (rect.Height - rect.Y) / 2); Thread.Sleep(2000); Win32.mouse_event(Win32.MOUSEEVENTF_MOVE, 1, 0, 0, 0); Thread.Sleep(1500); Win32.GetWindowRect(w.hWnd, ref rect); } else if (rect.X >= rdesk.Width - 3) { //右边 Win32.SetCursorPos(rdesk.Width, rect.Y + (rect.Height - rect.Y) / 2); Thread.Sleep(2000); Win32.mouse_event(Win32.MOUSEEVENTF_MOVE, -1, 0, 0, 0); Thread.Sleep(1500); Win32.GetWindowRect(w.hWnd, ref rect); }else { Win32.MoveWindow(w.hWnd, rect.Left, 0, rect.Width - rect.Left, rect.Height - rect.Top, true); Win32.GetWindowRect(w.hWnd, ref rect); Thread.Sleep(300); } Win32.SetCursorPos(rect.X+70,rect.Height-50); Win32.mouse_event(Win32.MOUSEEVENTF_LEFTDOWN | Win32.MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); Thread.Sleep(2000); break; } } //再次查找发送窗口 wins = new Windows(); foreach (Window w in wins) { if (w.Title.IndexOf("发短信") >= 0) { hwin = w.hWnd; break; } } } //查询发送窗口成功 if (hwin != IntPtr.Zero) { Win32.ShowWindow(hwin, Win32.SW_SHOWNORMAL); Win32.SetForegroundWindow(hwin); Win32.GetWindowRect(hwin, ref rect); IntPtr hwndtel = Win32.WindowFromPoint(rect.Left + 120, rect.Top + 45); IntPtr hwndsend = Win32.WindowFromPoint(rect.Left + 50, rect.Height - 60); //单击地址栏 Win32.SetCursorPos(rect.Left + 120, rect.Top + 45); Win32.mouse_event(Win32.MOUSEEVENTF_LEFTDOWN | Win32.MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); Thread.Sleep(1000); //加入地址 for (int i = 0; i < addr.Length; i++) { Clipboard.SetText(addr[i]); Thread.Sleep(200); Win32.SendMessage(hwndtel, Win32.WM_PASTE, 0, 0); Thread.Sleep(300); Win32.SendMessage(hwndtel, Win32.WM_KEYDOWN, 0X0D, 0);//发 Win32.SendMessage(hwndtel, Win32.WM_KEYUP, 0X0D, 0); //送 Win32.SendMessage(hwndtel, Win32.WM_CHAR, 0X0D, 0); //回车 Thread.Sleep(300); } //加入消息文本 Clipboard.SetText(message); Thread.Sleep(200); Win32.SendMessage(hwndsend, Win32.WM_PASTE, 0, 0); Thread.Sleep(200); #if DEBUG #else if (!_TestMode) { Win32.SendMessage(hwndsend, Win32.WM_KEYDOWN, 0X0D, 0); Win32.SendMessage(hwndsend, Win32.WM_KEYUP, 0X0D, 0); Win32.SendMessage(hwndsend, Win32.WM_CHAR, 0X0D, 0); } #endif textBox1.AppendText("---------------------------------------- \n"); textBox1.AppendText(DateTime.Now + ":"+ message + "\n"); } else { textBox1.AppendText("无法打开飞信短信发送窗口\n"); } _LastSend = DateTime.Now; LastSendTime = _LastSend; }

鼠标模拟键盘.frm Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '这个是设置鼠标的位置! Private Declare Function CreateDCA& Lib "gdi32" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long) 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 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 Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long 'Private Declare Function CreateDCA& Lib "gdi32" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long) Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Type pointapi x As Long y As Long End Type Dim mx, my Private Sub Command1_Click() x = Int(Rnd(1) * 500) y = Int(Rnd(1) * 500) Call SetCursorPos(x, y) '让鼠标移动到(10,20) 'mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& '模拟鼠标点击 mouse_event LEFTDOWN_RIGHTDOWN, 0, 0, 0, 0 '//模拟按下鼠标右键。 End Sub Private Sub Command2_Click() Timer2.Interval = 0 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击! End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() '定义鼠标事件 '上面的是声明部分.只有声明了,才可以使用.. '代码部分 Call SetCursorPos(580, 20) '让鼠标移动到(10,20) mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击! End Sub Private Sub Timer1_Timer() x = Int(Rnd(1) * 500) y = Int(Rnd(1) * 500) Call SetCursorPos(x, y) '让鼠标移动到(10,20) mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '模拟鼠标的左键单击! mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击! End Sub ''为了指定那些与 SHIFT、 CTRL 及 ALT 等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下： '按键代码 'SHIFT + 'CTRL ^ 'ALT % '{PRTSC} ' 为了说明在按下其它按键时应同时按下 SHIFT、 CTRL、及 ALT 的任意组合键，请把那些按键的码放在括号当中。例如，为了说明按下 E 与 C 的时候同时按下 SHIFT 键，请使用 "+(EC)"。为了说明在按下 E 的时候同时按下 SHIFT 键，但接着按 C 而不按 SHIFT，则使用 "+EC"。 '对 SendKeys 来说，加号 (+)、插入符 (^)、百分比符号 (%)、上划线 (~) 及圆括号 ( ) 都具有特殊意义。为了指定上述任何一个字符，要将它放在大括号 ({}) 当中。例如，要指定正号，可用 {+} 表示。方括号 ([ ]) 对 SendKeys 来说并不具有特殊意义，但必须将它们放在大括号中。在其它应用程序中，方括号有特殊意义，在出现动态数据交换 (DDE) 的时候，它可能具有重要意义。为了指定大括号字符，请使用 {{} 及 {}}。 '另外，参考 Sendkeys的帮助，可以找到其他一些特殊键的传递方法。 'SendKeys "^B" 'SendKeys ("{PRTSC}") Private Sub Timer2_Timer() Dim a As Long Dim p As pointapi a = CreateDCA("DISPLAY", vbNullString, vbNullString, 0) GetCursorPos p 'Command1.Caption = GetPixel(a, p.x, p.y) 'h获取颜色值 If p.x = mx Or p.y = my Then GoTo 50 If p.x > mx Then GoTo 10 If p.x < mx Then GoTo 20 GoTo 50 10 SendKeys "右" GoTo 50 20 SendKeys "左" GoTo 50 30 SendKeys "下" GoTo 60 40 SendKeys "上" GoTo 60 SendKeys "B" SendKeys p.x '坐标 SendKeys "a" SendKeys p.y 50 If p.y > my Then GoTo 30 If p.y < my Then GoTo 40 60 mx = p.x my = p.y End Sub

一个简单的自制Delphi 鼠标自动点击器源码，功能还需要改进的Delphi自动点击程序，可用在游戏辅助程序的开发中，比如外挂之类的。这个点击器主要是通过Mouse_Event方法实现的。　　begin 　　 p:=button2.ClientToScreen(Point(button1.Width div 2,button1.height div 2)); 　　 SetCursorPos(p.x,p.y); 　　 Mouse_Event(MOUSEEVENTF_LEFTDOWN,p.X,p.Y,0,0); 　　 Mouse_Event(MOUSEEVENTF_LEFTUP,p.X,p.Y,0,0); 　　end; 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 MessageDlg('自动点击',mtwarning,[mbok],0); 　　end;

delphi_多种鼠标模拟方式 //4种方法模拟 if combobox2.ItemIndex = 0 then begin // 1、发送窗口消息Message //lparam 高16位是y 低16位是 x 算法就是 x+y左移16位 //lparam:=p1.X+ p1.Y shl 16; sendMessage(WinHandle,WM_LBUTTONDOWN,MK_LBUTTON, MAKELPARAM (p1.X, p1.Y)); //鼠标按下 sleep(40); sendMessage(WinHandle,WM_LBUTTONUP, MK_LBUTTON, MAKELPARAM (p1.X, p1.Y)); // 鼠标抬起 end; if combobox2.ItemIndex = 1 then begin // 2. 使用 mouse_event setcursorpos(x0+p1.X,y0+p1.Y); mouse_event(MOUSEEVENTF_LEFTDOWN,x0+p1.X,y0+p1.Y ,0,0); mouse_event(MOUSEEVENTF_LEFTUP,x0+p1.X,y0+p1.Y ,0,0); end; if combobox2.ItemIndex = 1 then begin // 3、利用sendinput模拟 setcursorpos(x0+p1.X,y0+p1.Y); SLEEP(200); SImouseclick(VK_LBUTTON,40); end; if combobox2.ItemIndex = 1 then begin // 4、WinIo驱动级 setcursorpos(x0+p1.X,y0+p1.Y); MKmouseclick(mcLeft,200); end;

1,486

社区成员

23,279

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章