1.         //UnlockMouse
  2.         // Gosub 一键抓图
  3.         延时1000*cint(reentry)毫秒
  4.         chongxjr=1
  5.         跳转到标记 重新进入口
  6.     条件结束
  7. 子程序结束,回到调用处
  8. 子程序 验证码错重新进入
  9.     nnnnn=0
  10.     time2 = obj.GetTickCount()
  11.     //截错误图(Print screen键）
  12.     按键#
  13.     标记 杀当前进程
  14.     循环 200 遍
  15.         hwnd=obj.FindWindow("","三国策online(connect when "&nnnnn&")")
  16.         pID=obj.GetWindowThreadProcessId(hwnd)
  17.         retv=obj.TerminateProcess(pID)
  18.         hwnd=obj.FindWindow("","三国策online(disconnect when "&nnnnn&")")
  19.         pID=obj.GetWindowThreadProcessId(hwnd)
  20.         retv=obj.TerminateProcess(pID)
  21.         nnnnn=nnnnn+1
  22.     循环结束
  23.     延时100毫秒
  24.     currtime=date
  25.     currtime= currtime&" " &time
  26.     str=cstr(ttlcount)&"["&cstr(currtime)&"]--读验证码错！！耗时:" & CStr((time2-time1)/1000) & "秒 "
  27.     调用子程序 记运行日志
  28.     //UnlockMouse
  29.     调用子程序 一键抓图
  30.     延时1000*cint(reentry)毫秒
  31.     chongxjr=1
  32.     number=number+1
  33.     ttlCount=ttlCount+1
  34.     count80=count80 + 1
  35.     跳转到标记 重新进入口
  36. 子程序结束,回到调用处
  37. 子程序 进入游戏
  38.     currtime=date
  39.     currtime= currtime&" " &time
  40.     str="["&cstr(currtime)&"]"&zhanghn(num)
  41.     调用子程序 记运行日志
  42.     time1 = obj.GetTickCount()
  43.     nnn=0
  44.     按键<Num *>
  45.     延时200毫秒
  46.     调用插件命令 hwnd = Window.Find(0,"三国策online")
  47.     如果表达式 (hwnd = 0) 为真,则
  48.         延时chbtime毫秒
  49.     否则
  50.         调用插件命令 Window.Close(hwnd)
  51.     条件结束
  52.     调用插件命令 hwnd = Window.Find(0,"Smart Online Auto Updata")
  53.     如果表达式 (hwnd = 0) 为真,则
  54.         延时chbtime毫秒
  55.     否则
  56.         调用插件命令 Window.Close(hwnd)
  57.     条件结束
  58.     循环 30 遍
  59.         hwnd=obj.FindWindow("","三国策online(connect when "&nnn&")" )
  60.         pID=obj.GetWindowThreadProcessId(hwnd)
  61.         retv=obj.TerminateProcess(pID)
  62.         hwnd=obj.FindWindow("","三国策online(disconnect when "&nnnnn&")")
  63.         pID=obj.GetWindowThreadProcessId(hwnd)
  64.         retv=obj.TerminateProcess(pID)
  65.         nnn=nnn+1
  66.         延时chbtime毫秒
  67.     循环结束
  68.     延时3000毫秒
  69.     //下变速齿轮
  70.     调用插件命令 hwnd = Window.Find(0,"变速齿轮 0.451")
  71.     如果表达式 (hwnd = 0) 为真,则
  72.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  73.     否则
  74.         按键<Num *>
  75.         延时200毫秒
  76.         调用插件命令 Window.Active(hwnd)
  77.     条件结束
  78.     延时2000毫秒
  79.     xx=2
  80.     如果表达式 (xx > 0) 为真,则循环执行
  81.         如果 (604,356) 的颜色大约等于 #39cb73 则
  82.             跳转到标记 变速齿轮
  83.         否则
  84.             延时200毫秒
  85.         条件结束
  86.         调用子程序 重新进入
  87.     循环结束
  88.     标记 变速齿轮
  89.     延时5*200毫秒
  90.     // 先按alt
  91.     按住<Alt>
  92.     延时200毫秒
  93.     //按 r （这样为alt＋r）
  94.     按键<R>
  95.     延时200毫秒
  96.     弹起<Alt>
  97.     xx=2
  98.     如果表达式 (xx > 0) 为真,则循环执行
  99.         如果 (553,184) 的颜色大约等于 #7f 则
  100.             xx=-2