End If
End If
Delay 200


Goto 开始
Rem 结束

//<>------------------------------ 脚本子程序内容 --------------------------<>
EndScript
Sub OnScriptExit() '脚本停止事件
    Call Plugin.Media.Stop()
    MessageBox "测试结束，脚本停止！"
End Sub
Sub 人物状态保护()
    //<>--------------------------人物补血设置
    If 血键 > 0 Then
        IfColor 5+(10-5)*补血,5,"0000FF",0 Then   '【坐标与颜色】需要自行修改
            //补血热键
            KeyPress 血键, 1
            Delay 200
        End If
    End If
    //<>--------------------------人物补蓝设置
    If 蓝键 > 0 Then
        IfColor 5+(10-5)*补蓝,10,"FF0000",0 Then  '【坐标与颜色】需要自行修改
            //补蓝热键
            KeyPress 蓝键, 1
            Delay 200
        End If
    End If
    //<>--------------------------奶爸奶妈技能补血设置
    If 技能键 > 0 Then
        IfColor 5+(10-5)*补血,20,"0000FF",0 Then  '【坐标与颜色】需要自行修改
            //技能补血热键
            KeyPress 技能键, 1
            Delay 1000  '技能释放等待时间
        End If
    End If
End Sub




//<>------------------------------按键精灵脚本界面 - 简称：QUI --------------------------<>
//启动脚本运行
Event Form1.Button6.Click
    KeyPress "F10", 1  '按脚本的启动热键运行，用于从界面上点击按钮可以直接启动脚本运行。
End Event

//重设 第一步设置 恢复初始状态
Event Form1.Button2.Click
    Form1.游戏路径.Text="" '游戏路径
    Form1.游戏帐号.Text="" '游戏帐号
    Form1.游戏密码.Text="" '游戏密码
    Form1.网络.ListIndex = 0   '选择网络
    Form1.服务器.ListIndex = 0 '服务器
    Form1.角色.ListIndex = 0   '角色选择
End Event
//确定 第一步设置
Event Form1.Button1.Click
    Form1.Container1.Visible =False '设置界面
    Form1.Container2.Visible =True  '启动界面
    Form1.状态.Text = 1 '记录界面显示状态
End Event
//返回 第一步设置
Event Form1.Button4.Click
    Form1.Container1.Visible =True  '设置界面
    Form1.Container2.Visible =False '启动界面
    Form1.状态.Text = 0 '记录界面显示状态
End Event
//进入 更多设置
Event Form1.Button5.Click
    Form1.TabControl1.Tab = 1 '切换标签页
End Event
//返回 启动脚本 界面
Event Form1.Button7.Click
    Form1.TabControl1.Tab = 0 '切换标签页
    Form1.Container1.Visible =False '设置界面
    Form1.Container2.Visible =True  '启动界面
End Event

//读取 界面设置状态
Event Form1.LoadOver  '当窗体被加载完成以及ini配置内容都读取完毕后触发的事件
    Form1.TabControl1.Tab = 0 '切换标签页
    If Form1.状态.Text = 0 then
        Form1.Container1.Visible = true  '设置界面
        Form1.Container2.Visible = false '启动界面
    else
        Form1.Container1.Visible = false '设置界面
        Form1.Container2.Visible = true  '启动界面
    End if
End Event

//添加可执行程序文件路径
Event Form1.Button3.Click
    Dim filepath
    filepath = Plugin.File.SelectFile()  '打开文件选择对话框
    If UCase(Right(filepath,4)) = ".EXE" Then  '检查是不是选中 .exe 可执行文件
        Form1.游戏路径.Text = filepath