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

运行环境：分辨率：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