EndIf 
    EndWhile 
    myfile.close
    set fso = nothing
Return 加载脚本设置
Sub 读取血量色点
    HPlowerY = 597-CInt(HPlower/100*86)
    set fso=CreateObject("Scripting.FileSystemObject")
    set myfile=fso.OpenTextFile(ScriptFolder & HpSpColorFile,1)
    myfile.skip(6*(HPlowerY-511))
    HPlowerColor = myfile.read(6)
    myfile.close
    set fso = nothing
Return 读取血量色点
Sub 取得技能使用位置
    Mystring="鼠标右键点击技能使用位置(推荐人物身上比较保险)..."
    Gosub 说话
    Rem 技能使用位置取得
    WaitClick Mouse
    If Mouse = 32773
        VBSCall GetCursorPos(Skill_X,Skill_Y)
        Mystring = "技能使用位置[" & Skill_X & "," & Skill_Y & "]..."
        Gosub 说话
        Gosub 取得怪物位置
    Else 
        Goto 技能使用位置取得
    EndIf 
Return 取得技能使用位置
Sub 取得怪物位置
    Mystring="鼠标右键点击怪物位置..."
    Gosub 说话
    Rem 怪物位置取得
    WaitClick Mouse
    If Mouse = 32773
        VBSCall GetCursorPos(Attack_X,Attack_Y)
        Mystring = "怪物位置[" & Attack_X & "," & Attack_Y & "]..."
        Gosub 说话
        Gosub 确认开始
    Else 
        Goto 怪物位置取得
    EndIf 
Return 取得怪物位置
Sub 确认开始
    Mystring="取点完毕,开始挂机吗? <Y> OR <N>"
    Gosub 说话
    Gosub 等待按键
    If AnJian = 89
        Goto 准备开始
    ElseIf AnJian =78
        Gosub 取得技能使用位置
    Else 
        Gosub 确认开始
    EndIf 
Return 确认开始