Dim hwnd_all(3)
hwnd(0) = 窗口句柄1
hwnd(1) = 窗口句柄2
hwnd(2) = 窗口句柄3
Dim dm_all(3)
//创建对象
Set dm_all(0) = createobject(\"dm.dmsoft\")
Set dm_all(1) = createobject(\"dm.dmsoft\")
Set dm_all(2) = createobject(\"dm.dmsoft\")
// 分别绑定窗口123
For i = 0 To 2
Call 切换对象(i)
dm_ret = dm.BindWindow(hwnd, \"dx\
// 检测返回值
If dm_ret = 0 Then
MessageBox \"绑定失败\"
EndScript
End If
Next
// 脚本主循环
Do
For i = 0 To 2
Call 切换对象(i)
Call 打怪()
Next
Loop
Sub 打怪()
// 开始打怪 键盘1为技能 Z为寻怪
dm.SetKeypadDelay \" 90\
Delay 200
dm.SetKeypadDelay \" 49\
End If
End Sub
Sub OnScriptExit()
// 分别解绑窗口
For i = 0 To 2
Call 切换对象(i)
dm_ret = dm.UnBindWindow()
Next
End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容
Copyright © 2019- igat.cn 版权所有 赣ICP备2024042791号-1
违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务