记事本程序语言(34页).doc

《记事本程序语言(34页).doc》由会员分享，可在线阅读，更多相关《记事本程序语言(34页).doc（33页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、-第 1 页记事本程序语言-第 2 页讲一下 VBScript。主要面向菜鸟，懂得编程的朋友就不要浪费时间了，如果你想接触以下VBScript 也可以。但既然有编程基础推荐直接去找一些参考书来读。会比较快。什么是 VBScript 呢？VBScript 的全称是：Microsoft Visual Basic Script Editon.(微软公司可视化BASIC 脚本版)。正如其字面所透露的信息，VBS(VBScript 的进一步简写)是基于 Visual Basic的脚本语言。我进一步解释一下，Microsoft Visual Basic 是微软公司出品的一套可视化编程工具，语法基于 Bas

2、ic.脚本语言，就是不编译成二进制文件，直接由宿主(host)解释源代码并执行，简单点说就是你写的程序不需要编译成.exe，而是直接给用户发送.vbs 的源程序，用户就能执行了。我知道菜鸟现在最关心的就是用什么工具来开发 VBS 程序了，答案是：记事本(Notepad).我不是开玩笑，其实任何一种文本编辑器都可以用来开发 VBS 开发，只不过记事本是由系统自带的，比较好找而已.尽管如此，我还是建议你去下载一个专业的文本编辑器，因为这些工具可以提供 语法高亮等功能，更加方便开发，用哪一个随你喜好，我比较喜欢 Edit Plus(2.10).OK，我们先来写一个 VBScript 程序热热身.RE

3、M 输入并回显你的名字使用 InputBox 和 Msgbox 函数Dim name,msgmsg=请输入你的名字:name=Inputbox(msg,名称)Msgbox(name)把上面的程序清单输入到记事本里面，然后保存为以.vbs 为扩展名的文件(保存类型里面选择所有文件).然后双击运行，观察运行结果.注意:请自己输入程序清单，不要复制-粘贴!我来解释一下这个程序，第一行和第二行的开头分别是REM语句和 ，这两个东西的作用是相同的，表示本行是注释行，就是说这两行什么也不干,只是用来说明这段程序的功能，版权信息等等.注释行是程序最重要的部分之一，尽管它不是必需的，但对于其他人阅读源代码，以

4、及自己分析源代码是很有好处的.好的习惯是在必要的地方加上清晰，简洁的注释。Dim 用来声明一个变量，在 VBS 中，变量类型并不是那么重要，就是说 VBS 会帮你自动识别变量类型，而且变量在使用前不一定要先声明，程序会动态分配变量空间.在 VBS 中你不用考虑 name 储存的是一个整数还是一个小数(学名叫浮点数)，也不用考虑是不是字符串(一串字符，比如:Hello World)，VBS 会自动帮你搞定.所以第三行语句可以删除，效果不会变，但我强烈反对这么做，一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字，但不能使用 vbs 已经定义的字，比如 dim，也不能是

5、纯数字。1/39 页下一行被称之为赋值，=是赋值符号，并不是数学中的等于号，尽管看起来一样.这是正统的理解，你要理解成等于也没有什么不可.赋值号的左边是一个变量，右边是要赋给变量的值，经过赋值以后，msg 这个变量在程序中等同于请输入你的名字:这个字符串,但当 msg被再次复制的时候，原值就会消失.不光字符串，其他任何变量都这样被赋值，例如:a=2，b=12.222 等等。再往下,Inputbox 和 Msgbox 是 VBS 内建的函数，一个函数就相当于一个黑箱，有输入(参数)和输出(返回值)，你可以不用了解函数是怎么运作的，只要了解这个函数能干什么就行了，我们也可以定义自己的函数，不过那要

6、等到以后再讲.现在我们只要了解，一个函数可以有返回值也可以没有，可以有参数也可以没有.例如 Inputbox 就是有返回值的函数，我们用赋值号左边的变量来接住 InputBox 的返回值-就是你输入的内容.在 inputbox 右边的括号里是参数列表，每个参数用,分隔开，每个参数有不同的功效，比如第一个参数会显示在提示-第 3 页里，我们把 msg 这个变量作为第一个参数传给了 Inputbox 函数，而 msg=请输入你的名字：，所以我们在对话框的提示栏就会看到“请输入你的名字：”第二个参数是对话框的标题，我们用直接量(学名叫常量，这里是字符串常量)传递给函数，当然你也可以传递变量.Inpu

