admin管理员组

文章数量:1532484

2024年3月26日发(作者:)

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

1 / 3

End If

Next

//脚本主循环

Do

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

2 / 3

//分别解绑窗口

For i = 0 To 2

Call切换对象(i)

dm_ret = Window()

Next

End Sub

3 / 3

本文标签: 脚本键盘技能后台原创