英雄冒险图自动刷副本脚本，不能加载，请大神指点，如何修改，十... [复制链接]

// 英雄冒险团自动脚本
// 功能：自动完成狱火裂隙副本及奖励选择

// 等待时间设置(毫秒)
Dim waitShort, waitMedium, waitLong
waitShort = 1000 // 短等待
waitMedium = 2000 // 中等等待
waitLong = 5000 // 长等待

// 主函数
Sub Main()
TracePrint "开始运行英雄冒险团自动脚本"

// 选择集合石
FindAndClick "集合石", waitMedium

// 选择英雄
FindAndClick "英雄", waitMedium

// 选择狱火裂隙(英雄)
FindAndClick "狱火裂隙（英雄）", waitMedium

// 创建队伍流程
FindAndClick "创建队伍", waitMedium
FindAndClick "独狼模式", waitMedium
FindAndClick "创建队伍", waitMedium
FindAndClick "开启副本", waitLong

// 准备战斗
FindAndClick "准备", waitLong

// 萨尔兰战斗
FindAndClick "萨尔兰", waitLong
AutoFight()
OpenChestAndSelect "萨尔兰之牙", "巡夜者的锋刃"

// 玛尔尼战斗
FindAndClick "玛尔尼", waitLong
AutoFight()
OpenChestAndSelect "夜影编织护腕", "提米的玩具枪"

// 追猎者玛拉卡尔战斗
FindAndClick "追猎者玛拉卡尔", waitLong
AutoFight()
OpenChestAndSelect "狱炎魔刃", "法师之拳"

// 最终奖励选择
FindAndClick "拉格玛法袍", waitMedium
FindAndClick "跳动的多头怪心脏", waitMedium
FindAndClick "第一行第一个奖励", waitMedium

// 退出副本
FindAndClick "退出副本", waitShort

TracePrint "脚本运行结束"
End Sub

// 查找并点击函数
Sub FindAndClick(targetName, waitTime)
Dim x, y
FindPic 0, 0, 1920, 1080, targetName & ".bmp", "000000", 0.9, 0, x, y
If x > 0 And y > 0 Then
MoveTo x, y
Delay 500
LeftClick 1
Delay waitTime
Else
TracePrint "未找到" & targetName & "，脚本可能出错"
Delay 3000
End If
End Sub

// 自动战斗函数
Sub AutoFight()
TracePrint "开始自动战斗"
Dim fightTime
fightTime = 0

// 战斗持续60秒，可根据实际情况调整
While fightTime < 60
// 模拟战斗操作：点击技能1-4
For i = 1 To 4
KeyPress "F" & i, 1
Delay 1000
Next

// 移动操作
KeyPress "W", 1
Delay 500
KeyPress "S", 1
Delay 500

fightTime = fightTime + 5
Delay 500
Wend

// 等待战斗结束
Delay waitLong
TracePrint "战斗结束"
End Sub

// 开箱子并选择奖励函数
Sub OpenChestAndSelect(item1, item2)
// 开箱子
FindAndClick "宝箱", waitMedium

// 选择第一个指定物品
FindAndClick item1, waitShort

// 选择第二个指定物品
FindAndClick item2, waitShort

// 选择第一行第一个奖励
FindAndClick "第一行第一个奖励", waitMedium

// 确认选择
FindAndClick "确认", waitLong
End Sub

// 启动主函数
Call Main()