展开全部
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
记事本调试了一下没问题
追问
非常感谢 我是小白啥都不懂
是直接复制进去运行就好了么?
还是要自己手动改什么呢
我复制过去运行后出现对话框
“确定鼠标一定到目标窗口,然后按任意键获得句柄”
之后怎么操作都没反应了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询