1.         令 Features(i) = Rx(i) & "|" & Ry(i) & "|" & Features(i) & ","
  2.         令 Featuresstr = Featuresstr & Features(i)
  3.     循环结束
  4.     令 IsFeaturesExists = Color.FindMutiColor(0,0,1024,768,Features(1),Featuresstr,0.8)
  5.     注释：返回值格式为: 坐标X|坐标Y
  6.     标记 EndOfFunc(函数 IsFeaturesExists)
  7. 函数结束
  8. 子程序 Get_Features(DirPath,FileName)
  9.     注释： 自定义坐标取色并显示
  10.     定义变量 TargetFileName
  11.     定义变量 Rx(100), Ry(100), PixelColor(100), Rs(100)
  12.     定义变量 Num, LastKey
  13.     弹出窗口 "开始准备抓点" & vbCtrf & "按 Esc 键退出抓点"
  14.     令 Num = 0
  15.     循环 i 从 1 到 100
  16.         令 LastKey = （键盘）等待按任意键
  17.         注释： MessageBox LastKey
  18.         如果 LastKey = 27 则
  19.             跳出循环
  20.             注释： 按下 Esc 键则退出
  21.         条件结束
  22.         令 Num = Num + 1
  23.         把当前鼠标所在的位置保存到 (Rx(i), Ry(i))
  24.         令 PixelColor(i) = 得到指定点 (Rx(i), Ry(i)) 的颜色
  25.         注释：↑上面就是写进TXT的找到的点坐标和颜色
  26.     循环结束
  27.     注释：↑配合抓抓, 你就可以方便的抓取各种图标/物品/生物等的特征色和相对坐标了
  28.     （鼠标）移动到 (500, 500)
  29.     延时 500 毫秒
  30.     循环 i 从 1 到 Num
  31.         令 Rs(i) = 得到指定点 (Rx(i), Ry(i)) 的颜色
  32.         注释：↑上面就是写进TXT的找到的点坐标和颜色
  33.     循环结束
  34.     令 objShell = CreateObject("WScript.Shell")
  35.     令 TargetFileName = DirPath & "\" & FileName
  36.     注释：↑取得桌面路径
  37.     令 fso = CreateObject("Scripting.FileSystemObject")
  38.     如果 fso.FileExists(TargetFileName) = 0 则
  39.         令 myfile = fso.createtextfile(TargetFileName)
  40.         myfile.Close()
  41.     否则
  42.         令 myfile = fso.opentextfile(TargetFileName,forreading)
  43.         myfile.Close()
  44.     条件结束
  45.     令 myfile = fso.opentextfile(TargetFileName,forappending)
  46.     注释：↑写一个TXT到桌面
  47.     myfile.writeline(("//注释前缀为两个'/'"))
  48.     myfile.writeline(("//下面数字含义为: 座标X,座标Y,该点颜色"))
  49.     循环 i 从 1 到 Num
  50.         myfile.writeline((Rx(i) & "," & Ry(i) & "," & Rs(i)))
  51.     循环结束
  52.     注释：↑上面就是写进TXT的找到的点坐标
  53.     注释：↑上面就是写进TXT的取点结果
  54.     myfile.Close()
  55.     注释：↑别忘了把结果改成容易记忆的文件名呀
  56.     弹出窗口 "取点成功, 共 " & Num & " 个特征点"
  57. 子程序结束
  58. 子程序 AscIIOfKey()
  59.     定义变量 KeyYouPress
  60.     弹出窗口 "现在进行按键键码测试" & vbCrlf & "按 End 键退出键码测试"
  61.     循环当 true 时
  62.         令 KeyYouPress = （键盘）等待按任意键
  63.         弹出窗口 KeyYouPress
  64.         如果 KeyYouPress = 35 则
  65.             退出子程序
  66.         条件结束
  67.     循环结束
  68. 子程序结束