DelayTime = 0
    While DelayTime = 0
        VBSCall shape = GetCursorShape(0)
        If shape = shape2
            Delay 1000
        ElseIf shape = shape1
            DelayTime = 1
        EndIf 
    EndWhile 
Return 延时判定
//自动登出
Sub 自动登出
    //Delay 1000
    //Ctrl+L组合键快速登出
    KeyDown 17,1
    KeyPress 76,1
    KeyUp 17,1
    Delay 2500
    //判断窗口是否出现
    PosX = 365
    PosY = 268
    Gosub 坐标转换
    IfColor PosX,PosY,FFFFFF,2
        //点确定
        PosX = 369
        PosY = 325
        Gosub 移动鼠标
        LeftClick 1
        //登出15秒等待
        Delay 30000
        Gosub 当前时间
        Message = CurrentTime & "自动登出游戏........."
        Gosub 写入日志文件
        //结束游戏这个按键的地方
        //PosX = 390
        //PosY = 511
        //Gosub 移动鼠标
        //点任意
        //LeftClick 1
        //Delay 1000
        //LeftClick 1
        //Delay 2000
    Else 
        Gosub 当前时间
        Message = CurrentTime & "自动登出失败.........强制关机！"
        Gosub 写入日志文件
        Gosub 自动关机
        Goto 脚本结束
    EndIf 
Return 自动登出
//建立日志文件
Sub 建立日志文件
    VBS Set File = CreateObject("Scripting.FileSystemObject")
    LogFileName = "E:\xue_yun\KOEI\Log\多伦多近港" & Right("0000" & Year(Date),2) & "-" & Right("00" & Month(Date),2) & "-" & Right("00" & Day(Date),2) & ".wri"
    If File.FileExists(LogFileName)=0
        VBS Set LogFile = File.CreateTextFile(LogFileName,2)
        VBS LogFile.Close
    EndIf 
Return 建立日志文件
//写入日志文件
Sub 写入日志文件
    // 常数 值 描述
    //ForReading 1 以只读方式打开文件。 不能写这个文件。
    //ForWriting 2 以写方式打开文件
    //ForAppending 8 打开文件并从文件末尾开始写。
    VBS Set LogFile = File.OpenTextFile(LogFileName,8)
    VBS LogFile.WriteLine(Message)
    VBS LogFile.Close
    Delay 500
Return 写入日志文件
//自动关机
Sub 自动关机
    VBSCall TiShiObj.Popup("系统将在30秒后关机！！",5,"自动关机",48)
    Delay 30000
    VBS TiShiObj.Run "shutdown /f /s /t 0"
Return 自动关机
//定时关机
Sub 定时关机
    If TimeShutDownSet <> 1
        Goto 定时关机结束
    EndIf 
    If Len(ShutDownTime) <> 11
        Goto 定时关机结束
    EndIf 
    If (Mid(ShutDownTime,3,1) <> ":") Or (Mid(ShutDownTime,6,1) <> "|") Or (Mid(ShutDownTime,9,1) <> ":")
        Goto 定时关机结束
    EndIf 
    ShutDownTimeSet = Split(ShutDownTime, "|", -1, 1)
    ShutDownTimeLow = ShutDownTimeSet(0)
    ShutDownTimeHigh = ShutDownTimeSet(1)
    NowTimeSet = Right("00" & Hour(Time),2) & ":" & Right("00" & Minute(Time),2)
    If (NowTimeSet > ShutDownTimeLow) And (NowTimeSet < ShutDownTimeHigh)
        Gosub 当前时间
        Message = CurrentTime & "定时关机时间已到, 自动登出游戏并关机......"
        Gosub 写入日志文件
        Gosub 自动登出
        Goto 脚本结束
    EndIf 
    Rem 定时关机结束
Return 定时关机