7、tbox 还有很多参数，比如你在名称后面再加一个,然后输入随便一串字符(字符串,用双引号包裹起来的一串字符叫做字符串)然后运行，看看结果.你会发现用于输入的文本框有了默认的值，这就是第三个参数的作用。Msgbox 函数是用来输出的函数，在 VBS 中没有专门的输出函数(BASIC 中的 print,C 中的printf)，所以我们只能用对话框来观察输出结果，Msgbox 的必要参数只有一个，就是要输出的内容，在这种情况下，我们不需要理会 msgbox 的返回值.关于 Msgbox 和 Inputbox 我们以后还会在讨论，今天只是热热身，到此为止.要点：1)注释(以 REM 或开头)行在程序中

8、不起作用，但能让别人更容易读懂你的程序.2)变量好像一个盒子，或一个代号，可以代表你想代表的东西.变量赋值使用=3)以包裹起来的字符称之为字符串4)函数像一个黑箱，有参数和返回值，用=左边的变量可以接住返回值5)Inputbox 函数弹出一个输入对话框，Msgbox 则用于输出作业：1)试验 Inputbox 的第三个参数2)写一段程序输出你的年龄3)写一段程序进行 3 次输入，分别输入你和你父母的姓名(要求显示提示)，并分 3 次输出。第二篇：2/39 页我真没想到，第一次的作业竟然有人不会。看来要讲的非常非常细致才行，嗯，今天讲各种“量”和基本运算。先说常量，这个比较简单。什么是常量呢，常

9、量就是其值不可变化的量。常量分为两种：第一种，自然常量。这叫是因为它们本身就是常量，你怎么更改 21 的值呢?他永远都是 21，不可能变成 46。如果你在程序中使用21=46，这样的语句将会引发一个错误。同样的，字符串也是常量(还记得字符串吗?就是包裹在之间的一串字符)，Hello World就是一个例子，如果你使用Hello World=Bye这样的语句同样会引发一个错误。你能举出自然常量的更多例子吗？第二种，是我们自己定义的常量，这种量也使用代号，他们也被赋值，但和变量的不同点在于，他们在定义的时候被赋值，以后就不能改变了，如果企图改变将会引发一个错误。定义一个变量，我们使用const这个

10、关键字(关键字的意思是系统定义了有特殊功能的字，不能作为变量名或常量名使用)，格式是：const 常量名=常量值例如：const PI=3.1415926const NAME=记忆碎片这样我们就定义了两个常量，PI 和 NAME，一般说来，常量名全部使用大写，但也可以不用，随你喜好。将一些在程序中不需要改变的值定义为常量是个好习惯，这样能防止不必要的意外。另外，使用自定义常量也可以减少你的工作量。比如：msgbox(Hello World)msgbox(Hello World)msgbox(Hello World)-第 4 页msgbox(Hello World)msgbox(Hello Wo

11、rld)这个程序输出五次 Hello World，如果你想要改变输出为 Bye-Bye，就必须修改全部程序，当然你可以手动修改 5 次，但如果你要输出 1000 次呢？常量就可以替我们解决这个问题：const hw=Hello Worldmsgbox(hw)msgbox(hw)msgbox(hw)msgbox(hw)3/39 页msgbox(hw)这样当你要修改输出的时候只要修改 hw 的值就行了。好了，现在我们来看看编程的第一块重要“基石”：变量。解释变量最好的办法我觉得是“盒子”，一个变量好像一个盒子，里面只能装一个东西，当你要装进去别的东西的时候必须把原有的东西拿出来。这个“盒子”是有名

12、称的，当你在程序中使用变量的时候，系统会打开盒子取出里面的东西，让这些东西参与处理，而不是盒子。有些语言是很依赖“盒子”里面装些什么东西，这样才能找到合适的“盒子”（比如 C 语言），但 VBS 给我提供的是能够自动伸缩的“魔术盒”，我们不用关心装进去的是什么东西，VBS 会自动调整盒子的大小。例如：Dim a1,a2,a3a1=14a2=12.23a3=Hello而不用像 C 语言那样麻烦，或者是 VB 的正规声明（VB 可以声明也可以不用）那样：int a1;Dim a1 as integerfloat a2;Dim a2 as Doublechar*a3;Dim a3 as strnig

