【VBS】vbs鼠标方法——模拟鼠标按键

引用于https://www.cnblogs.com/jinjiangongzuoshi/p/3821375.html


Set mouse=New SetMouse'mouse.getpos x,y ''获得鼠标当前位置坐标'MsgBox x & "," & ymouse.move 148,154 '把鼠标移动到坐标
WScript.Sleep 200
mouse.clik "DBCLICK" '左击
'"LEFT" 左击
'"RIGHT" 右击
'"MIDDLE" 中击
'"DBCLICK" 左双击Class SetMouse
private S
private xls, wbk, module1
private reg_key, xls_code, x, yPrivate Sub Class_Initialize()
Set xls = CreateObject("Excel.Application")
Set S = CreateObject("wscript.Shell")
'vbs 完全控制excel
reg_key = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
reg_key = Replace(reg_key, "$", xls.Version)
S.RegWrite reg_key, 1, "REG_DWORD"
'model 代码
xls_code = _
"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 getx() As Long" & vbCrLf & _
"Dim pt As POINTAPI : GetCursorPos pt : getx = pt.X" & vbCrLf & _
"End Function" & vbCrLf & _
"Public Function gety() As Long" & vbCrLf & _
"Dim pt As POINTAPI: GetCursorPos pt : gety = pt.Y" & vbCrLf & _
"End Function"
Set wbk = xls.Workbooks.Add
Set module1 = wbk.VBProject.VBComponents.Add(1)
module1.CodeModule.AddFromString xls_code
End Sub'关闭
Private Sub Class_Terminate
xls.DisplayAlerts = False
wbk.Close
xls.Quit
End Sub'可调用过程
Public Sub getpos( x, y)
x = xls.Run("getx")
y = xls.Run("gety")
End SubPublic Sub move(x,y)
xls.Run "SetCursorPos", x, y
End SubPublic Sub clik(keydown)
Select Case UCase(keydown)
Case "LEFT"
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
Case "RIGHT"
xls.Run "mouse_event", &H8 + &H10, 0, 0, 0, 0
Case "MIDDLE"
xls.Run "mouse_event", &H20 + &H40, 0, 0, 0, 0
Case "DBCLICK"
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
End Select
End SubEnd Class

【VBS】vbs鼠标方法——模拟鼠标按键相关推荐

php控制鼠标,HTML_用VBS控制鼠标的实现代码（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击），怎么用VBS模拟鼠标左键单击、 - phpStudy...
用VBS控制鼠标的实现代码(获取鼠标坐标.鼠标移动.鼠标单击.鼠标双击.鼠标右击) 怎么用VBS模拟鼠标左键单击.左键双击.右键单击?-- 网上搜到的答案普遍是VBS无法实现,或者是要用第三方COM( ...
用VBS控制鼠标，在Excel2010、2013，64位中
原作者文章地址:http://demon.tw/programming/vbs-control-mouse.html 感谢原作者的攻略,才使我学会用VBS控制鼠标. 可是问题接踵而至,Excel200 ...
无法找到脚本文件adsutil.vbs的解决方法
这篇文章主要介绍了iis7或iis7.5中无法找到脚本文件adsutil.vbs的解决方法,需要的朋友可以参考下 adsutil.vbs是什么,详细请参阅adsutil.vbs脚本基本用法. adsu ...
Windows编程捕获特定窗口及键盘鼠标消息模拟
Windows编程捕获特定窗口及键盘鼠标消息模拟一.简介二.使用到的API简介三.获取Windows记事本的编辑区窗口的句柄并模拟输入操作 1.分析 2.代码一 3.代码二四.后记一.简介 ...
模拟鼠标键盘html,模拟按键操作神器(鼠标键盘模拟操作助手)V2.0.2.1 正式版
模拟按键操作神器(鼠标键盘模拟操作助手)是一款很优秀好用的由网友自制的模拟按键操作的辅助工具.如果你需要一款好用的键盘模拟软件,小编带来的这款模拟按键操作神器是很不错的选择,功能强大全面,使用后可以帮 ...
linux屏幕滑动效果实现代码,使用swipe方法模拟屏幕滑动与手势密码绘制
前言 App自动化测试中有两个很重要的操作,屏幕滑动与绘制手势密码.目前很多App在启动时,都存在启动时的引导动画或者加载上下文内容时需要手动上滑或者下滑加载页面,所以在自动化测试的过程中模拟手的滑动 ...
python sendmessage 鼠标_sendmessage()模拟鼠标点击
{鼠标软模拟:好处就是不会真的移动鼠标开始按钮坐标 x=386y=387} sendmessage(hookHwnd,messages.WM_LBUTTONDOWN ,0,$0180017A); ...
js 原生方法 -- 模拟浏览器的点击事件
js 原生方法 – 模拟浏览器的点击事件 1. 创建自定事件并监听可看看 MDN 的 Evnet, CustomEvent 对象 <!DOCTYPE html> <html la ...
在我方某前沿防守地域 matlab,蒙特卡洛方法模拟小例子
例在我方某前沿防守地域,敌人以一个炮排(含两门火炮)为单位对我方进行干扰和破坏．为躲避我方打击,敌方对其阵地进行了伪装并经常变换射击地点．经过长期观察发现,我方指挥所对敌方目标的指示有50%是准确 ...

【VBS】vbs鼠标方法——模拟鼠标按键

【VBS】vbs鼠标方法——模拟鼠标按键相关推荐

最新文章

热门文章