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
记事本调试了一下没问题
这类鼠标辅助插件小程序网上多的是,用浏览器去搜索一大堆,可以一个个实验,看看哪一个插件适合你这个游戏,插件下载安装厚可以设置的,比如点击的频率 点击速度需要多快,软件很小大概也就几M大小,使用起来也不麻烦,设置也不难,不同的插件适合不一样的游戏,希望能够帮助到你!