MoveTo 825,428
Delay 100
RightClick 1
Delay 200
VBSCall FindPic(0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
    myx = 825
    myy = 428
    rex = 808
    rey = 522
    col = 2
    LeftClick 1
    Goto 查找准备标记
EndIf 
LeftClick 1
//八号位
MoveTo 950,459
Delay 100
RightClick 1
Delay 200
VBSCall FindPic(0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
    myx = 950
    myy = 459
    rex = 928
    rey = 542
    col = 2
    LeftClick 1
    Goto 查找准备标记
Else 
    LeftClick 1
    Goto 定位
EndIf 
Rem 查找准备标记
Delay 300
KeyPress 13,1
MoveTo 520 240
x = -1
y = -1
While x = -1 and y = -1
    VBSCall FindPic(0,0,500,150,"Attachment:\准备标记.bmp",1,x,y)
EndWhile 
Delay 100
x = -1
y = -1
VBSCall FindPic(111,598,418,762,"Attachment:\充电提示.bmp",1,x,y)
If x > 0 and y > 0
    Goto 查找本机位置
Else 
    Goto 查看自己是否房主
EndIf 
Rem 查找本机位置
Delay 100
MoveTo myx myy
Delay 100
RightClick 1
Delay 100
Rem 找充电选项
x2 = -1
y2 = -1
a = 0
While x2 = -1 and y2 = -1
    VBSCall FindPic(0,300,1024,600,"Attachment:\充电选项.bmp",1,x2,y2)
    Delay 150
    a = a + 1
    If a > 2
        MoveTo 520 240
        Delay 100
        LeftClick 1
        Delay 100
        Goto 查找本机位置
    EndIf 
    x3 = -1
    y3 = -1
    VBSCall FindPic(315,221,779,463,"Attachment:\充电完成.bmp",1,x3,y3)
    If x3 > 0 and y3 > 0
        Delay 100
        KeyPress 13,1
        Delay 100
        Goto 查看自己是否房主
    EndIf 
EndWhile 
Delay 100
MoveTo x2+8 y2+7
Delay 100
LeftClick 1
Delay 100
x3 = -1
y3 = -1
a = 0
While x3 = -1 and y3 = -1
    VBSCall FindPic(315,221,779,463,"Attachment:\充电费用确定.bmp",1,x3,y3)
    Delay 150
    a = a+1
    If a > 3
        MoveTo 520 240
        Delay 100
        LeftClick 1
        Delay 100
        Goto 查找本机位置