13、a1=14;a1=14a2=12.23;a2=12.23a3=Hello;a3=Hello嗯扯远了变量有什么用呢？哇，那用处可大了。最简单，你并不能确定程序运行时变量的值，比如前一节课我们编的输入姓名的程序，你不能确定 InputBox 返回的是什么（还记得 Inputbox 的返回值吗？就是你输入的内容），所以你就没有办法应对各种情况，但我们用 name 这个“盒子”把用户的名字装起来，到用的时候我们只要知道 name 这个盒子的名字就行了，系统会自己打开他并把里面的内容拿出来用。再举个例子，我们编写一个程序计算一个矩形的面积，比如这个程序要发给小学生使用：dim a,b,sa=15b=12

14、s=a*bmsgbox(s)这样就可以求出长为 15，宽为 12 的矩形的面积了，是不是很简单？当然，这个程序也可以这样写：4/39 页-第 5 页dim ss=15*12msgbox(s)这样看起来程序短了许多，也节约内存，但并不是鼓励的做法，为什么？请看下面。现在，我们的程序要变得像点样子才行，谁的程序写出来还要别人修改源代码才能用啊？所以，我们要接受用户的输入，还记得吗？InputBox 函数。修改后程序如下：dim a,b,sa=inputbox(请输入矩形的长:)b=inputbox(请输入矩形的宽:)s=a*bmsgbox(s)OK，这么一修改，无论用户输入怎样的数据，我们都能计算

15、出矩形的面积了。如果你用s=15*12 能改嘛？当然不行。我想你已经发现了，vbs 中的数学计算和真正的算术没有什么不同，+,-,*,/,(),都是一样的用法，比如：dim ansans=12+32/4+(23-10)*2msgbox(ans)四则运算的法则在编程中同样生效，你可以在编程中重新获得小学时候的乐趣（你恨数学？那就别学电脑了）。在编程中有一个有趣的运算符是mod，这个运算符叫做取余运算符，就是取得一次除法的余数，例如：dim aa=16 mod 5你知道 a 等于几吗？Bingo!没错，就是 1。因为 16/5=31，所以 mod 计算的结果就是 1。还有一个运算符是(就是键盘“6

16、”上面的小箭头)，他表示“乘幂”（或者是“方”），比如：dim a,b,ca=2b=a2c=a3msgbox(a)msgbox(c)则 b=a*a=4，c=a*a*a=8我们一次不要讲太多，这次就讲到这里，现在总结一下。要点：1)常量分为自然常量和自定义常量，常量的值不可修改2)变量就像盒子，我们不在乎盒子里装的是什么，但一定要知道盒子的名字3)四则运算在编程中没有任何不同4)MOD 是取余运算作业：1)编一个程序，计算圆形的面积，半径由用户给出(使用 Inputbox)PI 取值 3.141592)编一个程序取得 20/3 的余数估计大家看累了，我来个大话西游 2 游戏计算器的实例吧。-第

17、6 页小黑在帮派门口摆摊卖药，今天共卖了 56 个灵异天香，每个的出售价格为 2170，那么他赚了多少钱？（药店出售的灵异天香价格为 2160）在题目中，56 和 2170 是变量。大家可以想想代码怎么写，然后再往下看。dim m,n,x,msgmsg=小黑在帮派门口摆摊卖药，今天共卖了 n 个灵异天香，每个的出售价格为 m，那么他赚了多少钱？n=inputbox(msg,灵异天香个数 n,请在此输入灵异天香个数 n)m=inputbox(msg,每个售价 m,请在此输入每个药的出售价格 m)x=(m-2160)*nmsgbox(答案：&x)把这段代码复制粘贴到文本文件，然后把文本文件.txt

18、 后缀改为.vbs 双击运行看看效果。如果看不到.txt 后缀，去我的电脑-控制面板-文件夹选项-查看-去掉“隐藏已知文件类型的扩展名”对勾-确定就行了。6/39 页第三篇：首先，我来解决一下上次课程的几个疑问。第一，那个余数问题，16/5=3.1,是因为我改过前面的部分,后面的忘了改了，不好意思。第二，请看一下程序清单：1)Dim a,b,ca=inputbox(a 是:,输入半径)b=Inputbox(b 是:,输入半径)c=a*2+b*2Msgbox(c)这个 输入 1、2 时是 62)Dim a,b,ca=inputbox(a 是:,输入半径)b=Inputbox(b 是:,输入半径)

