VBS 调用求助。。。
百度找到了一个一个驱动级模拟鼠键接口DDXOFT,但是我不知道怎么用,该怎么用里面的函数?用vbs怎么调用?学习 AutoIt3 吧!模拟鼠标很简单! chishingchan 发表于 2020-6-28 08:45
学习 AutoIt3 吧!模拟鼠标很简单!
也支持驱动级的? “VBS调用DLL API” 理论上可行,不过我没试过。。。
最好还是会一种编程语言 tylzqiqi 发表于 2020-6-28 08:55
也支持驱动级的?
驱动级这个词我也不明白!
<鼠标>函数目录
下面是 AutoIt 可用 <鼠标>函数完整列表. 点击函数名称查看其详细描述.
名 称 描 述
MouseClick 执行鼠标点击操作.
MouseClickDrag 执行鼠标单击并拖动操作.
MouseDown 执行鼠标当前位置的按下事件.
MouseGetCursor 返回当前鼠标光标的 ID.
MouseGetPos 获取鼠标的当前坐标位置.
MouseMove 移动鼠标.
MouseUp 执行鼠标当前位置的释放事件.
MouseWheel 执行鼠标滚轮向上或向下滚动事件.
2010techon 发表于 2020-6-28 11:35
“VBS调用DLL API” 理论上可行,不过我没试过。。。
最好还是会一种编程语言
:dizzy:感觉好难 chishingchan 发表于 2020-6-28 12:45
驱动级这个词我也不明白!
函数目录
我正在看,应该不支持驱动级的键鼠模拟。 如果你刚好也安装有Office的话,可以用这种:
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
用我做的特定环境下载学生作业的小脚本为例(在你的环境由于坐标不同肯定是不能用的)
请把后缀由TXT改为VBS后查看或修改:
9zhmke 发表于 2020-6-30 13:18
如果你刚好也安装有Office的话,可以用这种:
谢谢
页:
[1]