1.                 跳转到标记 找第二个
  2.             条件结束
  3.         条件结束
  4.         如果表达式 (simil > 0) 为真,则
  5.             simil=0
  6.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  7.             如果表达式 (x> 0) 为真,则
  8.                 ma(mm)=left(filename(nn),1)
  9.                 xu(mm)=x
  10.                 ll=mm
  11.                 如果表达式 (mm > 0) 为真,则
  12.                     循环 mm 遍
  13.                         如果表达式 (xu(ll) < xu(ll-1)) 为真,则
  14.                             tmp=xu(ll-1)
  15.                             xu(ll-1)=xu(ll)
  16.                             xu(ll)=tmp
  17.                             tmp=ma(ll-1)
  18.                             ma(ll-1)=ma(ll)
  19.                             ma(ll)=tmp
  20.                         条件结束
  21.                         ll=ll-1
  22.                     循环结束
  23.                 条件结束
  24.                 mm=mm+1
  25.             条件结束
  26.         条件结束
  27.         dx=x1
  28.         nn=nn-1
  29.     循环结束
  30.     currtime=date
  31.     currtime= currtime&" " &time
  32.     str="["&cstr(currtime)&"]结束读验证码！！"&ma(0)&ma(1)&ma(2)&ma(3)
  33.     调用子程序 记运行日志5
  34.     SayString(ma(0)&ma(1)&ma(2)&ma(3))
  35.     str=join(ma,"")
  36.     errfilename="读验证码"&str
  37.     延时chbtime毫秒
  38.     //点确定
  39.     鼠标移到 707 , 360
  40.     延时chbtime毫秒
  41.     左键单击
  42.     延时chbtime毫秒
  43. 子程序结束,回到调用处
  44. 子程序 退出模块
  45.     //关音乐，音效等，（600，270）（600，310）
  46.     //退出（396,550），返回（510，550），回城门（630，550）
  47.     鼠标移到 188 , 733
  48.     xx=2
  49.     如果表达式 (xx > 0) 为真,则循环执行
  50.         如果 (311,576) 的颜色大约等于 #397908 则
  51.             鼠标移到 396 , 553
  52.             延时5*dltime毫秒
  53.             左键单击
  54.             延时dltime毫秒
  55.             xx=-2
  56.         否则
  57.             左键单击
  58.             延时dltime毫秒
  59.         条件结束
  60.         调用子程序 重新进入
  61.     循环结束
  62.     // 退一
  63.     xx=2
  64.     如果表达式 (xx > 0) 为真,则循环执行
  65.         如果 (337,368) 的颜色大约等于 #429a10 则
  66.             鼠标移到 461 , 427
  67.             延时dltime毫秒
  68.             左键单击
  69.             延时dltime毫秒
  70.             xx=-2
  71.         否则
  72.             左键单击
  73.             延时dltime毫秒
  74.         条件结束
  75.         调用子程序 重新进入
  76.     循环结束
  77. 子程序结束,回到调用处
  78. //记运行日志模块
  79. 子程序 记运行日志5
  80.     如果表达式 (logflag > 4) 为真,则
  81.         调用子程序 记运行日志
  82.     条件结束
  83. 子程序结束,回到调用处
  84. 子程序 记运行日志10
  85.     如果表达式 (logflag > 9) 为真,则
  86.         调用子程序 记运行日志
  87.     条件结束
  88. 子程序结束,回到调用处
  89. 子程序 记运行日志
  90.     set myfile=fso.opentextfile(filepath&"运行日志.txt",8)
  91.     myfile.writeline(str )
  92.     myFile.Close
  93. 子程序结束,回到调用处
  94. //杀当前进程
  95. 子程序 winclose
  96.     dim handle,stitle
  97.     调用插件命令 handle = Window.Foreground()
  98.     调用插件命令 stitle = Window.GetText(handle)
  99.     调用插件命令 Window.Close(handle)
  100. 子程序结束,回到调用处