19、c=(a+b)*2Msgbox(c)这个输入 1、2 时是 24为什么会不一样呢?在数学上 c=(a+b)*2 和 c=a*2+b*2 是等价的,在 VBS 中也是如此.问题出在+上,在 VBS 中,+不仅仅是加号的意思还表示把两个字符串连接起来,例如Hello+World=HelloWorld have you understood?你还记得 InoutBox 函数的返回值吗？是字符串！这就看出问题了吧，在编程中1不等于()1,1是一个字符,而 1 是一个数，所以a,b 都是字符串变量，1+2=12,这就好像我们小时跟伙伴开玩笑问他们 1+1=?一样，我们总是笑着说“错啦，应该是 11”，但

20、为什么，a 可以*2 却不发生错误呢？这是 VBS 比较智能的一个表现，如果这个字符串的内容是一个数且对他进行数学运算，则把字符串强制转换成数参与运算，如果字符串代表一个数，但不参加数学运算，而是参加字符串运算(合并)则当作字符串处理，所以你看到 a+b=12，这时候 a+b 的结果(12)是一个字符串，当它要乘以 2的时候就被强制转换成了数字 12，这样我就得到了结果 24。怎么修改这个程序呢？我们需要用到另一个内建的函数：intint 函数的功能是将输入值转化成整数值，我们这样修改：-第 7 页c=(int(a)+int(b)*2这个意思就是把 a 作为参数传递给 int 函数，int 函

21、数就会返回那个整数(你的输入值)，然后让返回值参与运算，这样就得到了正确答案。所以，以后如果你用的是 inputbox 函数的话，最好用 int 语句加工一下：比如 c=int(c)c 是你自己的变量。7/39 页大家是不是觉得这个课程有点枯燥。呵呵，变量和运算符部分的确是这样的，不过多多练习也就好了。这次，我们写写真正好玩的东西：流程控制语句。这个部分开始才是真正的编程。首先介绍判断结构.在此之前,我们先介绍一种简单的变量类型:布尔值(Boolean),这种变量只有两个可能值:True,Flase,即真或假.这种变量在某些情况下很有用(比如开关).我们定义一个 bool 变量的方法和其他变量

22、一样,赋值也一样,例如:dim a,ba=trueb=false注意,true 和true是不一样的,true是字符串,true 是布尔值,千万不能混淆.回到 if 语句上来,我们先来看看简化版的if 语句:if 判断式 then 语句体 我们来看一个例子:dim a,ba=12b=13if ba then msgbox(B 大于 A)我们只看最后一行,ab 这个式子(表达式)有一个返回值,是 bool 型的.因为这个式子只有两种可能:b 大于 a,b 不大于 a,所以这个式子也只有两种可能性,即真或者假.if 语句判断这个表达式的返回值是真还是假,如果是真(true)则执行 then 后面的

23、语句,如果是假,则不执行,你把 a 的值改成 14 看看还会不会弹出对话框?当我们要在判断之后执行多行语句怎么办呢,我们需要用语句块来解决,在这里可以叫块 ifdim a,ba=12b=13if ab thenmsgbox(A 小于 B)msgbox(B 大于 A)end if两个msgbox函数夹在if和end if之间,这个部分就是语句块,块里的每一条语句之前请空出4-8(一个键)个格,这不是必需的,但是是一个好习惯,以便看清楚程序的结构.这样我们就能运行多于一个的语句,请注意 if.then.end if 这三个关键部分不要掉了.OK,我出一个题,输入一个数,如果小于 100 就输出错误

24、,如果大于 100 就输出正确,我这里有两个程序版本:dim aa=inputbox(请输入一个大于 100 的数)a=int(a)inputbox 返回的是字符串,我们把他变成整数:)if a100 then msgbox(正确)if a100 thenmsgbox(正确)elsemsgbox(错误)end if看到多了一个 else 了吧,else 的作用就是当要判断的表达式为 false 时执行的.这样程序就可以处理两种不同的情况了.不要忘了用 end if 结尾嘿嘿,我是变态者,现在我要你处理三种情况,100,还要写在一个 if 结构里,你怎么办,我给你答案:dim aa=inputb

