按键精灵获取数字特征码实例详解

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01未评2009/3/19

//做这东西主要是为了新人学习之用希望对新人们有一些帮助  
//声明一些下面要用到的变量（其实不声明也可以不过为了养成  
//编程的好习惯还是希望大家声明一下)  
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