1.     延时 20 毫秒
  2.     (超级模拟键盘)按 "C" 键, 1次
  3.     延时 20 毫秒
  4.     (超级模拟键盘)按 "Enter" 键, 1次
  5.     延时 1200 毫秒
  6. 否则如果 szhhjs = 4 则
  7.     (超级模拟键盘)按 "B" 键, 1次
  8.     延时 20 毫秒
  9.     (超级模拟键盘)按 "A" 键, 1次
  10.     延时 20 毫秒
  11.     (超级模拟键盘)按 "1" 键, 1次
  12.     延时 20 毫秒
  13.     (超级模拟键盘)按 "Enter" 键, 1次
  14.     延时 3200 毫秒
  15.     (超级模拟键盘)按 "B" 键, 2次
  16.     延时 20 毫秒
  17.     (超级模拟键盘)按 "1" 键, 1次
  18.     延时 20 毫秒
  19.     (超级模拟键盘)按 "Enter" 键, 1次
  20.     延时 3200 毫秒
  21.     (超级模拟键盘)按 "B" 键, 1次
  22.     延时 20 毫秒
  23.     (超级模拟键盘)按 "C" 键, 1次
  24.     延时 20 毫秒
  25.     (超级模拟键盘)按 "Enter" 键, 1次
  26.     延时 3200 毫秒
  27.     (超级模拟键盘)按 "B" 键, 1次
  28.     延时 20 毫秒
  29.     (超级模拟键盘)按 "D" 键, 1次
  30.     延时 20 毫秒
  31.     (超级模拟键盘)按 "Enter" 键, 1次
  32.     延时 1200 毫秒
  33. 否则如果 szhhjs = 5 则
  34.     (超级模拟键盘)按 "B" 键, 1次
  35.     延时 20 毫秒
  36.     (超级模拟键盘)按 "A" 键, 1次
  37.     延时 20 毫秒
  38.     (超级模拟键盘)按 "1" 键, 1次
  39.     延时 20 毫秒
  40.     (超级模拟键盘)按 "Enter" 键, 1次
  41.     延时 3200 毫秒
  42.     (超级模拟键盘)按 "B" 键, 2次
  43.     延时 20 毫秒
  44.     (超级模拟键盘)按 "1" 键, 1次
  45.     延时 20 毫秒
  46.     (超级模拟键盘)按 "Enter" 键, 1次
  47.     延时 3200 毫秒
  48.     (超级模拟键盘)按 "B" 键, 1次
  49.     延时 20 毫秒
  50.     (超级模拟键盘)按 "C" 键, 1次
  51.     延时 20 毫秒
  52.     (超级模拟键盘)按 "Enter" 键, 1次
  53.     延时 3200 毫秒
  54.     (超级模拟键盘)按 "B" 键, 1次
  55.     延时 20 毫秒
  56.     (超级模拟键盘)按 "D" 键, 1次
  57.     延时 20 毫秒
  58.     (超级模拟键盘)按 "Enter" 键, 1次
  59.     延时 3200 毫秒
  60.     (超级模拟键盘)按 "B" 键, 1次
  61.     延时 20 毫秒
  62.     (超级模拟键盘)按 "E" 键, 1次
  63.     延时 20 毫秒
  64.     (超级模拟键盘)按 "Enter" 键, 1次
  65.     延时 1200 毫秒
  66. 条件结束
  67. 令 feyjy = 0
  68. (语句无法识别,可能有错误): gosub 等待交易 //跳到等待交易
  69. 子程序结束
  70. 子程序 等待交易
  71.     注释:找图
  72.     令 x = Window.Active(hwnd)
  73.     (语句无法识别,可能有错误): FindPic 455,305,636,419,"Attachment:\公告按钮.bmp",0.9,intX,intY //扫描交易框
  74.     如果 intX > 0 并且 intY > 0 则
  75.         (鼠标)移动到 (523, 403)
  76.         (鼠标)左键单击, 2次
  77.         延时 300 毫秒
  78.         从左上到右下查找图片 "Attachment:\11.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  79.         如果 intX > 0 并且 intY > 0 则
  80.             调用 等待放入物品()
  81.         否则
  82.             调用 站街自动喊话()
  83.         条件结束
  84.     否则
  85.         调用 站街自动喊话()
  86.     条件结束
  87. 子程序结束
  88. 注释:================================================================================
  89. 注释:MessageBox "正在初始话请稍等"
  90. 调用 Msg.Tips("正在加载方案…")
  91. 令 DqTime = (命令库 网络)获取网络时间()
  92. 注释:获取网络时间,得到的时间格式为:2000-1-1 12:00:00
  93. 令 zzsj = "2011-11-1 23:59:59"
  94. 注释:zzsj=终止时间 终止时间为脚本使用限定的最后时间!
  95. 如果 CDate(DqTime) < CDATE(ZZSJ) 则
  96.     调用 Msg.Tips("加载成功!(*^__^*)")
  97.     注释:MessageBox "加载成功!(*^__^*)"
  98.     注释:Msgbox "验证成功!继续使用!"
  99. 否则
  100.     调用 Msg.Tips("加载失败,可能是没有权限!⊙﹏⊙‖∣")