25、ox(请输入一个大于 100 的数)a=int(a)inputbox 返回的是字符串,我们把他变成整数if a100 thenmsgbox(正确)elseif a=100 thenmsgbox(老大,你耍我?)elsemsgbox(错误)end if这次输入 100 看看,是什么?else if 语句可以在 if 结构中多次出现,以灵活判断不同的情况(如果你要判断得太多,就请使用选择结构,过会儿就讲),当所有 elseif 都处理完了,而没有符合情况的时候再执行 else 中的语句.另一个例子:Dim a,b,c,da=inputbox(a 是:,输入半径)b=Inputbox(b 是:,输入

26、半径)d=Inputbox(答案:,输入答案)c=a*2+b*2 这里没有问题,会自动转换if d=c thenMsgbox(你好聪明)elseMsgbox(你好猪头 自己的题还不会!)end if再看看这个,无论你回答得多么正确你都是猪头,哈哈,不是我耍你,还是文章开始时候的inputbox 的返回类型在耍你,d 是 inputbox 的返回值,他是一个字符串,而 c 是一次整数计算的结果,他是一个整数.一个字符串无论如何也不等于一个整数,尽管他们字面上是一样的:8(不等于号)8 所以if的判断式的值永远是false,总是执行else部分的语句.我们可以这么修改Dim a,b,c,da=in

27、putbox(a 是:,输入半径)b=Inputbox(b 是:,输入半径)d=Inputbox(答案:,输入答案)-第 9 页d=int(d)在这里我们取出了 d 的值,变成整数,在放回d这个盒子里9/39 页c=a*2+b*2if d=c thenMsgbox(你好聪明)elseMsgbox(你好猪头 自己的题还不会!)end if这样就成功了.这也是Inputbox函数的一个讨厌的地方,没办法,vbs没有其他好的输入方式了。说到 if,我们不得不说一说逻辑运算符,今天介绍两种,and 和 or 学会了 if 语句之后,我举一个例子,你一看就明白了.dim a,ba=inputbox(输入

28、一个数 10)b=inputbox(输入另一个数 10)a=int(a)b=int(b)if a10 and b10 thenmsgbox(正确)elsemsgbox(错误)end if这段程序让你输入两个值,必须都大于 10,只要有一个不大于,就输出错误 dim a,ba=inputbox(输入一个数 10)b=inputbox(输入另一个数 10)a=int(a)b=int(b)if a10 or b10 thenmsgbox(正确)elsemsgbox(错误)end if这段程序让你输入两个值,只要有一个大于 10,就返回成功.其实 and 和 or 很好理解,我读if a10 or b

29、10 then 这一句,用华语是这样:如果 a 大于 10 或者 b 大于 10,那么.这样是不是就很好理解了呢.OK,我们再来看一种新结构,今天的课就结束,已经午夜了,我都累死了.当你的程序要处理很多种不同的判断情况的时候elseif.then会让程序看起来很杂乱,所以就有了一种 select case 结构专门对付这种情况,select case 的语法结构很简单:select case 变量名case 值语句case 值语句-第 10 页case else语句end select我们举个例子就能很简单的说明：dim aa=inputbox(输入一个 1-3 的值)a=int(a)处理 i

30、nputbox 返回字符串的问题select case acase 1msgbox(壹)case 2msgbox(贰)case 3msgbox(叁)case elsemsgbox(输入错误)end select这个例子把 1,2,3 这三个阿拉伯数字转化成中国大写数字,这个程序写成 if.elseif 的形式如下dim aa=inputbox(请输入 1-3 的值)a=int(a)if a=1 thenmsgbox(壹)elseif a=2 thenmsgbox(贰)elseif a=3 thenmsgbox(叁)elsemsgbox(输入错误)end if怎么样,麻烦吧,还是 select

31、好吧.OK,今天到此结束,总结一下:要点:1)inputbox 返回的是一个字符串,而不是一个数,必须用 a=int(a)这种形式转化成数2)bool 变量的值只有两种:true,false2.5)and 两边的表达式都是 true,则返回 true.or 两边的表达式有一个是 true,就返回 true3)if 语句的格式4)select.case 的格式11/39 页作业:1)使用 3 个 bool 值,储存你的 3 兄弟姐妹是否是男性(提示:sister1male=false)2)给定一个个数,大于 10 而且小于 20 输出正确,否则输出错误3)输入 12,或者 15,输出正确,否则输

