用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
2017-01-28 21:42
766 查看
Demon's Blog
忘记了,喜欢一个人的感觉
Demon's Blog » 程序设计 » 用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
« bbPress积分插件——Virtual Money
VBS调用WMI监视注册表变动 »
标题: 用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
作者: Demon
链接: http://demon.tw/programming/vbs-control-mouse.html
版权: 本博客的所有文章,都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。
不止一个人问过我怎样用VBS控制鼠标操作,比如:怎么用VBS获取鼠标指针的坐标位置?怎么用VBS移动鼠标?怎么用VBS模拟鼠标左键单击、左键双击、右键单击?……
网上搜到的答案普遍是VBS无法实现,或者是要用第三方COM(ActiveX?)组件。我对第三方组件是很反感的,使用第三方组件毫无可移植性可言,因为别人的系统中不一定注册了这个组件。我的建议是,尽量不要在VBS代码中调用第三方组件,除非你的程序只是写来自己用。(顺便说一下,也尽量不要用不靠谱的Sendkeys方法,原因不解释)
好了,废话就说这么多,现在说说用VBS控制鼠标的方法。我以前写过一篇《VBS调用Windows API函数》,本以为既然都能调用API了,用VBS控制鼠标还不是很简单是事?事实证明我错了,不明真相的同学永远是大多数,不知道API是什么的VBSer大有人在。不贴出实实在在的代码,他们根本不会自己写!
使用此代码的前提是你的系统上安装了Excel,因为要用到Excel.Application对象(如果你偏要认为这算第三方组件我也没话说):
注释已经够详细了,要知道我很少写注释的,如果还看不懂,说明你的水平有待提高!
相关文章:
VBS调用Windows API函数
Workbooks.Open中的相对路径
VBS模拟POST上传文件
VBS中没有vbHide常量
用VBS实现繁体中文和简体中文转换
随机文章:
Windows 7在桌面创建宽带连接快捷方式
批处理技术内幕:IF命令
JavaScript 中小数和大整数的精度丢失
MySQL的Unicode支持
批处理技术内幕:ECHO命令
这篇文章发布于 2011年05月10日,星期二,15:46,归类于 程序设计。 您可以跟踪这篇文章的评论通过RSS 2.0 feed。 您可以留下评论,或者从您的站点trackback。
![](http://0.gravatar.com/avatar/3be974b963adb4fc82ddabc027d0dc3e?s=32&d=monsterid&r=g)
1说道:
忘记了,喜欢一个人的感觉
Demon's Blog » 程序设计 » 用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
« bbPress积分插件——Virtual Money
VBS调用WMI监视注册表变动 »
用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
标签: Excel.Application, VB, VBS, VBScript, Windows API, 鼠标标题: 用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
作者: Demon
链接: http://demon.tw/programming/vbs-control-mouse.html
版权: 本博客的所有文章,都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。
不止一个人问过我怎样用VBS控制鼠标操作,比如:怎么用VBS获取鼠标指针的坐标位置?怎么用VBS移动鼠标?怎么用VBS模拟鼠标左键单击、左键双击、右键单击?……
网上搜到的答案普遍是VBS无法实现,或者是要用第三方COM(ActiveX?)组件。我对第三方组件是很反感的,使用第三方组件毫无可移植性可言,因为别人的系统中不一定注册了这个组件。我的建议是,尽量不要在VBS代码中调用第三方组件,除非你的程序只是写来自己用。(顺便说一下,也尽量不要用不靠谱的Sendkeys方法,原因不解释)
好了,废话就说这么多,现在说说用VBS控制鼠标的方法。我以前写过一篇《VBS调用Windows API函数》,本以为既然都能调用API了,用VBS控制鼠标还不是很简单是事?事实证明我错了,不明真相的同学永远是大多数,不知道API是什么的VBSer大有人在。不贴出实实在在的代码,他们根本不会自己写!
使用此代码的前提是你的系统上安装了Excel,因为要用到Excel.Application对象(如果你偏要认为这算第三方组件我也没话说):
Option Explicit Dim WshShell Dim oExcel, oBook, oModule Dim strRegKey, strCode, x, y Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象 set WshShell = CreateObject("wscript.Shell") strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM" strRegKey = Replace(strRegKey, "$", oExcel.Version) WshShell.RegWrite strRegKey, 1, "REG_DWORD" Set oBook = oExcel.Workbooks.Add '添加工作簿 Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块 strCode = _ "'Author: Demon" & vbCrLf & _ "'Website: http://demon.tw" & vbCrLf & _ "'Date: 2011/5/10" & vbCrLf & _ "Private Type POINTAPI : X As Long : Y As Long : End Type" & vbCrLf & _ "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf & _ "Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long" & vbCrLf & _ "Private Declare Sub mouse_event Lib ""user32"" Alias ""mouse_event"" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)" & vbCrLf & _ "Public Function GetXCursorPos() As Long" & vbCrLf & _ "Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X" & vbCrLf & _ "End Function" & vbCrLf & _ "Public Function GetYCursorPos() As Long" & vbCrLf & _ "Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y" & vbCrLf & _ "End Function" oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码 'Author: Demon 'Website: http://demon.tw 'Date: 2011/5/10 x = oExcel.Run("GetXCursorPos") '获取鼠标 X 坐标 y = oExcel.Run("GetYCursorPos") '获取鼠标 Y 坐标 WScript.Echo x, y oExcel.Run "SetCursorPos", 30, 30 '设置鼠标 X Y 坐标 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_ABSOLUTE = &H8000 '模拟鼠标左键单击 oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标左键双击(即快速的两次单击) oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标右键单击 oExcel.Run "mouse_event", MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 '模拟鼠标中键单击 oExcel.Run "mouse_event", MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0 '关闭 Excel oExcel.DisplayAlerts = False oBook.Close oExcel.Quit
注释已经够详细了,要知道我很少写注释的,如果还看不懂,说明你的水平有待提高!
相关文章:
VBS调用Windows API函数
Workbooks.Open中的相对路径
VBS模拟POST上传文件
VBS中没有vbHide常量
用VBS实现繁体中文和简体中文转换
随机文章:
Windows 7在桌面创建宽带连接快捷方式
批处理技术内幕:IF命令
JavaScript 中小数和大整数的精度丢失
MySQL的Unicode支持
批处理技术内幕:ECHO命令
这篇文章发布于 2011年05月10日,星期二,15:46,归类于 程序设计。 您可以跟踪这篇文章的评论通过RSS 2.0 feed。 您可以留下评论,或者从您的站点trackback。
12 条评论 发表在“用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)”上
1说道:
相关文章推荐
- 用VBS控制鼠标的实现代码(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击)
- 用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)
- 用Kinect来控制鼠标的移动、单击、双击和右击 及PPT控制(Windows sdk)
- 用Kinect来控制鼠标的移动、单击、双击和右击 (Windows sdk)
- js获取鼠标移动时的坐标
- 发现:Click事件也能获取鼠标单击的坐标
- 捏合视图变化(视图的缩放), 单击随着鼠标移动, 双击放大视图,再双击还原视图
- 用JavaScript 获取鼠标移动时的坐标(兼容:IE8、谷歌、Firefox)和用jquery方法的简单分析
- 获取鼠标点击处的控件并获取其坐标(对控制控件和绘制控件都很实用)
- 发现:Click事件也能获取鼠标单击的坐标
- JavaScript获取鼠标移动时的坐标(兼容IE8、chome谷歌、Firefox)
- java 鼠标单击和双击的控制
- C++获取鼠标坐标并移动鼠标
- Unity简单利用屏幕坐标转换实现鼠标控制物体移动
- js-事件1_获取鼠标坐标clientX+scrollLeft及兼容性写法_跟随鼠标移动的divs
- 转:java 鼠标单击和双击的控制
- U6数据导出工具项目总结三 鼠标单击或者双击DataGridView控件时获取鼠标点击位置的值
- gridview鼠标双击事件(跳转至新页面并传值)单击获取值
- Click事件也能获取鼠标单击的坐标