1.         //已改
  2.         延时100毫秒
  3.         左键单击
  4.         延时100毫秒
  5.         鼠标移到 502 , 480
  6.         //已改
  7.         延时100毫秒
  8.         左键单击
  9.         延时100毫秒
  10.         Str="购买回城符完成"
  11.         调用子程序 日志记录
  12.     条件结束
  13.     按键<Esc>
  14.     //回家园
  15.     延时100毫秒
  16.     Str="补充完毕准备回家园"
  17.     调用子程序 日志记录
  18.     延时100毫秒
  19.     按键<Tab>
  20.     延时500毫秒
  21.     鼠标移到 554 , 300
  22.     //已改
  23.     延时100毫秒
  24.     左键单击
  25.     按键<Esc>
  26.     延时35000毫秒
  27.     按键<F9>
  28.     延时100毫秒
  29.     鼠标移到 155 , 167
  30.     //已改
  31.     延时100毫秒
  32.     左键单击
  33.     延时2000毫秒
  34.     标记 自宅
  35.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  36.     如果表达式 (x>0 and y>0) 为真,则
  37.         鼠标移到 x , y
  38.         延时100毫秒
  39.         左键单击
  40.     否则
  41.         调用子程序 等待
  42.         跳转到标记 自宅
  43.     条件结束
  44.     延时2000毫秒
  45.     标记 管理员
  46.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  47.     //已修改为800X600
  48.     如果表达式 (x>0 and y>0) 为真,则
  49.         鼠标移到 x , y
  50.         延时100毫秒
  51.         左键单击
  52.     否则
  53.         调用子程序 管理员
  54.         跳转到标记 自宅
  55.     条件结束
  56.     延时2000毫秒
  57.     标记 进入庭院
  58.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  59.     如果表达式 (x>0 and y>0) 为真,则
  60.         鼠标移到 x , y
  61.         延时100毫秒
  62.         左键单击
  63.     否则
  64.         调用子程序 等待
  65.         跳转到标记 进入庭院
  66.     条件结束
  67.     延时3000毫秒
  68.     标记 检查庭院
  69.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  70.     如果表达式 (x>0 and y>0) 为真,则
  71.         Str="回到庭院!!!!!!!!"
  72.         调用子程序 日志记录
  73.     否则
  74.         调用子程序 等待
  75.         跳转到标记 检查庭院
  76.     条件结束
  77. 子程序结束,回到调用处
  78. 子程序 日志记录
  79.     t2=now
  80.     调用插件命令 Rest2=DBsoft.WriteTXT(""&t2&" "&Str&"","c:/水浒Q传全自动采集："&t1&".txt",2)
  81. 子程序结束,回到调用处
  82. 子程序 等待
  83.     延时Ys*1000毫秒
  84.     Str="遇卡!!!!!延时"&Ys&"秒"
  85.     调用子程序 日志记录
  86. 子程序结束,回到调用处
  87. 子程序 OnScriptExit
  88.     调用插件命令 Rest2=DBsoft.WriteTXT(" ","c:/水浒Q传全自动采集："&t1&".txt",2)
  89. 子程序结束,回到调用处
  90. 标记 MyEnd
  91. 脚本停止运行