鼠标滚轮一直滚动的代码怎么写？

发布网友 发布时间：2022-04-21 07:54

我来回答

共2个回答

热心网友 时间：2023-06-29 03:18

Set dm = CreateObject("dm.dmsoft") //创建大漠并等到大漠的版本
TracePrint "当前大漠注册版本号: " & dm.ver()
MessageBox "确定鼠标移动到目标窗口,然后按任意键获得获得句柄"
key = WaitKey()
hwnd = dm.GetMousePointWindow()
TracePrint "窗口句柄为 " & hwnd
Delay 200
dm_ret = dm.SetWindowState(hwnd,1) 
TracePrint "激活窗口? " & dm_ret
Delay 1000
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",1) '绑定后台如果绑定失败换其他模式
TracePrint "绑定成功? " & dm_ret
Delay 1000
Do
    dm.WheelDown 
    Delay 500'自己设置上滚后延迟
    dm.WheelUp 
    Delay 500'自己设置下滚后延迟
Loop
Sub OnScriptExit()
    dm_ret = dm.UnBindWindow() 
End Sub

记事本调试了一下没问题

热心网友 时间：2023-06-29 03:19

这类鼠标辅助插件小程序网上多的是，用浏览器去搜索一大堆，可以一个个实验，看看哪一个插件适合你这个游戏，插件下载安装厚可以设置的，比如点击的频率 点击速度需要多快，软件很小大概也就几M大小，使用起来也不麻烦，设置也不难，不同的插件适合不一样的游戏，希望能够帮助到你！