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

2024年1月18日发(作者：)

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 = ndow(hwnd, "dx", "dx", "dx", 0)

//检测返回值

If dm_ret = 0 Then

MessageBox "绑定失败"

EndScript

End If

Next

//脚本主循环

Do

1 / 2

For i = 0 To 2

Call切换对象(i)

Call打怪()

Next

Loop

Sub打怪()

//开始打怪键盘1为技能Z为寻怪

padDelay " 90",1

Delay 200

padDelay "49",10

End If

End Sub

Sub OnScriptExit()

//分别解绑窗口

For i = 0 To 2

Call切换对象(i)

dm_ret = Window()

Next

End Sub

2 / 2