无忧启动论坛

标题: VBS 调用求助。。。 [打印本页]
作者: tylzqiqi    时间: 2020-6-28 07:15
标题: VBS 调用求助。。。
百度找到了一个一个驱动级模拟鼠键接口DDXOFT，但是我不知道怎么用，该怎么用里面的函数？用vbs怎么调用？

作者: chishingchan    时间: 2020-6-28 08:45
学习 AutoIt3 吧！模拟鼠标很简单！
作者: tylzqiqi    时间: 2020-6-28 08:55
chishingchan 发表于 2020-6-28 08:45
学习 AutoIt3 吧！模拟鼠标很简单！

也支持驱动级的？
作者: 2010techon    时间: 2020-6-28 11:35
“VBS调用DLL API” 理论上可行，不过我没试过。。。
最好还是会一种编程语言
作者: chishingchan    时间: 2020-6-28 12:45
tylzqiqi 发表于 2020-6-28 08:55
也支持驱动级的？

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

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

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

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

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

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

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

MouseMove 移动鼠标.

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

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

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

感觉好难
作者: tylzqiqi    时间: 2020-6-28 16:22
chishingchan 发表于 2020-6-28 12:45
驱动级这个词我也不明白！

函数目录

我正在看，应该不支持驱动级的键鼠模拟。
作者: 9zhmke    时间: 2020-6-30 13:18
如果你刚好也安装有Office的话，可以用这种：

  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")

  9. strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
  10. strRegKey = Replace(strRegKey, "$", oExcel.Version)
  11. WshShell.RegWrite strRegKey, 1, "REG_DWORD"

  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

复制代码


用我做的特定环境下载学生作业的小脚本为例（在你的环境由于坐标不同肯定是不能用的）
请把后缀由TXT改为VBS后查看或修改： 钉钉下载作业.txt (17.6 KB, 下载次数: 1)
作者: tylzqiqi    时间: 2020-6-30 15:03
9zhmke 发表于 2020-6-30 13:18
如果你刚好也安装有Office的话，可以用这种：

谢谢



欢迎光临 无忧启动论坛 (http://wuyou.net./) Powered by Discuz! X3.3