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()

// 分别解绑窗口 For i = 0 To 2

Call 切换对象(i)

dm_ret = dm.UnBindWindow()

Next

End Sub