32、出错误-第 11 页4)把 5 以内的正整数都转换成中国大些数字5)自己随便设计一个程序,应用今天的知识第四篇：循环结构我们先来看一道题：商场进行每日结算,要求累加出今天的营业额,每次输入一个数,这道题其实很简单,但就我们现在学过的知识要完成这道题相当麻烦,我们来分析一下.首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设计是非常低效的,每天都要重新设计程序.假定今天进行了 5 次交易,以下是源程序:dim sumsum=0 初始化变量sum=sum+int(inputbox(请输入交易额)sum=sum+x 这种形式是把本身的值取出来,进行一次运算,再放回本身,这种方法很有用

33、处这里使用了函数嵌套,把 inputbox 的返回值直接传给 int 函数,转化成整数,下同sum=sum+int(inputbox(请输入交易额)sum=sum+int(inputbox(请输入交易额)sum=sum+int(inputbox(请输入交易额)sum=sum+int(inputbox(请输入交易额)msgbox(sum)看到了吗,我通过把计算过程复制了 5 遍才设计好了程序,这种程序在汽车交易所等交易次数少的地方还能凑合着用,如果放到超市岂不是要复制,粘贴几千遍?我们今天讲的内容就可以克服这种缺陷,首先,我们来讲以下 Do.Loop 语句.do.loop的结构看上去非常简单,就

34、是:do.loop,仅此而已,这个结构不断执行do和loop之间的语句(学名叫:循环体),永不停止.举个例子来说:domsgbox(这个信息会不断重复出现,要停止程序请使用任务管理器(Ctrl+Alt+Del)中止 wscript进程)loop运行这个程序,当你点销掉一个对话框马上会出来另一个,你永远点不完,总有下一个.谁会运行这样的程序?除非是给别人捣乱(我就干过这种事),所以在 do.loop 结构中还有一个语句:exit do,这个语句将终止循环,跳到 loop 后面的语句继续执行.据个例子来说:dim a 注意:常量不需要在 dim 里面声明,否则会引发错误const pass=123

35、456 这是一个字符串 请用包裹起来.设定密码为常量,不可变更 do12/39 页a=inputbox(请输入密码)if a=pass thenmsgbox(密码校验成功)exit doend ifloop这个程序会一直不停的问你密码,知道你输入了正确的密码为止.(if 可以嵌套在另一个 if 当中,也可以嵌套在循环体当中,所以一定要用缩进,来分清楚程序的各个部分).这个程序是很经典的,早期的程序都是这么做的.但是我们是 Hacker,所以我们了解系统的安全性,这种无限次认证程序很容易被穷举破解,我们要来限定认证的次数.-第 12 页修改程序如下dim a,ctrctr=0 设置计数器cons

36、t pass=pas123_ 上面的那个是弱密码,这次改的强一点doif ctr=3 thenmsgbox(已经达到认证上限,认证程序关闭)exit doelsea=inputbox(请输入密码)if a=pass thenmsgbox(认证成功)msgbox(你可以在这里加一段成功后得到的信息)exit doelsectr=ctr+1 如果密码出错就增加一次错误认证计数msgbox(认证出错,请检查密码)end ifend ifloop运行这个程序试试看,当你出了 3 此错误以后,就会停止再次询问密码,关闭程序.telnet 认证用来限制次数的程序与此大同小异.要注意的是嵌套的 if 语句,

37、清仔细读一下这个程序,可能比较难懂,也请你试着自己设计一下类似的程序.其实,要在 do.loop 加上验证的功能,并不一定要用 if,我们可以直接利用 do.我来介绍一下while 关键字,while可以放在do或者是loop后面,然后再接一个表达式,当表达式的值为true 的时候(表达式成立),才运行循环体.我们来看一下修改后的程序dim a,ctrctr=0const pass=pas123_do while ctr3a=inputbox(请输入密码)if a=pass thenmsgbox(认证成功)13/39 页msgbox(你可以在这里加一段成功后得到的信息)exit doelsec

38、tr=ctr+1 如果密码出错就增加一次错误认证计数msgbox(认证出错,请检查密码)end ifloopdim a,ctrctr=0-第 13 页const pass=pas123_doa=inputbox(请输入密码)if a=pass thenmsgbox(认证成功)msgbox(你可以在这里加一段成功后得到的信息)exit doelsectr=ctr+1 如果密码出错就增加一次错误认证计数msgbox(认证出错,请检查密码)end ifloop while ctr3功能是一样的,为什么要放在 loop 后面呢?你把 ctr 的值改成 3 就知道了,while 在 do 后面的程序会直

39、接退出,而在 loop 后面还会允许一次认证,到了 loop 才结束.和 while 相反的是until,用法和while一样,不过他只有当后面的表达式的值为false(表达式不成立)的时候才执行循环体,请自己试验一下ok,我们来看另外一种循环结构,for.next,这种循环结构是基于计数的,也是在编程中最常见到的循环结构.dim ifor i=0 to 5msgbox(i)next看到了吗?每次输出的 i 都是递增的,但我们没有明确指出 i 要递增,当 i 达到 5 的时候,循环就结束了,因为由0开始,所以循环体执行了6次,这一点很重要,大部分东西都是从0开始而不是 1.这个程序也可以写成d

40、o 的形式:dim ii=0do while ia2 then msgbox(a1)elseif a1b2 then msgbox(b1)elseif b1c2then msgbox(c1)elseif c1t2 then co=t1 通过函数名=表达式这种方法返回结果 elseif t2t1 then co=t2 end ifend function 我们在这里是用了一个新的关键字:funciton,这个关键字表示一个新函数开始,格式:funciton 函数名(参数 1,参数 2.参数 n)列表可以是空的,但括号不能省略,参数之间用,分割.exit funciton 结束函数,不是必需的.e

41、nd function 函数是一个模块,只有你调用的时候才会运行,也就说,当你编写了一个函数,然后在程序中并不调用它,那么这个函数永远不会运行.一般来说,我们编写程序是按照:主程序.函数 1.函数 2.详细解释一下:函数中最重要的是参数和返回值.参数是在函数名后面的()里定义的,用,分割,使用参数的时候我们也用,分割.说到这里我想起一件事,昨天有个朋友给我发消息问我:msgbox(name1,name2,name3)这个错在哪里?为什么不能同时显示出三个变量?这就是因为你用了,这个符号表示你输入的三个量作为三个不同参数传递给 msgbox()函数,msgbox()函数只会显示出第一个参数,第二

42、个参数的作用是出现在标题栏.所以你应该用&或者+把三个字符串变量连接起来,作为第一个参数传递给 msgbox()函数.程序员说参数的时候经常说到形参,实参这样的黑话,我来解释一下.形参是形式参数的简称,实参是实际参数的简称,实参是指你调用函数的时候传递给函数的量,可以使变量或者-第 17 页常量(直接量),例如:co(12,24)中的12,24就是实参.形参是你在函数定义时定义的变量,这些变量用来接住传递过来的量,例如 function co(t1,t2)t1,t2 就是形参.在 VBScript 中,参数传递是一种传值,而不是传址(听不明白不要紧,学了 C 语言的指针你就明白了),所以我们进

43、行的参数传递实际上是进行了一次变量赋值,例如我们调用 co(a1,a2),实际上程序会执行一步:t1=a1,t2=a2 这样的操作.同样因为传值传址的原因,VBScript 只能返回一个值,我们先来看看什么叫返回.当一个过程调用了另一个过程的时候(比如主程序调用了函数),控制权就到了被调用过程那里,当这个过程执行完毕以后,会回到调用它的地方继续执行,这个就叫做返回,返回的时候可以带一个值叫做返回值(这是通俗的理解).在 vbs 继承了 basic 的传统,返回的时候采用函数名=返回值的办法,这个返回值是指一个表达式(在编程中,任何东西都是表达式,比如变量 a,常数 0,Hello,c=1+2

44、等等这都是表达式).比如有一个函数是 ht,则返回的方法是:ht=你要返回的值.注意:返回以后,后面的语句将不再执行.调用一个函数我就不用讲了吧:变量=函数名(参数)有时候我们并不需要返回什么值,这个时候我们可以使用一种称之为子程序的结构.子程序或称之为过程与函数的差别就在于:1)没有返回值,2)使用 sub 关键字定义,3)通过 Call调用.具个例子:dim ynamename=inputbox(请输入你的名字:)call who(yname)sub who(cname)msgbox(你好&cname)msgbox(感谢你阅读我的课程)msgbox(这是基础部分的最后一课)end sub你

45、一定看明白了,很简单的.退出一个过程和退出一个函数一样:exit sub(函数:exit function).要注意,子程序(过程)是比较特殊的一个结构,C 等语言是没有这个概念的,C 语言中的一切都是函数,没有返回值的函数在 C 语言中只要使用 void 修饰符定义就行了.今天没有什么可讲的了,基础篇就这么结束了,目前你已经有了基本的编程概念(面向过程的结构化编程),可以选择学习另外一种语言(比如 C 或 Pascal),现在的基础会有一定的帮助.你也可以去买本书继续学习 vbs 或通过它更详细的了解编程。第四篇：循环结构我们先来看一道题：商场进行每日结算,要求累加出今天的营业额,每次输入一

46、个数,这道题其实很简单,但就我们现在学过的知识要完成这道题相当麻烦,我们来分析一下.首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设计是非常低效的,每天都要重新设计程序.假定今天进行了 5 次交易,以下是源程序:dim sumsum=0 初始化变量sum=sum+int(inputbox(请输入交易额)sum=sum+x 这种形式是把本身的值取出来,进行一次运算,再放回本身,这种方法很21/39 页有用处这里使用了函数嵌套,把 inputbox 的返回值直接传给 int 函数,转化成整数,下同sum=sum+int(inputbox(请输入交易额)sum=sum+int(in

47、putbox(请输入交易额)sum=sum+int(inputbox(请输入交易额)-第 18 页sum=sum+int(inputbox(请输入交易额)msgbox(sum)看到了吗,我通过把计算过程复制了 5 遍才设计好了程序,这种程序在汽车交易所等交易次数少的地方还能凑合着用,如果放到超市岂不是要复制,粘贴几千遍?我们今天讲的内容就可以克服这种缺陷,首先,我们来讲以下 Do.Loop 语句.do.loop的结构看上去非常简单,就是:do.loop,仅此而已,这个结构不断执行do和loop之间的语句(学名叫:循环体),永不停止.举个例子来说:domsgbox(这个信息会不断重复出现,要停止

48、程序请使用任务管理器(Ctrl+Alt+Del)中止 wscript进程)loop运行这个程序,当你点销掉一个对话框马上会出来另一个,你永远点不完,总有下一个.谁会运行这样的程序?除非是给别人捣乱(我就干过这种事),所以在 do.loop 结构中还有一个语句:exit do,这个语句将终止循环,跳到 loop 后面的语句继续执行.据个例子来说:dim a 注意:常量不需要在 dim 里面声明,否则会引发错误const pass=123456 这是一个字符串 请用包裹起来.设定密码为常量,不可变更 doa=inputbox(请输入密码)if a=pass thenmsgbox(密码校验成功)ex

49、it doend ifloop这个程序会一直不停的问你密码,知道你输入了正确的密码为止.(if 可以嵌套在另一个 if 当中,也可以嵌套在循环体当中,所以一定要用缩进,来分清楚程序的各个部分).这个程序是很经典的,早期的程序都是这么做的.但是我们是 Hacker,所以我们了解系统的安全性,这种无限次认证程序很容易被穷举破解,我们要来限定认证的次数.修改程序如下dim a,ctrctr=0 设置计数器const pass=pas123_ 上面的那个是弱密码,这次改的强一点doif ctr=3 thenmsgbox(已经达到认证上限,认证程序关闭)exit doelsea=inputbox(请输入

50、密码)if a=pass then22/39 页msgbox(认证成功)msgbox(你可以在这里加一段成功后得到的信息)exit doelse-第 19 页ctr=ctr+1 如果密码出错就增加一次错误认证计数msgbox(认证出错,请检查密码)end ifend ifloop运行这个程序试试看,当你出了 3 此错误以后,就会停止再次询问密码,关闭程序.telnet 认证用来限制次数的程序与此大同小异.要注意的是嵌套的 if 语句,清仔细读一下这个程序,可能比较难懂,也请你试着自己设计一下类似的程序.其实,要在 do.loop 加上验证的功能,并不一定要用 if,我们可以直接利用 do.我来