Sub 位置判断
    VBSCall GetCursorPos(CurrX,CurrY)
    If CurrX<125 or CurrX>750 or CurrY<225 or CurrY>550
        MoveTo 400,425
        LeftClick count
        SaveMousePos 
        Delay 500
    EndIf 
Return 
Sub 输入帐号和密码
    KeyDown 17,1
    KeyPress 65,1
    KeyUp 17,1
    LeftClick 1
    Delay 500
    SayString *****
    //这里输入自己的帐号
    Delay 500
    MoveTo 401,388
    LeftClick 1
    Delay 1859
    SayString ******
    //这里输入自己的密码
    Delay 1000
Return 
Sub 窗口最大化
    VBSCall FindPic(940,0,1024,30,"Attachment:\005.bmp",0.95,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        LeftClick 1
        Delay 500
    EndIf 
Return 
Rem FinishScript