MoveTo X+15,Y+15
    Delay 100
    LeftClick 1
    Delay 1000
    KeyPress 52,1
    MoveTo X+110,Y+245
    Delay 100
    LeftClick 1
    Delay 500
EndIf 
/////////////////
VBSCall FindPic(0,0,800,600,"Attachment:\茉莉.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo X+15,Y+15
    Delay 100
    LeftClick 1
    Delay 1000
    KeyPress 52,1
    MoveTo X+70,Y+245
    Delay 100
    LeftClick 1
    Delay 500
EndIf 
//////////
Rem 关闭买花任务A
VBSCall FindPic(0,0,800,600,"Attachment:\关闭任务拦.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo X+10,Y+10
    Delay 500
    LeftClick 1
    Goto 关闭买花任务A
Else 
    Goto 回去交任务
EndIf 
////////-----------买花脚本完成-------//////////////
MessageBox 换任务出错
//////////////////////////////////////////////////
////////////////换任务/////////////
Rem 换任务
MoveTo 0,0+100
KeyDown 120,1
Delay 110
KeyUp 120,1
MoveTo 0,0
VBSCall FindPic(0,0,800,600,"Attachment:\管家.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo x,y-50
    Delay 100
    LeftClick 1
    MoveTo x,y-100
    Delay 1000
Else 
    Delay 3000
    Goto 换任务
EndIf 
Rem 去应天换任务
VBSCall FindPic(0,0,800,600,"Attachment:\送我去应天.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo x+20 y+5
    Delay 100
    LeftClick 1
    Delay 4000
Else 
    Goto 去应天换任务
EndIf 
//////出来后
Rem H房管
MoveTo 2,2
KeyDown 9,1
Delay 500
KeyUp 9,1
Delay 100
MoveTo 2,2
VBSCall FindPic(0,0,800,600,"Attachment:\应天地图.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo x+334 ,y+98
    Delay 100
    LeftDoubleClick 1
    //Delay 1000
    MoveTo 2,2
    Goto H地图
Else 
    Delay 1000
    Goto H房管
EndIf 
Rem H地图
MoveTo 2,2
KeyDown 9,1
Delay 203
KeyUp 9,1
Delay 1000
Rem H发现房管
VBSCall FindPic(0,0,800,600,"Attachment:\房管坐标.bmp",0.9,X,Y)
If X>0 and Y>0
    Delay 2000
    Goto H打开房管P
Else 
    KeyDown 120,1
    Delay 200
    KeyUp 120,1