*****************脚本参数设定*********************"
//"单位秒，设定连按回车多少时间后检测上车状态"
time1=30
//UserVar time1=30 单位秒，设定连按回车多少时间后检测上车状态
//"单位毫秒，设定连按回车多少时间后"
time2=2000
//UserVar time2=2000 单位毫秒，设定连按回车多少时间后
// "******************************************************"
// "获取窗口起始位置坐标"
Plugin Hwnd = Window.GetKeyFocusWnd()
Plugin Rect = Window.GetClientRect(Hwnd)
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Delay 500
MoveTo Ux+600,Uy
Rem 检查摩托列表菜单
Rem 判定聊天窗口是否关闭
Delay 500
VBSCall FindPic(0,0,1024+Ux,768+Uy,"Attachment:\TL.bmp",1,tlX,tlY)
If tlX > -1
    Delay 500
    KeyPress 13,1
    Goto 判定聊天窗口是否关闭
EndIf 
Delay 500
VBSCall FindPic(0,0,1024+Ux,768+Uy,"Attachment:\QH.bmp",1,qhX,qhY)
If qhX = -1
    Delay 500
    KeyPress 78,1
Else 
    Delay 500
    KeyPress 78,1
    Delay 500
    KeyPress 78,1
EndIf 
Delay 500
VBSCall FindPic(0,0,1024+Ux,768+Uy,"Attachment:\SC.bmp",1,scX,scY)
If scX > -1
    Delay 500
    KeyPress 84,1
    Delay 500
    Goto 检查摩托列表菜单
EndIf 
Delay 500
KeyPress 78,1
Dim MyDate
Delay 500
MyDate=Now()
Rem 自动进命运开始
Delay time2
KeyPress 13,1
If DateDiff("s", MyDate, Now()) >= time1
    Goto 检查摩托列表菜单
EndIf 
Goto 自动进命运开始