1.                 左键弹起
  2.                 延时100毫秒
  3.                 Str="将"&i&"级材料放入包裹"
  4.                 调用子程序 日志记录
  5.             否则
  6.                 Str="包内无"&i&"级材料"
  7.             条件结束
  8.         循环结束
  9.         i=i+1
  10.     循环结束
  11.     延时100毫秒
  12.     鼠标移到 x10 , y10
  13.     延时1000毫秒
  14.     左键双击
  15.     延时100毫秒
  16.     按键<Esc>
  17. 子程序结束,回到调用处
  18. 子程序 检查包满
  19.     按住<Alt>
  20.     延时100毫秒
  21.     按键<E>
  22.     延时100毫秒
  23.     弹起<Alt>
  24.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  25.     如果表达式 (x>0 and y>0) 为真,则
  26.         Str="包未满，继续挖矿!!!!!!"
  27.         调用子程序 日志记录
  28.     否则
  29.         Str="包已满，去卖矿!!!!!!"
  30.         调用子程序 日志记录
  31.         调用子程序 卖矿
  32.         Str="卖矿完毕，继续采集!!!!!!!"
  33.         调用子程序 日志记录
  34.     条件结束
  35.     按键<Esc>
  36.     延时100毫秒
  37. 子程序结束,回到调用处
  38. 子程序 卖矿
  39.     按住<Alt>
  40.     延时100毫秒
  41.     按键<E>
  42.     延时100毫秒
  43.     弹起<Alt>
  44.     延时1000毫秒
  45.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  46.     如果表达式 (x>0 and y>0) 为真,则
  47.         鼠标移到 x , y
  48.         延时100毫秒
  49.         右键单击
  50.         延时100毫秒
  51.     否则
  52.         Str="找不到应天F，脚本结束"
  53.         调用子程序 日志记录
  54.         跳转到标记 MyEnd
  55.     条件结束
  56.     按键<Esc>
  57.     标记 走到管理员旁边
  58.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  59.     如果表达式 (x>0 and y>0) 为真,则
  60.         按键<Tab>
  61.         延时100毫秒
  62.         鼠标移到 298 , 300
  63.         //已改
  64.         延时100毫秒
  65.         左键单击
  66.         延时100毫秒
  67.         按键<Esc>
  68.     否则
  69.         调用子程序 等待
  70.         跳转到标记 走到管理员旁边
  71.     条件结束
  72.     延时10000毫秒
  73.     //行走延时
  74.     按键<F9>
  75.     延时100毫秒
  76.     标记 杂货摊
  77.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  78.     //已改
  79.     如果表达式 (x>0 and y>0) 为真,则
  80.         鼠标移到 x , y
  81.         延时100毫秒
  82.         左键单击
  83.     否则
  84.         调用子程序 等待
  85.         跳转到标记 杂货摊
  86.     条件结束
  87.     延时2000毫秒
  88.     标记 我这有
  89.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  90.     如果表达式 (x>0 and y>0) 为真,则
  91.         鼠标移到 x , y
  92.         延时100毫秒
  93.         左键单击
  94.     否则
  95.         调用子程序 等待
  96.         跳转到标记 我这有
  97.     条件结束
  98.     延时1000毫秒
  99.     标记 出售
  100.     x2=311:y2=263