Rem LV
VBSCall FindPic(0,0,1023,767,"Attachment:\LV.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo x,y
    LeftClick 1
    Goto 切换窗口
Else 
    MessageBox "找不到水浒Q传窗口"
EndScript 
EndIf 
Rem 切换窗口
KeyDown 115,1
Delay 2000
KeyUp 115,1
Delay 1000
Rem 全屏
MoveTo 0,100
VBSCall FindPic(0,0,1023,767,"Attachment:\全屏模式.bmp",1.0,X,Y)
If X>0 and Y>0
    Goto 确定
Else 
    Goto 取消
EndIf 
EndScript 
Rem 确定
VBSCall FindPic(0,0,1023,767,"Attachment:\确定.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo X+6,Y+5
    LeftClick 1
    Delay 4000
    Goto 切换窗口
Else 
    Goto 确定
    Delay 1000
EndIf 
EndScript 
Rem 取消
VBSCall FindPic(0,0,1023,767,"Attachment:\取消.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo X+5,Y+5
    LeftClick 1
    Delay 4000
    Goto 认证
Else 
    Goto 取消
    Delay 1000
EndIf 
EndScript 
Rem 认证
MoveTo 0,0
VBSCall FindPic(0,0,1023,767,"Attachment:\关闭按扭.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo x+5,y+5
    LeftClick 1
    Delay 200
    Goto 认证
Else 
    ///////+++++++++///////
    KeyDown 114,1
    KeyUp 114,1
    Goto 地图
    //////+++++++///////
EndIf 
Rem 地图
VBSCall FindPic(0,0,1023,767,"Attachment:\应天.bmp",1.0,X,Y)
If X>0 and Y>0
    Goto H房管
Else 
    Goto 点房管
EndIf 
//////////////////
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
    LeftClick 1
    Delay 100
    MoveTo x,y-200
    Delay 500
    Goto 接任务
Else 
    Delay 100
    Goto 点房管
EndIf 
EndScript 
//--------------
Rem 接任务
VBSCall FindPic(0,0,800,600,"Attachment:\接任务.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo x,y
    Delay 100
    LeftDown 1
    Delay 500
    LeftUp 1
    MoveTo x,y+100