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", "dx", "dx", 0) // 检测返回值 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",1 Delay 200

dm.SetKeypadDelay " 49",10

End If

End Sub

Sub OnScriptExit()

// 分别解绑窗口