按键精灵源码.docVIP

按键精灵源码 //做这东西主要是为了新人学习之用希望对新人们有一些帮助 //声明一些下面要用到的变量（其实不声明也可以不过为了养成 //编程的好习惯还是希望大家声明一下) Dim XY_qi,Xq,Yq,n,m,Shu,Fu,A,X,Y //下面这部分是用来设置各种参数 用户定义变量 XY_qi=800/400 输入数字起点坐标 格式如：10/10 用户定义变量 Hen=5 输入横向特征点个数 用户定义变量 n=1 输入横向递进值 用户定义变量 Zong=10 输入纵向特征点个数 用户定义变量 m=2 输入纵向递进值 用户定义变量 Ms=2 显示方式设置：1为弹出窗口模式 2为粘帖模式 用户定义变量 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 //纵向特征点个数 循环 Zong 遍 //给X赋值 X=Xq //横向特征点个数 循环 Hen 遍 //利用GetPixelColor函数开始找颜色 调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y) //找到的颜色值和自己设置的颜色值做比较 如果表达式 (Color2Color1) 为真,则 //如果2个颜色不一样则给Fu赋值1 Fu=1 否则 //否则给Fu赋值为0 Fu=0 条件结束 //没循环1次X的值增大n X=X+n //每循环1次Shu的值连接一个Fu Shu=ShuFu 循环结束 //每循环一次Y的值增大m Y=Y+m 循环结束 //如果模式选择1在显示数字特征码 如果表达式 (Ms=1) 为真,则 调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y) //如果模式选择2则把数据写入剪切板 否则如果(Ms=2)为真,则 调用子程序 Nt 调用子程序 Ts 条件结束 脚本停止运行 //写入剪切板子程序 子程序 Nt ShuZi=Shu Set objIE = CreateObject(InternetExplorer.Application) objIE.Navigate(about:blank) objIE.document.parentwindow.clipboardData.SetData Text, ShuZi objIE.Quit 子程序结束,回到调用处 //弹出对话框子程序 子程序 Ts set Obj = createobject(WScript.Shell) Hua=数字特征码为：vbcrShuvbcr请打开记事本粘帖 调用外部VBScript子程序 Color2=得到指定点的颜色(X,Y) 子程序结束,回到调用处 //打开画图程序，并最大化，调整默认大小再运行脚本就OK。这个步骤的代码我就不写啦。 //主要原理是先随机抽出6个不重复的字符，再把字符原来的坐标（已经收集好，超多）旋转缩放再平移，然后再画出来 //定义变量 dim j,k,l,q,n,o,i,p,ii,M(6),TTx1(350),TTy1(350),TTx2(350),TTy2(350),TTx3(350),TTy3(350),TTx4(350),TTy4(350),TTx5(350),TTy5(350),TTx6(350),TTy6(350) （VBScript语句） i=1:ii=1:j=1:k=1:l=1:q=1:n=1:o=1 //生成随机数，36选6不重复 循环 6 遍 M(ii)=37 ii=ii+1 循环结束 （VBScript语句） ii=1 Rnd(