1.     注释：Delay 30
  2.     （鼠标）左键单击, 1次
  3.     注释：Delay 50
  4.     输入文本 PHONE
  5.     延时 50 毫秒
  6.     注释：验证码
  7.     （鼠标）移动到 (Ux + 300, Uy + 275)
  8.     注释：Delay 30
  9.     （鼠标）左键单击, 1次
  10.     注释：Delay 50
  11.     调用 identifyingcode()
  12.     延时 50 毫秒
  13.     注释：同意
  14.     （鼠标）移动到 (Ux + 270, Uy + 360)
  15.     注释：Delay 30
  16.     （鼠标）左键单击, 1次
  17.     注释：Delay 30
  18.     注释：点击注册
  19.     （鼠标）移动到 (Ux + 300, Uy + 394)
  20.     注释：Delay 30
  21.     （鼠标）左键单击, 1次
  22.     延时 500 毫秒
  23.     调用 ToDisplayClient()
  24.     令 RegisteTemp = 0
  25.     令 RegisteResult = ""
  26.     循环 15 次
  27.         令 GetColor = 得到指定点 (Ux + 165 + RegisteTemp, Uy + 170) 的颜色
  28.         如果 GetColor = "00FCF8" 则
  29.             令 RegisteTempA = "1"
  30.         否则
  31.             令 RegisteTempA = "0"
  32.         条件结束
  33.         令 RegisteResult = RegisteResult + RegisteTempA
  34.         令 RegisteTemp = RegisteTemp + 1
  35.     循环结束
  36.     如果 RegisteResult = ress 则
  37.         延时 50 毫秒
  38.         注释：将账号存于文件
  39.         令 resss = ""
  40.         令 resss = id + CStr(i)
  41.         调用 File.WriteFileEx("D:\Account1.txt",resss)
  42.         注释： MessageBox "1:成功"
  43.         调用 Registe()
  44.     否则如果 RegisteResult = reis 则
  45.         延时 50 毫秒
  46.         注释：将账号存于文件
  47.         令 reiss = ""
  48.         令 reiss = id + CStr(i)
  49.         调用 File.WriteFileEx("D:\Account2.txt",reiss)
  50.         注释： MessageBox "2:成功"
  51.         调用 Registe()
  52.     否则如果 RegisteResult = reii 则
  53.         跳转到标记 EndIP(子程序 AccountCreate)
  54.     否则
  55.         调用 Registe()
  56.         跳转到标记 Create(子程序 AccountCreate)
  57.     条件结束
  58. 子程序结束
  59. 子程序 identifyingcode()
  60.     注释：验证码识别失败则再次识别
  61.     调用 ToDisplayClient()
  62.     延时 20 毫秒
  63.     令 m = 378
  64.     令 n = 278 - 1
  65.     定义变量 MyArray
  66.     定义变量 result
  67.     令 result = ""
  68.     循环 4 次
  69.         令 m = m + 7
  70.         令 n = 277
  71.         令 MyArray = ""
  72.         循环 9 次
  73.             令 m = m - 7
  74.             令 n = n + 1
  75.             循环 7 次
  76.                 令 GetColor = 得到指定点 (Ux + m, Uy + n) 的颜色
  77.                 如果 GetColor = "F8FCF8" 则
  78.                     令 j = "1"
  79.                 否则
  80.                     令 j = "0"
  81.                 条件结束
  82.                 令 MyArray = MyArray + j
  83.                 令 m = m + 1
  84.             循环结束
  85.         循环结束
  86.         注释：这里判断字母
  87.         注释：结果存在result里
  88.         注释： MyArray ="000100000010000010100001010000101000011100010001001000101110111"
  89.         注释：MessageBox MyArray
  90.         循环 52 次
  91.             如果 MyArray = yzm(1) 则
  92.                 令 temp = "A"
  93.             否则如果 MyArray = yzm(2) 则
  94.                 令 temp = "B"
  95.             否则如果 MyArray = yzm(3) 则
  96.                 令 temp = "C"
  97.             否则如果 MyArray = yzm(4) 则
  98.                 令 temp = "D"
  99.             否则如果 MyArray = yzm(5) 则
  100.                 令 temp = "E"