—
本帖被 幻想. 执行取消锁定操作(2009-01-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转化为字符串类型
VBS Color1=Str(Color1) ........................转换成字符类型
//取得"/"在字符串的地几个
VBS A=InStr(XY_qi,"/").........................搜索字符串中指定字符的位置
//取得"/"左边的数据
VBS Xq=Left(XY_qi,A-1)........................返回指定数目的从字符串的左边算起的字符
//取得"/"右边的数据
VBS Yq=Right(XY_qi,Len(XY_qi)-A).........从字符串右边返回指定数目的字符
//给Shu,X,Y 赋值 取得字符串长度
VBS Shu=""
VBS X=Xq:Y=Yq
//纵向特征点个数
For Zong
//给X赋值
VBS X=Xq
//横向特征点个数
For Hen
//利用GetPixelColor函数开始找颜色
VBSCall Color2=GetPixelColor(X,Y)
//找到的颜色值和自己设置的颜色值做比较
If Color2Color1
//如果2个颜色不一样则给Fu赋值"1"
VBS Fu="1"
Else
//否则给Fu赋值为"0"
Fu="0"
EndIf
//没循环1次X的值增大n
VBS X=X+n
//每循环1次Shu的值连接一个Fu
VBS Shu=Shu&Fu
EndFor
//每循环一次Y的值增大m
VBS Y=Y+m
EndFor
//如果模式选择1在显示数字特征码
If Ms=1
VBSCall MessageBox("数字特征码为："&vbcr&Shu)
//如果模式选择2则把数据写入剪切板
ElseIf Ms=2
Gosub Nt
Gosub Ts
EndIf
EndScript
//写入剪切板子程序
Sub Nt
VBS ShuZi=Shu
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Navigate("about:blank")
VBS objIE.document.parentwindow.clipboardData.SetData "Text", ShuZi
VBS objIE.Quit
Return Nt
//弹出对话框子程序
Sub Ts
VBS set Obj = createobject("WScript.Shell")
VBS Hua="数字特征码为："&vbcr&Shu&vbcr&"请打开记事本粘帖"
VBSCall Obj.Popup(Hua,3,"提示",0)
Return Ts
如果大家有声明不懂的地方请跟帖!
