按键精灵教程学习笔记 多开简单后台脚本（原创）

Dim hwnd_all(3)

hwnd(0) = 窗口句柄1 hwnd(1) = 窗口句柄2 hwnd(2) = 窗口句柄3 Dim dm_all(3) //创建对象

Set dm_all(0) = createobject(\Set dm_all(1) = createobject(\Set dm_all(2) = createobject(\

// 分别绑定窗口123 For i = 0 To 2 Call 切换对象(i)

dm_ret = dm.BindWindow(hwnd, \// 检测返回值

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 \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