1.         循环 5 遍
  2.             如果 (baox-3,baoy+5) 的颜色等于 #0 则
  3.                 如果 (baox-3,baoy-12) 的颜色等于 #0 则
  4.                     如果 (baox-3,baoy+11) 的颜色等于 #0 则
  5.                         跳转到标记 关闭宝箱
  6.                     条件结束
  7.                 条件结束
  8.             条件结束
  9.             鼠标移到 baox , baoy
  10.             延时dltime毫秒
  11.             左键单击
  12.             延时2*dltime毫秒
  13.             //确定卖宝
  14.             baox=baox+50
  15.             鼠标移到 513 , 358
  16.             延时2*dltime毫秒
  17.             左键单击
  18.             延时2*dltime毫秒
  19.         循环结束
  20.         baoy=baoy+51
  21.         baox=728
  22.     循环结束
  23.     标记 关闭宝箱
  24.     鼠标移到 729 , 120
  25.     延时dltime毫秒
  26.     左键单击
  27.     延时dltime毫秒
  28.     time2 = obj.GetTickCount()
  29.     currtime=date
  30.     currtime= currtime&" " &time
  31.     str=cstr(ttlcount)&"卖宝=["&cstr(currtime)&"]--完成！！耗时:" & CStr(int((time2-time1)/1000)) & "秒 "
  32.     调用子程序 记运行日志
  33.     time1 = obj.GetTickCount()
  34. 子程序结束,回到调用处
  35. 子程序 读验证码
  36.     dim filename,ma,nn,mm
  37.     filename= Array("00.bmp","01.bmp","02.bmp","10.bmp","11.bmp","12.bmp","90.bmp","91.bmp","92.bmp","20.bmp","21.bmp","22.bmp","30.bmp","31.bmp","32.bmp","40.bmp","41.bmp","42.bmp","50.bmp","51.bmp","52.bmp","60.bmp","61.bmp","62.bmp","70.bmp","71.bmp","72.bmp","80.bmp","81.bmp","82.bmp" )
  38.     ma= Array("0","0","0","0")
  39.     nn=29
  40.     x=-2
  41.     如果表达式 (x<0) 为真,则循环执行
  42.         //点确定
  43.         鼠标移到 831 , 705
  44.         左键单击
  45.         延时0.2*dltime毫秒
  46.         如果 (161,409) 的颜色等于 #292cd6 则
  47.             x=2
  48.         条件结束
  49.         如果 (161,409) 的颜色等于 #2920ef 则
  50.             x=2
  51.         条件结束
  52.         如果 (161,409) 的颜色等于 #4a49f7 则
  53.             x=2
  54.         条件结束
  55.         如果 (161,409) 的颜色等于 #6bd7ef 则
  56.             x=2
  57.         条件结束
  58.         如果 (262,397) 的颜色等于 #5251de 则
  59.             x=2
  60.         条件结束
  61.         调用子程序 重新进入
  62.     循环结束
  63.     标记 开始
  64.     // 开始
  65.     //记时开始
  66.     //currtime=date
  67.     // currtime= currtime&" " &time
  68.     //str="["&cstr(currtime)&"]开始读验证码！！"&ma(0)&ma(1)&ma(2)&ma(3)
  69.     // Gosub 记运行日志
  70.     //nnn
  71.     mm=0:nn=29:ll=0:x1=598:y1=268:x2=670:y2=302
  72.     dim xu(4),tmp,simil,tmpx2,tmpx
  73.     dx=x1:x=0:tmp=0:simil=0:tmpx2=0
  74.     如果表达式 (nn >= 0) 为真,则循环执行
  75.         标记 找第二个
  76.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  77.         如果表达式 (x> 0) 为真,则
  78.             如果表达式 (simil=0) 为真,则
  79.                 tmpx2=x+1
  80.             条件结束
  81.             simil=1
  82.             ma(mm)=left(filename(nn),1)
  83.             xu(mm)=x
  84.             ll=mm
  85.             如果表达式 (mm > 0) 为真,则
  86.                 循环 mm 遍
  87.                     如果表达式 (xu(ll) < xu(ll-1)) 为真,则
  88.                         tmp=xu(ll-1)
  89.                         xu(ll-1)=xu(ll)
  90.                         xu(ll)=tmp
  91.                         tmp=ma(ll-1)
  92.                         ma(ll-1)=ma(ll)
  93.                         ma(ll)=tmp
  94.                     条件结束
  95.                     ll=ll-1
  96.                 循环结束
  97.             条件结束
  98.             mm=mm+1
  99.             如果表达式 ((x< (x2-12)) and mm < 4) 为真,则
  100.                 dx=x+5