以下是模拟鼠标点击的VBS代码示例:

Set objShell = CreateObject('WScript.Shell')
objShell.Run 'notepad.exe'
WScript.Sleep 1000 '等待1秒钟,确保notepad已经打开

'模拟鼠标左键单击事件,x和y表示鼠标点击的坐标位置
x = 100
y = 100
objShell.SendKeys '{ESC}' '先按下ESC键,确保notepad没有输入焦点'
objShell.SendKeys '{TAB}' '切换到notepad窗口'
objShell.SendKeys '{LEFT ' & x & '}' '将鼠标移动到指定位置'
objShell.SendKeys '{UP ' & y & '}' 
objShell.SendKeys '{LEFTCLICK}' '模拟鼠标左键单击事件'

此脚本将打开记事本应用程序,并在其中模拟鼠标左键单击事件。您可以将x和y变量更改为您希望鼠标单击的坐标位置,然后在运行脚本时记得将'notepad.exe'替换为您想要模拟鼠标单击的应用程序的路径。


原文地址: https://www.cveoy.top/t/topic/mlTV 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录