dim MyArray   
MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
L = Clng(MyArray(0)): T = Clng(MyArray(1))   
R = Clng(MyArray(2)): B = Clng(MyArray(3))
y = T + 160
x = L + 161
PS_Items=0 //跑商已交物品数
MoveTo L+398,T+295
Delay 300
LeftClick 1
Delay 300
RemainTime=1
Function MainPrc()
For RemainTime
    Delay 200
    Go_BH_gettime
    If RemainTime>0
        Delay 300
        MoveTo L+71,T+454
        Delay 300
        LeftClick 1
        Delay 300

        Go_LB
        If Mission_C = True Then
            J_Mission
        Else
            Go_MK
            If Mission_C = True Then
                J_Mission
            Else
                Go_LC
                Go_FL
                If Mission_C = True Then
                    J_Mission    
                End If
            End If        
        End If
    PS_Items=0
    End If
Next
End Function
Call Plugin.Window.SetText(Hwnd,RemainTime)
If RemainTime>0
    MainPrc
End If