Goto H房管
EndIf 
Rem 打开房管P
VBSCall FindPic(0,0,800,600,"Attachment:\房管坐标.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo x+17 ,y-40
    Delay 500
    LeftDown 1
    LeftUp 1
    Delay 3000
Else 
    Goto H房管
EndIf 
//////////打开房管了
Rem H确定打开P
VBSCall FindPic(0,0,800,600,"Attachment:\房管说话.bmp",0.9,X,Y)
If X>0 and Y>0
    Goto 家园任务
Else 
    Goto H打开错误P
EndIf 
Rem H打开错误P
VBSCall FindPic(0,0,800,600,"Attachment:\关闭按扭.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo x+5,y+5
    Delay 500
    LeftClick 1
    Goto H房管
Else 
    RightClick 1
    RightClick 1
    RightClick 1
    Goto H房管
EndIf 
Rem 家园任务
VBSCall FindPic(0,0,800,600,"Attachment:\家园任务.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X+5,Y+5
    LeftClick 1
    Delay 3000
    Goto 2600一
Else 
    Goto 家园任务
EndIf 
/////////////////--------------识别----------------//////////////
Rem 2600一
VBSCall FindPic(0,0,800,600,"Attachment:\2600.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+1
    LeftClick 1
    Delay 1000
    Goto 进入2600一
Else 
    Goto 2200
EndIf 
/////26002
Rem 2600二
VBSCall FindPic(0,0,800,600,"Attachment:\2600.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+1
    LeftClick 1
    Delay 1000
    Goto 进入2600二
Else 
    Goto 2200
EndIf 
////2200
Rem 2200
VBSCall FindPic(0,0,800,600,"Attachment:\2200.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    LeftClick 1
    Delay 1000
    Goto 进入2200
Else 
    Goto 1800
EndIf 
/////1800
Rem 1800
VBSCall FindPic(0,0,800,600,"Attachment:\1800.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    LeftClick 1
    Delay 1000
    Goto 进入1800
Else 
    Goto 1400一
EndIf 
////1400
Rem 1400一
VBSCall FindPic(0,0,800,600,"Attachment:\1400.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    LeftClick 1
    Delay 1000
    Goto 进入1400一
Else 
    Goto 1400二
EndIf 
///2