1.     DelayTime = 0
  2.     如果表达式 (DelayTime = 0) 为真,则循环执行
  3.         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  4.         如果表达式 (shape = shape2) 为真,则
  5.             延时1000毫秒
  6.         否则如果(shape = shape1)为真,则
  7.             DelayTime = 1
  8.         条件结束
  9.     循环结束
  10. 子程序结束,回到调用处
  11. //自动登出
  12. 子程序 自动登出
  13.     //Delay 1000
  14.     //Ctrl+L组合键快速登出
  15.     按住<Ctrl>
  16.     按键<L>
  17.     弹起<Ctrl>
  18.     延时2500毫秒
  19.     //判断窗口是否出现
  20.     PosX = 365
  21.     PosY = 268
  22.     调用子程序 坐标转换
  23.     如果 (PosX,PosY) 的颜色大约等于 #FFFFFF 则
  24.         //点确定
  25.         PosX = 369
  26.         PosY = 325
  27.         调用子程序 移动鼠标
  28.         左键单击
  29.         //登出15秒等待
  30.         延时30000毫秒
  31.         调用子程序 当前时间
  32.         Message = CurrentTime & "自动登出游戏........."
  33.         调用子程序 写入日志文件
  34.         //结束游戏这个按键的地方
  35.         //PosX = 390
  36.         //PosY = 511
  37.         //Gosub 移动鼠标
  38.         //点任意
  39.         //LeftClick 1
  40.         //Delay 1000
  41.         //LeftClick 1
  42.         //Delay 2000
  43.     否则
  44.         调用子程序 当前时间
  45.         Message = CurrentTime & "自动登出失败.........强制关机！"
  46.         调用子程序 写入日志文件
  47.         调用子程序 自动关机
  48.         跳转到标记 脚本结束
  49.     条件结束
  50. 子程序结束,回到调用处
  51. //建立日志文件
  52. 子程序 建立日志文件
  53.     （VBScript语句） Set File = CreateObject("Scripting.FileSystemObject")
  54.     LogFileName = "E:\xue_yun\KOEI\Log\多伦多近港" & Right("0000" & Year(Date),2) & "-" & Right("00" & Month(Date),2) & "-" & Right("00" & Day(Date),2) & ".wri"
  55.     如果表达式 (File.FileExists(LogFileName)=0) 为真,则
  56.         （VBScript语句） Set LogFile = File.CreateTextFile(LogFileName,2)
  57.         （VBScript语句） LogFile.Close
  58.     条件结束
  59. 子程序结束,回到调用处
  60. //写入日志文件
  61. 子程序 写入日志文件
  62.     // 常数 值 描述
  63.     //ForReading 1 以只读方式打开文件。 不能写这个文件。
  64.     //ForWriting 2 以写方式打开文件
  65.     //ForAppending 8 打开文件并从文件末尾开始写。
  66.     （VBScript语句） Set LogFile = File.OpenTextFile(LogFileName,8)
  67.     （VBScript语句） LogFile.WriteLine(Message)
  68.     （VBScript语句） LogFile.Close
  69.     延时500毫秒
  70. 子程序结束,回到调用处
  71. //自动关机
  72. 子程序 自动关机
  73.     调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  74.     延时30000毫秒
  75.     （VBScript语句） TiShiObj.Run "shutdown /f /s /t 0"
  76. 子程序结束,回到调用处
  77. //定时关机
  78. 子程序 定时关机
  79.     如果表达式 (TimeShutDownSet <> 1) 为真,则
  80.         跳转到标记 定时关机结束
  81.     条件结束
  82.     如果表达式 (Len(ShutDownTime) <> 11) 为真,则
  83.         跳转到标记 定时关机结束
  84.     条件结束
  85.     如果表达式 ((Mid(ShutDownTime,3,1) <> ":") Or (Mid(ShutDownTime,6,1) <> "|") Or (Mid(ShutDownTime,9,1) <> ":")) 为真,则
  86.         跳转到标记 定时关机结束
  87.     条件结束
  88.     ShutDownTimeSet = Split(ShutDownTime, "|", -1, 1)
  89.     ShutDownTimeLow = ShutDownTimeSet(0)
  90.     ShutDownTimeHigh = ShutDownTimeSet(1)
  91.     NowTimeSet = Right("00" & Hour(Time),2) & ":" & Right("00" & Minute(Time),2)
  92.     如果表达式 ((NowTimeSet > ShutDownTimeLow) And (NowTimeSet < ShutDownTimeHigh)) 为真,则
  93.         调用子程序 当前时间
  94.         Message = CurrentTime & "定时关机时间已到, 自动登出游戏并关机......"
  95.         调用子程序 写入日志文件
  96.         调用子程序 自动登出
  97.         跳转到标记 脚本结束
  98.     条件结束
  99.     标记 定时关机结束
  100. 子程序结束,回到调用处