无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 3805|回复: 8

[求助] VBS 调用求助。。。

  [复制链接]
发表于 2020-6-28 07:15:55 | 显示全部楼层 |阅读模式
百度找到了一个一个驱动级模拟鼠键接口DDXOFT,但是我不知道怎么用,该怎么用里面的函数?用vbs怎么调用?
QQ截图20200628071129.png QQ截图20200628071203.png
发表于 2020-6-28 08:45:40 | 显示全部楼层
学习 AutoIt3 吧!模拟鼠标很简单!

点评

也支持驱动级的?  详情 回复 发表于 2020-6-28 08:55
回复

使用道具 举报

 楼主| 发表于 2020-6-28 08:55:51 | 显示全部楼层
chishingchan 发表于 2020-6-28 08:45
学习 AutoIt3 吧!模拟鼠标很简单!

也支持驱动级的?

点评

驱动级这个词我也不明白! 函数目录 下面是 AutoIt 可用 函数完整列表. 点击函数名称查看其详细描述. 名 称 描 述 MouseClick 执行鼠标点击操作. MouseClickDrag 执行鼠标单击并拖动操作. MouseDow  详情 回复 发表于 2020-6-28 12:45
回复

使用道具 举报

发表于 2020-6-28 11:35:03 | 显示全部楼层
“VBS调用DLL API” 理论上可行,不过我没试过。。。
最好还是会一种编程语言

点评

感觉好难  详情 回复 发表于 2020-6-28 16:18
回复

使用道具 举报

发表于 2020-6-28 12:45:33 | 显示全部楼层
tylzqiqi 发表于 2020-6-28 08:55
也支持驱动级的?

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

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

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

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

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

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

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

MouseMove 移动鼠标.

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

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

点评

我正在看,应该不支持驱动级的键鼠模拟。  详情 回复 发表于 2020-6-28 16:22
回复

使用道具 举报

 楼主| 发表于 2020-6-28 16:18:52 | 显示全部楼层
2010techon 发表于 2020-6-28 11:35
“VBS调用DLL API” 理论上可行,不过我没试过。。。
最好还是会一种编程语言

感觉好难
回复

使用道具 举报

 楼主| 发表于 2020-6-28 16:22:41 | 显示全部楼层
chishingchan 发表于 2020-6-28 12:45
驱动级这个词我也不明白!

函数目录

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

使用道具 举报

发表于 2020-6-30 13:18:58 | 显示全部楼层
如果你刚好也安装有Office的话,可以用这种:

  1. Option Explicit
  2. Dim WshShell
  3. Dim oExcel, oBook, oModule
  4. Dim strRegKey, strCode, x, y
  5. Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象
  6. set WshShell = CreateObject("wscript.Shell")

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

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

复制代码


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

点评

谢谢  详情 回复 发表于 2020-6-30 15:03
回复

使用道具 举报

 楼主| 发表于 2020-6-30 15:03:21 | 显示全部楼层
9zhmke 发表于 2020-6-30 13:18
如果你刚好也安装有Office的话,可以用这种:

谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 07:05

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表