1.     //得到第一个数字的位置
  2.     pX=x:pY=y
  3.     //清空验证码
  4.     numText=""
  5.     //分别读取4个数字
  6.     循环 4 遍
  7.         n=0:numtp=""
  8.         循环 addy 遍
  9.             i=0
  10.             循环 addx 遍
  11.                 调用外部VBScript子程序 MessageBox(tp & "," & maxText)
  12.                 //得到9C
  13.                 b=CInt("&H" & Left(co,2))
  14.                 如果表达式 (b>150 and b<235) 为真,则
  15.                     tp=1
  16.                 否则
  17.                     tp=0
  18.                 条件结束
  19.                 //得到颜色01字符串
  20.                 numtp=numtp & tp
  21.                 i=i+1
  22.             循环结束
  23.             n=n+1
  24.         循环结束
  25.         //判断是数字几
  26.         如果表达式 (StrComp(numtp,"001010100100100100100100100100010")=0) 为真,则
  27.             number=0
  28.         否则如果(StrComp(numtp,"000000001010000000000000000000000")=0)为真,则
  29.             number=1
  30.         否则如果(StrComp(numtp,"001010100000000000000000000001010")=0)为真,则
  31.             number=2
  32.         否则如果(StrComp(numtp,"001010100000000001000000000100110")=0)为真,则
  33.             number=3
  34.         否则如果(StrComp(numtp,"000000000001001010100000111000000")=0)为真,则
  35.             number=4
  36.         否则如果(StrComp(numtp,"011010010100111100000000000100010")=0)为真,则
  37.             number=5
  38.         否则如果(StrComp(numtp,"001010100100101110100100100100010")=0)为真,则
  39.             number=6
  40.         否则如果(StrComp(numtp,"111000000000000000000000000001001")=0)为真,则
  41.             number=7
  42.         否则如果(StrComp(numtp,"001010100100010001010100100100010")=0)为真,则
  43.             number=8
  44.         否则如果(StrComp(numtp,"001010100100100100010001000100010")=0)为真,则
  45.             number=9
  46.         条件结束
  47.         //读取下一位数字
  48.         pX=pX+add
  49.         //记录数字
  50.         numText=numText & number
  51.     循环结束
  52. 子程序结束,回到调用处