1. 注释:wlsj=Lib.网络.获取网络时间()
  2. 注释:Delay 2000
  3. 注释:If wlsj>cdate("2011-1-11")
  4. 注释: Delay 100
  5. 注释:MsgBox "使用期限已到,请从任务管理器关闭程序"
  6. 注释:EndScript
  7. 注释:end if
  8. 注释:使用期限检测脚本
  9. 定义环境变量 shuliang
  10. 定义变量 hwnd, hwnd1, hwnd2
  11. 定义环境变量 kaiguan
  12. 令 kaiguan = 0
  13. 令 hwnd = Window.MousePoint
  14. 令 x = Window.Move(hwnd,0,0)
  15. 注释:Delay 1000
  16. (语句无法识别,可能有错误): time1=plugin.sys.GetTime //获取脚本运行时系统初始时间
  17. 注释:ktjc=1
  18. 注释:set ws=createobject("wscript.shell")
  19. 注释:ws.run "c:\testfile.txt",5,ture
  20. 注释:Delay 500
  21. 注释:hwnd2=Plugin.Window.Foreground
  22. 注释:y=Plugin.Window.Move(hwnd2,0,480)
  23. 调用 站街自动喊话()
  24. 标记 kaitou
  25. (语句无法识别,可能有错误): Sub 站街自动喊话 //站街喊话脚本
  26. 注释:下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量
  27. 用户定义变量 fdys=15 "防掉线设置"
  28. (鼠标)移动到 (603, 439)
  29. 调用 检查是否有交易()
  30. 令 time3 = sys.GetTime
  31. 如果 int(time3 - time1) > fdys * 60 * 1000 则
  32.     注释:15分钟后开启防掉线,只支持站街的时候
  33. 条件结束
  34. 调用 防掉线()
  35. 条件结束
  36. (超级模拟键盘)按 "Enter" 键, 1次
  37. 延时 200 毫秒
  38. (语句无法识别,可能有错误): NUM =plugin.Color.CountColor(60, 398,92, 407, "AADDEE",1) //查找喊话窗口是否存在
  39. 如果 NUM > 0 则
  40.     (超级模拟键盘)按 "Z" 键, 2次
  41.     延时 20 毫秒
  42.     (超级模拟键盘)按 "1" 键, 1次
  43.     延时 20 毫秒
  44.     (超级模拟键盘)按 "Enter" 键, 1次
  45.     延时 1000 毫秒
  46. 条件结束
  47. 令 feyjy = 0
  48. (语句无法识别,可能有错误): gosub 等待交易 //跳到等待交易
  49. 子程序结束
  50. 子程序 等待交易
  51.     注释:找图
  52.     令 x = Window.Active(hwnd)
  53.     (语句无法识别,可能有错误): FindPic 455,305,636,419,"Attachment:\公告按钮.bmp",0.9,intX,intY //扫描交易框
  54.     如果 intX > 0 并且 intY > 0 则
  55.         (鼠标)移动到 (523, 403)
  56.         (鼠标)左键单击, 2次
  57.         延时 300 毫秒
  58.         从左上到右下查找图片 "Attachment:\11.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  59.         如果 intX > 0 并且 intY > 0 则
  60.             调用 等待放入物品()
  61.         否则
  62.             调用 站街自动喊话()
  63.         条件结束
  64.     否则
  65.         调用 站街自动喊话()
  66.     条件结束
  67. 子程序结束
  68. 子程序 等待放入物品
  69.     定义变量 i
  70.     令 i = 0
  71.     用户定义变量 ddfw=10000 "等待放入物品延迟时间(单位:毫秒)注:1000毫秒=1秒"
  72.     延时 ddfw 毫秒
  73.     循环当 i < 8 之前
  74.         从左上到右下查找图片 "Attachment:\交易栏无物品图.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:71 上:173 右:306 下:198),相似度 0.9
  75.         如果 intX > 0 并且 intY > 0 则
  76.             令 i = i + 1
  77.         否则
  78.             调用 检查并交易()
  79.         条件结束
  80.     循环结束
  81.     如果 i > 0 则
  82.         (键盘)按 "esc" 键, 1次
  83.         延时 100 毫秒
  84.         调用 站街自动喊话()
  85.     条件结束
  86. 子程序结束
  87. 子程序 输入金钱
  88.     定义变量 qian, x, cishu
  89.     标记 jiaqian(子程序 输入金钱)
  90.     令 qian = jiage(100)
  91.     如果 qian <> 0 则
  92.         注释:MsgBox "总价钱为:"&qian
  93.         (鼠标)移动到 (197, 301)
  94.         延时 250 毫秒
  95.         (鼠标)左键单击, 1次
  96.         延时 250 毫秒
  97.         (语句无法识别,可能有错误): KeyPress "BackSpace", 15 //金钱输入清零
  98.         延时 50 毫秒
  99.         令 x = 1
  100.         定义变量 shu