赞助商链接
鼠标坐标点击助手是一款可以指定鼠标坐标位置的鼠标连点器，你可以指定鼠标连点功能在某个具体坐标处运行，鼠标坐标点击助手使用非常方便。
关键字： ,
&&请点击以下的链接下载该软件：&
软件按字母排列：
中文按声母排列：你的位置：
关于鼠标指定位置点击的有些问题请教大家
23:18:49 |
来源: 按键精灵资源站
问题1：如我希望做个脚本将鼠标移到指定坐标，并点击，实际操作效果是会看到鼠标从当前位置移动到指定位置还是刷的一下出现在指定位置看不到移动轨迹？
问题2：在问题1的基础上 ，假如在运行移动鼠标脚本并点击的过程中我只移动鼠标不点击 而且不停移动超级快会对脚本运行结果有影响么，就是好比脚本运行中鼠标已经移动到指定位置了正要做点击命令时的瞬间由于我快速移动鼠标 会不会导致点下去的时候鼠标不在指定位置？
问题3：在问题2的基础上， 有没有什么命令做到在脚本运行过程中 人为操作鼠标无效？、
希望资深人士能帮忙解答一下&&谢谢了！！！&&& 用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）
不止一个人问过我怎样用VBS控制鼠标操作，比如：怎么用VBS获取鼠标指针的坐标位置？怎么用VBS移动鼠标？怎么用VBS模拟鼠标左键单击、左键双击、右键单击？……
网上搜到的答案普遍是VBS无法实现，或者是要用第三方COM（ActiveX？）组件。我对第三方组件是很反感的，使用第三方组件毫无可移植性可言，因为别人的系统中不一定注册了这个组件。我的建议是，尽量不要在VBS代码中调用第三方组件，除非你的程序只是写来自己用。（顺便说一下，也尽量不要用不靠谱的Sendkeys方法，原因不解释）
好了，废话就说这么多，现在说说用VBS控制鼠标的方法。我以前写过一篇《》，本以为既然都能调用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, <span style="color: #, &REG_DWORD&
Set oBook = oExcel.Workbooks.Add '添加工作簿
Set oModule = obook.VBProject.VBComponents.Add(<span style="color: #) '添加模块
strCode = _
&'Author: Demon&
& vbCrLf & _
&'Website: http://demon.tw& & vbCrLf & _
& 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
x = oExcel.Run(&GetXCursorPos&) '获取鼠标 X 坐标
y = oExcel.Run(&GetYCursorPos&) '获取鼠标 Y 坐标
WScript.Echo x, y
oExcel.Run &SetCursorPos&, <span style="color: #, <span style="color: # '设置鼠标 X Y 坐标
Const MOUSEEVENTF_MOVE
Const MOUSEEVENTF_LEFTDOWN
Const MOUSEEVENTF_LEFTUP
Const MOUSEEVENTF_RIGHTDOWN
Const MOUSEEVENTF_RIGHTUP
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP
Const MOUSEEVENTF_ABSOLUTE
'模拟鼠标左键单击
oExcel.Run &mouse_event&, MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, <span style="color: #, <span style="color: #, <span style="color: #, <span style="color: #
'模拟鼠标左键双击（即快速的两次单击）
oExcel.Run &mouse_event&, MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, <span style="color: #, <span style="color: #, <span style="color: #, <span style="color: #
oExcel.Run &mouse_event&, MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, <span style="color: #, <span style="color: #, <span style="color: #, <span style="color: #
'模拟鼠标右键单击
oExcel.Run &mouse_event&, MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, <span style="color: #, <span style="color: #, <span style="color: #, <span style="color: #
'模拟鼠标中键单击
oExcel.Run &mouse_event&, MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, <span style="color: #, <span style="color: #, <span style="color: #, <span style="color: #
'关闭 Excel
oExcel.DisplayAlerts = False
oBook.Close
oExcel.Quit
注释已经够详细了，要知道我很少写注释的，如果还看不懂，说明你的水平有待提高！
这篇文章发布于 日，星期二，15:46，归类于 。
您可以跟踪这篇文章的评论通过
您可以，或者从您的站点。&>&&>&&>&&>&鼠标移动到指定位置点击
鼠标移动到指定位置点击
上传大小：6KB
VB控制鼠标到指定位置点击，计算点击次数。
综合评分：0（0位用户评分）
所需积分：5
下载次数：4
审核通过送C币
创建者：caozhy
创建者：sysdzw
创建者：sysdzw
课程推荐相关知识库
上传者其他资源上传者专辑
开发技术热门标签
VIP会员动态
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
android服务器底层网络模块的设计方法
所需积分：0
剩余积分：720
您当前C币：0
可兑换下载积分：0
兑换下载分：
兑换失败，您当前C币不够，请先充值C币
消耗C币：0
你当前的下载分为234。
鼠标移动到指定位置点击
会员到期时间：
剩余下载次数：
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：}