1. //做这东西主要是为了新人学习之用希望对新人们有一些帮助
2. //声明一些下面要用到的变量（其实不声明也可以不过为了养成
3. //编程的好习惯还是希望大家声明一下)
4. Dim XY_qi,Xq,Yq,n,m,Shu,Fu,A,X,Y
5. //下面这部分是用来设置各种参数
6. 用户定义变量 XY_qi=800/400 输入数字起点坐标 格式如：10/10
7. 用户定义变量 Hen=5 输入横向特征点个数
8. 用户定义变量 n=1 输入横向递进值
9. 用户定义变量 Zong=10 输入纵向特征点个数
10. 用户定义变量 m=2 输入纵向递进值
11. 用户定义变量 Ms=2 显示方式设置：1为弹出窗口模式 2为粘帖模式
12. 用户定义变量 Color1=FFFFFF 设置字体颜色或者背景颜色
13. //初始化数据部分
14. //把Color1转化为字符串类型
15. Color1=Str(Color1)
16. //........................转换成字符类型
17. //取得"/"在字符串的地几个
18. A=InStr(XY_qi,"/")
19. //.........................搜索字符串中指定字符的位置
20. //取得"/"左边的数据
21. Xq=Left(XY_qi,A-1)
22. //........................返回指定数目的从字符串的左边算起的字符
23. //取得"/"右边的数据
24. Yq=Right(XY_qi,Len(XY_qi)-A)
25. //.........从字符串右边返回指定数目的字符
26. //给Shu,X,Y 赋值 取得字符串长度
27. Shu=""
28. X=Xq:Y=Yq
29. //纵向特征点个数
30. 循环 Zong 遍
31.     //给X赋值
32.     X=Xq
33.     //横向特征点个数
34.     循环 Hen 遍
35.         //利用GetPixelColor函数开始找颜色
36.         调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y)
37.         //找到的颜色值和自己设置的颜色值做比较
38.         如果表达式 (Color2<>Color1) 为真,则
39.             //如果2个颜色不一样则给Fu赋值"1"
40.             Fu="1"
41.         否则
42.             //否则给Fu赋值为"0"
43.             Fu="0"
44.         条件结束
45.         //没循环1次X的值增大n
46.         X=X+n
47.         //每循环1次Shu的值连接一个Fu
48.         Shu=Shu&Fu
49.     循环结束
50.     //每循环一次Y的值增大m
51.     Y=Y+m
52. 循环结束
53. //如果模式选择1在显示数字特征码
54. 如果表达式 (Ms=1) 为真,则
55.     调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y)
56.     //如果模式选择2则把数据写入剪切板
57. 否则如果(Ms=2)为真,则
58.     调用子程序 Nt
59.     调用子程序 Ts
60. 条件结束
61. 脚本停止运行
62. //写入剪切板子程序
63. 子程序 Nt
64.     ShuZi=Shu
65.     Set objIE = CreateObject("InternetExplorer.Application")
66.     objIE.Navigate("about:blank")
67.     objIE.document.parentwindow.clipboardData.SetData "Text", ShuZi
68.     objIE.Quit
69. 子程序结束,回到调用处
70. //弹出对话框子程序
71. 子程序 Ts
72.     set Obj = createobject("WScript.Shell")
73.     Hua="数字特征码为："&vbcr&Shu&vbcr&"请打开记事本粘帖"
74.     调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y)
75. 子程序结束,回到调用处