//做这东西主要是为了新人学习之用希望对新人们有一些帮助
//声明一些下面要用到的变量（其实不声明也可以不过为了养成
//编程的好习惯还是希望大家声明一下)
Dim XY_qi,Xq,Yq,n,m,Shu,Fu,A,X,Y
//下面这部分是用来设置各种参数
UserVar XY_qi=800/400 输入数字起点坐标 格式如：10/10
UserVar Hen=5 输入横向特征点个数
UserVar n=1 输入横向递进值
UserVar Zong=10 输入纵向特征点个数
UserVar m=2 输入纵向递进值
UserVar Ms=2 显示方式设置：1为弹出窗口模式 2为粘帖模式
UserVar Color1=FFFFFF 设置字体颜色或者背景颜色
//初始化数据部分
//把Color1转化为字符串类型
Color1=Str(Color1)
//........................转换成字符类型
//取得"/"在字符串的地几个
A=InStr(XY_qi,"/")
//.........................搜索字符串中指定字符的位置
//取得"/"左边的数据
Xq=Left(XY_qi,A-1)
//........................返回指定数目的从字符串的左边算起的字符
//取得"/"右边的数据
Yq=Right(XY_qi,Len(XY_qi)-A)
//.........从字符串右边返回指定数目的字符
//给Shu,X,Y 赋值                                   取得字符串长度
Shu=""
X=Xq:Y=Yq
//纵向特征点个数
For Zong
    //给X赋值
    X=Xq
    //横向特征点个数
    For Hen
        //利用GetPixelColor函数开始找颜色
        VBSCall Color2=GetPixelColor(X,Y)
        //找到的颜色值和自己设置的颜色值做比较
        If Color2<>Color1
            //如果2个颜色不一样则给Fu赋值"1"
            Fu="1"
        Else 
            //否则给Fu赋值为"0"
            Fu="0"
        EndIf 
        //没循环1次X的值增大n
        X=X+n
        //每循环1次Shu的值连接一个Fu
        Shu=Shu&Fu
    EndFor 
    //每循环一次Y的值增大m
    Y=Y+m
EndFor 
//如果模式选择1在显示数字特征码
If Ms=1
    VBSCall MessageBox("数字特征码为："&vbcr&Shu)
    //如果模式选择2则把数据写入剪切板
ElseIf Ms=2
    Gosub Nt
    Gosub Ts
EndIf 
EndScript 
//写入剪切板子程序
Sub Nt
    ShuZi=Shu
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("about:blank")
    objIE.document.parentwindow.clipboardData.SetData "Text", ShuZi
    objIE.Quit
Return Nt
//弹出对话框子程序
Sub Ts
    set Obj = createobject("WScript.Shell")
    Hua="数字特征码为："&vbcr&Shu&vbcr&"请打开记事本粘帖"
    VBSCall Obj.Popup(Hua,3,"提示",0)
Return Ts