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

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

文件下载

解压密码：

Tags：按键精灵

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)