VBS 调用求助。。。

tylzqiqi

百度找到了一个一个驱动级模拟鼠键接口DDXOFT，但是我不知道怎么用，该怎么用里面的函数？用vbs怎么调用？

chishingchan

学习 AutoIt3 吧！模拟鼠标很简单！

tylzqiqi

chishingchan 发表于 2020-6-28 08:45
学习 AutoIt3 吧！模拟鼠标很简单！

也支持驱动级的？

2010techon

“VBS调用DLL API” 理论上可行，不过我没试过。。。
最好还是会一种编程语言

chishingchan

tylzqiqi 发表于 2020-6-28 08:55
也支持驱动级的？

驱动级这个词我也不明白！

<鼠标>函数目录
下面是 AutoIt 可用 <鼠标>函数完整列表. 点击函数名称查看其详细描述.

名 称 描 述
MouseClick 执行鼠标点击操作.

MouseClickDrag 执行鼠标单击并拖动操作.

MouseDown 执行鼠标当前位置的按下事件.

MouseGetCursor 返回当前鼠标光标的 ID.

MouseGetPos 获取鼠标的当前坐标位置.

MouseMove 移动鼠标.

MouseUp 执行鼠标当前位置的释放事件.

MouseWheel 执行鼠标滚轮向上或向下滚动事件.

tylzqiqi

2010techon 发表于 2020-6-28 11:35
“VBS调用DLL API” 理论上可行，不过我没试过。。。
最好还是会一种编程语言

感觉好难

tylzqiqi

chishingchan 发表于 2020-6-28 12:45
驱动级这个词我也不明白！

函数目录

我正在看，应该不支持驱动级的键鼠模拟。

9zhmke

如果你刚好也安装有Office的话，可以用这种：

1. 
   
2. Option Explicit
   
3. Dim WshShell
   
4. Dim oExcel, oBook, oModule
   
5. Dim strRegKey, strCode, x, y
   
6. Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象
   
7. set WshShell = CreateObject("wscript.Shell")
   
8. 
   
9. strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
   
10. strRegKey = Replace(strRegKey, "$", oExcel.Version)
    
11. WshShell.RegWrite strRegKey, 1, "REG_DWORD"
    
12. 
    
13. Set oBook = oExcel.Workbooks.Add '添加工作簿
    
14. Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块
    
15. strCode = _
    
16. "'Author: Demon"            & vbCrLf & _
    
17. "'Website: [url]http://demon.tw[/url]" & vbCrLf & _
    
18. "'Date: 2011/5/10"          & vbCrLf & _
    
19. "Private Type POINTAPI : X As Long : Y As Long : End Type"                                                                                                                            & vbCrLf & _
    
20. "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long"                                                                                     & vbCrLf & _
    
21. "Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long"                                                                                                  & vbCrLf & _
    
22. "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 & _
    
23. "Public Function GetXCursorPos() As Long"                                                                                                                                             & vbCrLf & _
    
24.     "Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X"                                                                                                                     & vbCrLf & _
    
25. "End Function"                                                                                                                                                                        & vbCrLf & _
    
26. "Public Function GetYCursorPos() As Long"                                                                                                                                             & vbCrLf & _
    
27.     "Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y"                                                                                                                      & vbCrLf & _
    
28. "End Function"
    
29. oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码
    
30. 'Author: Demon
    
31. 'Website: [url]http://demon.tw[/url]
    
32. 'Date: 2011/5/10
    
33. x = oExcel.Run("GetXCursorPos") '获取鼠标 X 坐标
    
34. y = oExcel.Run("GetYCursorPos") '获取鼠标 Y 坐标
    
35. WScript.Echo x, y
    
36. oExcel.Run "SetCursorPos", 30, 30 '设置鼠标 X Y 坐标
    
37. Const MOUSEEVENTF_MOVE       = &H1
    
38. Const MOUSEEVENTF_LEFTDOWN   = &H2
    
39. Const MOUSEEVENTF_LEFTUP     = &H4
    
40. Const MOUSEEVENTF_RIGHTDOWN  = &H8
    
41. Const MOUSEEVENTF_RIGHTUP    = &H10
    
42. Const MOUSEEVENTF_MIDDLEDOWN = &H20
    
43. Const MOUSEEVENTF_MIDDLEUP   = &H40
    
44. Const MOUSEEVENTF_ABSOLUTE   = &H8000
    
45. '模拟鼠标左键单击
    
46. oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
47. '模拟鼠标左键双击（即快速的两次单击）
    
48. oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
49. oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
50. '模拟鼠标右键单击
    
51. oExcel.Run "mouse_event", MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
    
52. '模拟鼠标中键单击
    
53. oExcel.Run "mouse_event", MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
    
54. '关闭 Excel
    
55. oExcel.DisplayAlerts = False
    
56. oBook.Close
    
57. oExcel.Quit
    
58. 
    

复制代码

用我做的特定环境下载学生作业的小脚本为例（在你的环境由于坐标不同肯定是不能用的）
请把后缀由TXT改为VBS后查看或修改： 钉钉下载作业.txt (17.6 KB, 下载次数: 1)

2020-6-30 13:18 上传

点击文件名下载附件
下载积分: 无忧币 -2

tylzqiqi

9zhmke 发表于 2020-6-30 13:18
如果你刚好也安装有Office的话，可以用这种：

谢谢