1.     循环结束
  2. 子程序结束,回到调用处
  3. 子程序 对应单福提示
  4.     x=-1
  5.     鼠标移到 550 , 400
  6.     //先找NPC铁匠
  7.     按住<F1>
  8.     如果表达式 (x < 0) 为真,则循环执行
  9.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  10.         如果表达式 (x > 0) 为真,则
  11.             弹起<F1>
  12.             鼠标移到 x-100 , y-50
  13.         否则
  14.             如果 (726,368) 的颜色等于 #213808 则
  15.                 鼠标移到 511 , 441
  16.                 延时dltime毫秒
  17.                 左键单击
  18.                 延时dltime毫秒
  19.                 跳转到标记 开始选服务器
  20.             否则
  21.                 延时5*dltime毫秒
  22.             条件结束
  23.         条件结束
  24.         调用子程序 重新进入
  25.     循环结束
  26.     //等单福出来
  27.     循环 5 遍
  28.         鼠标相对移动 10 , 0
  29.         左键单击
  30.         延时200毫秒
  31.         鼠标相对移动 -10 , 0
  32.         左键单击
  33.         延时200毫秒
  34.         //单福出来对话框
  35.         //单福只是在一定时候出来，如到一定的战功
  36.         如果 (804,622) 的颜色等于 #294508 则
  37.             跳转到标记 卖宝a
  38.         条件结束
  39.         如果 (371,622) 的颜色等于 #73b64a 则
  40.             跳转到标记 卖宝a
  41.         条件结束
  42.     循环结束
  43.     标记 卖宝a
  44.     延时1000毫秒
  45. 子程序结束,回到调用处
  46. 子程序 重新进入
  47.     nnnnn=0
  48.     time2 = obj.GetTickCount()
  49.     如果表达式 ((time2-time1) > 1000*cint(onetime)) 为真,则
  50.         //截错误图(Print screen键）
  51.         按键#
  52.         调用插件命令 hwnd = Window.Find(0,"main.map")
  53.         如果表达式 (hwnd = 0) 为真,则
  54.             延时chbtime毫秒
  55.         否则
  56.             延时2000毫秒
  57.             调用插件命令 Window.Active(hwnd)
  58.             如果表达式 (1) 为真,则循环执行
  59.                 延时100毫秒
  60.                 鼠标移到 670 , 436
  61.                 延时dltime毫秒
  62.                 左键单击
  63.                 延时dltime毫秒
  64.                 鼠标移到 670 , 457
  65.                 延时dltime毫秒
  66.                 左键单击
  67.                 调用插件命令 hwnd = Window.Find(0,"main.map")
  68.                 如果表达式 (hwnd = 0) 为真,则
  69.                     跳转到标记 杀了Main
  70.                 条件结束
  71.             循环结束
  72.             标记 杀了Main
  73.             延时1000毫秒
  74.         条件结束
  75.         调用插件命令 hwnd = Window.Find(0,"三国策online")
  76.         如果表达式 (hwnd = 0) 为真,则
  77.             延时chbtime毫秒
  78.         否则
  79.             调用插件命令 Window.Close(hwnd)
  80.         条件结束
  81.         调用插件命令 hwnd = Window.Find(0,"Smart Online Auto Updata")
  82.         如果表达式 (hwnd = 0) 为真,则
  83.             延时chbtime毫秒
  84.         否则
  85.             调用插件命令 Window.Close(hwnd)
  86.         条件结束
  87.         循环 200 遍
  88.             hwnd=obj.FindWindow("","三国策online(connect when "&nnnnn&")")
  89.             pID=obj.GetWindowThreadProcessId(hwnd)
  90.             retv=obj.TerminateProcess(pID)
  91.             hwnd=obj.FindWindow("","三国策online(disconnect when "&nnnnn&")")
  92.             pID=obj.GetWindowThreadProcessId(hwnd)
  93.             retv=obj.TerminateProcess(pID)
  94.             nnnnn=nnnnn+1
  95.         循环结束
  96.         延时100毫秒
  97.         currtime=date
  98.         currtime= currtime&" " &time
  99.         str=cstr(ttlcount)&"["&cstr(currtime)&"]--超时！！耗时:" & CStr((time2-time1)/1000) & "秒 "
  100.         调用子程序 记运行日志