VBScript脚本编程课件

VBScript脚本编程VBScript脚本编程VBScript脚本编程VBS Edit破解n安装完后需要注册，出现下图：VBScript脚本编程VBS Edit破解n双击Keygen.exe，弹出如下窗口：VBScript脚本编程VBS Edit破解n点击“Generate”，在Serial 中，将序列号复制，粘贴到上述窗口中，点击Evaluate，弹出如下窗口：VBScript脚本编程VBS Edit破解n在该窗口中选择“Activate manually”n在Keygen 窗口中复制Activation 中的内容，粘贴到上图中的输入框中，点击OK。VBScript脚本编程VBScript简介nVBS，即Microsoft Visual Basic Scripting Edition，它是Microsoft Visual Basic语言的一个子集，它并不是一个完整的程序设计语言，仅包含语言中的一些基本功能。VBScript的最大优点是：用纯文本建立、直接包含在HTML文档中、编辑和修改都十分便利。 VBScript脚本编程第一个VBScript脚本nSet objshell = CreateObject(Shell.Application)nSet objNS = objshell.namespace(&h2f)nSet colitems = objNS.itemsnFor Each objitem In colitemsnWScript.Echo objitem.namenNextVBScript脚本编程编译环境nVBS Editn安装方法VBScript脚本编程VBS脚本的注释nVbs中使用单引号来注释” ”,注释的信息在vbsedit编辑环境中显示为绿色。显示一条信息Msgbox 夜深人静，小心身后啊VBScript脚本编程VBS基础知识n1.脚本的注释n格式一： Rem 注释内容n格式二： 注释内容VBScript脚本编程VBS基础知识n2.将单行语句分成多行n在编写程序代码时，有的语句可能会很长，为了在阅读和对程序查错时直观、方便，可使用续行符“ -”（由一个空格和一个下划线组成），将长的语句分成多行书写。VBScript脚本编程VBS基础知识n3.使用不同进制的数字n在VBScript中，除了可以使用默认的十进制来表示数字外，还允许使用十六进制或八进制来表示数字。对于不同进制的数，VBScript在表达方式上有明确规定，即十六进制数要加前缀H（如H9），八进制数要加前缀0（数字零）或&O（字母O）（如011或&O11），十进制数不用加任何前缀。VBScript脚本编程VBS基础知识n4. VBScript语句中的英文字母不区分大小写，VBScript脚本代码是一种纯文本，可以用任何一种文本编辑器编写。VBScript脚本编程VBS的数据类型n在Visual Basic、C+等高级语言中，数据类型都是分为整数、字符等不同的类型，但在VBScript中，只有一种数据类型，称为Variant（变体类型）。 nVariant既能表示数字，又能表示字符，还能表示其他的类型，vbs 在执行时会自动识别和转换类型。n所以它也是VBScript 中所有函数的返回值的数据类型。VBScript脚本编程VBS的数据类型n一般情况下VBScript也会根据代码的上下文自动转换数据的子类型。例如：Variable_1=”2001”，这里Variable_1作为一个字符串变量来工作，而如果下面有Variable_2=Variable_13，这时VBScript就会自动将Variable_1转换成整数变量，然后参与运算。但有时候，也会遇到一些数据类型不匹配造成的错误。这时，可以使用VBScript的转换函数来强制转换数据的子类型。 (见VBScript帮助文件)VBScript脚本编程VBS的数据类型Dim aa=2001 VBScript会将它当成整数对待a=”2001” VBScrint会将它当成字符串对待a=20.01 VBScript会将它当成小数对待a=false VBScript会将它当成一个布尔值 VBScript脚本编程VBS的数据类型n可以使用VarType 来看看它到底是什么类型的，如下面的代码：Dim VarTypeCheckVarTypeCheck = VarType(123)MsgBox VarTypeCheck 返回2 表示整型VarTypeCheck = VarType(123)MsgBox VarTypeCheck 返回8 表示字符型VBScript脚本编程子类型子类型描述描述Empty未初始化的 Variant。对于数值变量，值为 0；对于字符串变量，值为零长度字符串 ()。Null不包含任何有效数据的 Variant。Boolean包含 True 或 False。Byte包含 0 到 255 之间的整数。Integer包含 -32,768 到 32,767 之间的整数。Currency-922,337,203,685,477.5808 到 922,337,203,685,477.5807。Long包含 -2,147,483,648 到 2,147,483,647 之间的整数。Single包含单精度浮点数，负数范围从 -3.402823E38 到 -1.401298E-45，正数范围从 1.401298E-45 到 3.402823E38。Double包含双精度浮点数，负数范围从 -1.79769313486232E308 到 -4.947E-324，正数范围从 4.947E-324 到 1.79769313486232E308。Date (Time)包含表示日期的数字，日期范围从公元 100 年 1 月 1 日到公元 9999 年 12 月 31 日。String包含变长字符串，最大长度可为 20 亿个字符。Object包含对象。Error包含错误号。VBScript脚本编程VBS常量n声明常量的意义就在于可以在程序的任何部分使用该常量来代表特定的值，从而方便程序的编写和修改。例如在程序中定义 Const PI=3.1415926 Const ConstDate=#2001-1-12# Msgbox PIVBScript脚本编程VBS常量n1文字常量n（1）字符串常量：用双引号作为定界符，由ASCII码字符组成（除双引号和回车符外），长度不能超过20亿个字符。例如：中华人民共和国、1233.45等。n（2）数值常量：包括整型数、长整型数和浮点数。例如：0、300、-4125、&H85（表示十六进制数85）、&O226（表示八进制数226）、1.23E8、3.54E-5等。n（3）日期时间型常量：用#号括起来。例如：#2001-3-15#、#2003-4-20 8:38:25 AM#等。VBScript脚本编程VBS常量n2符号常量常量名称常量名称常量含义常量含义TrueTrue表示布尔真值表示布尔真值False表示布尔假值表示布尔假值Null表示空值表示空值Empty表示没有初始化之前的值表示没有初始化之前的值vbCr表示回车表示回车vbCrLf表示回车表示回车/ /换行换行vbTab表示制表符表示制表符VBScript脚本编程VBS变量n1.变量声明变量声明n声明变量的一种方式是使用Dim、Redim、Public和 Private在脚本中显式声明变量。如：Dim namen注意：别乱加分号！VBScript脚本编程VBS变量n(1)Dimn格式：Dim 变量名称例如：Dim DegreesFahrenheitn声明多个变量时，使用逗号分隔变量。例如： Dim Top, Bottom, Left, RightVBScript脚本编程VBS变量n(2)RedimnRedim语句是专用来定义数组的。当需要根据数据的增加和删除来扩大或缩小数组的大小时，可通过Redim语句来实现。 VBScript脚本编程VBS变量下面是一个扩大数组的简单格式：Dim datanum程序代码Redim Preserve datanum(20)Redim Preserve datanum(20)语句将数组的元素扩大到20。 默认的情况下，使用Redim语句的同时会清除数组中的所有值。而使用Preserve关键字可以将所有现存的数据保存下来，并添加新的空白单元；如果缩小了数组的大小，那么被减去的单元中的数据也会丢失。VBScript脚本编程VBS变量n(3)PublicnPublic关键字用于定义全局型变量。格式：Public 变量名称例如：Public a,bn和Dim一样，Public可以声明变量，并可以一次声明多个变量，也可以声明一维或多维数组。所不同的是Public关键字定义的变量是全局变量。VBScript脚本编程VBS变量n(4)PrivatePrivate关键字可以定义变量、一次定义多个变量、定义一维或多维数组，不同的只是变量的作用范围不同。n下面列出了使用上面语句或关键字定义的变量的可能作用范围： lDim：整个脚本程序或过程、函数中。 lRedim：整个脚本程序或过程、函数中。 lPublic：整个脚本程序。 lPrivate：过程或函数中。VBScript脚本编程VBS变量n另一种声明方式是通过直接在脚本中使用变量名这一简单方式隐式声明变量。这不是一个好习惯，因为这样有时会由于变量名被拼错而导致在运行脚本时出现意外的结果。因此，最好使用 Option Explicit 语句显式声明所有变量，并将其作为脚本的第一条语句。这样，如果以后拼写错变量名，VBScript就会提醒你这个变量没有声明，而避免出现由于拼写错误所造成的问题。 VBScript脚本编程VBS变量option ExplicitDim ij=0VBScript脚本编程VBS变量n2.变量命名规则n变量的名字必须以字母开头。n名字中不能含有句号。n名字不能超过255个字符。n名字不能和VBScript中的关键字同名。n变量名在被声明的作用域内必须惟一。VBScript脚本编程VBS变量n3.变量的作用域n指的是变量的有效范围，在VBScript中分为过程内有效和整个程序中都有效。在变量过程内部声明的变量称为过程级变量或局部变量，这样的变量只有在声明它们的过程中才能使用，即无法在过程外部访问；过程外部声明的变量称为脚本级变量或全局变量。VBScript脚本编程VBS变量nsub ss()ndim x 声明x局部变量nx=22nMsgBox xnend subndim x 声明x全局变量nx=1ncall ss 调用ss过程，无参数nMsgBox xVBScript脚本编程数组nVBScript中的数组有以下几个特点：n使用数组之前要先进行定义，然后才能使用。通常用Dim语句来定义数组。n数组下标的下界一律从0开始。n一个数组中可以含有各种子类型的数据元素。n在VBScript中，数组分为两种类型，即静态数组和动态数组。 VBScript脚本编程数组n1静态数组n静态数组可分为一维数组、二维数组或多维数组。数组的维数和大小由数组名之后紧跟的括号中的数字的个数和数值的大小来决定。静态数组在编译时开辟内存区，因此它的大小在运行时是不可以改变的。n2动态数组 n定义一般分两步：首先用Dim语句声明一个括号内不包含下标的数组，然后在使用数组之前用ReDim语句根据实际需要重新定义下标值。也可以用ReDim语句直接定义数组。运行时大小可变。 VBScript脚本编程数组n定义一个固定长度的数组 Dim A(10) 包含11个元素n下例中，MyTable 变量是一个有6行和11列的二维数组：Dim MyTable(5, 10) VBScript脚本编程数组Dim MyArray(5)Dim lengthMyArray(0) = 0MsgBox MyArray(0)返回指定数组维数的最大可用下标length = UBound(MyArray)MsgBox lengthVBScript脚本编程数组n也可以声明动态数组，即在运行脚本时大小发生变化的数组。n对数组的最初声明使用Dim语句或ReDim语句。但是对于动态数组，括号中不包含任何数字。如： Dim MyArray() ReDim AnotherArray()VBScript脚本编程数组n要使用动态数组，必须随后使用Redim确定维数和每一维的大小。 Redim MyArray(25) Redim Preserve MyArray(30)n重新调整动态数组大小的次数是没有任何限制的。但是应注意：将数组的大小调小时，将会丢失被删除元素的数据。VBScript脚本编程数组数组n动态数组的例子。Dim MyArray()ReDim MyArray(3)Dim lengthMyArray(0) = 我MyArray(1) = 是MyArray(2) = 小MyArray(3) = “王ReDim Preserve MyArray(5)MyArray(4) = 老MyArray(5) = 师返回指定数组维数的最大可用下标length = UBound(MyArray)For i=0 To lengthMsgBox MyArray(i)NextVBScript脚本编程VBS赋值语句n多个变量附相同的值时，不能写成： 变量1=变量2=表达式n声明变量时不能同时赋值，下面语句是错误的： Dim a=2n对对象赋值要使用set set rs=server.CreateObject(“ADODB.Recordset”)VBScript脚本编程VBS运算符nVBScript的操作符包括算术运算符、比较运算符、连接运算符和逻辑运算符。n1.算术运算符:+、-、 *、/、取余Mod、求幂()等。n2.逻辑运算符:与And、或Or、非Not和Xor。其返回值为：真(True)、假(False)VBScript脚本编程VBS运算符n3. 字符串(连接)运算符:或+n【例】result=expression1 expression2n说明：将两个表达式进行字符串连接；当任意一表达式不是字符串时，它将被转换为String类型；如果两个表达式都为Null，result也为Null；如果仅有一个为Null或任意一个表达式为Empty，则它和其他表达式连接时，按零长度字符串( )处理。n【例】result=expression1 + expression2n说明：如果两个表达式都是数值，则+运算符表示相加；如果两个表达式都是字符串，则表示连接；如果一个表达式为字符串，一个表达式为数值，则表示相加(都是数字)。(所以一般仍使用&运算符来进行字符串的连接，这是因为在使用+运算符时，可能无法确定是执行加法还是字符串连接)。VBScript脚本编程VBS运算符 &用于强制连接两个表达式，合成一个字符串。 例：dim a,b,ab a=“hello_” b=123 ab=a&b /* ab的值为“hello_123” */ 任一表达式不是字符串时，它将被转换为 String 子类型。 也可以使用 + 运算符连接两个字符串，建议使用 & 进行字符串的连接，以避免混淆。VBScript脚本编程在下面的代码中要注意，我们一般连接字符时要用&，不要用+，这样可以避免混乱Dim num1,num2,str1,str2Dim sum,strnum1 = 1num2 = 2str1 = 小str2 = 强sum = num1+num2 MsgBox sumsum = num1+ str1 MsgBox sumstr = str1 & str2MsgBox strVBScript脚本编程VBS条件语句条件语句n在VBScript中，可以使用两种条件语句来控制脚本流程，分别是IfThenElse语句，和Select Case语句。前者可以按需要进行嵌套。 VBScript脚本编程VBS条件语句条件语句if time#5:00:00PM# then greeting=“晚上好！”end if。 VBScript脚本编程VBS条件语句条件语句Dim contidion,strcontidion = 你是亿万富翁吗？str = 我是穷光蛋If contidion = str ThenMsgBox 就是你了ElseMsgBox 等等在说吧End ifVBScript脚本编程VBS条件语句条件语句Dim strstr = 我爱美人Select Case strCase 我爱江山 MsgBox 我爱江山Case 我爱美人 MsgBox 我爱美人Case Else MsgBox 我什么都不爱End selectVBScript脚本编程VBS循环语句循环语句n在VBScript中，可以使用多种循环语句来表达循环，包括：nDo Loop : 当（或直到）条件为True时循环nWhileWend: 当条件为True时循环nForNext: 指定循环次数，使用计数器重复执行语句nFor Each Next: 对于集合中的每项或数组中的每个元素，重复执行一组语句VBScript脚本编程VBS循环语句循环语句For next 用法Dim MyName,MyWriting,iMyName = “呵呵MyWriting = “希望大家多多支持我的课程For i=0 To 1MsgBox MyNameMsgBox MyWritingNextVBScript脚本编程VBS循环语句循环语句for each 的用法Dim MyWriting(1)MyWriting(0) = “呵呵MyWriting(1)= “希望大家多多支持我的课For Each element In MyWritingMsgBox elementNextVBScript脚本编程VBS循环语句循环语句do loop 的用法Dim ageage = 23Do Until age = 100age= age+1LoopMsgBox “好好学习，天天向上VBScript脚本编程VBS循环语句循环语句while 的用法Dim moneymoney = 2While money 0money = money -1WendMsgBox 我身无分文了VBScript脚本编程Sub和Function nSub和Function都是过程，但是Sub不能返回值，而Function可以返回值。n对Function的调用只需要输入过程名及参数即可，对Sub的调用可以使用Call语句的方式，也可以使用直接输入过程名及参数的方式。但是如果使用Call语句，则需要把参数用括号括起来 VBScript脚本编程Sub和Function 定义Add子过程Sub AddMethod(num)tmp = num+100End Sub 调用AddMethod子过程AddMethod 200 使用Call语句调用Call AddMethod(200)MsgBox tmpVBScript脚本编程Sub和Functionfunction。Dim str,str1,str2str1 = 努力工作Function Flighting(str)str2 = 我要 & strFlighting = str2End FunctionMsgBox Flighting(str1)VBScript脚本编程VBScript常用函数 n1. 字符串函数nLen：返回字符串内字符的数目，或是存储一变量所需的字节数。 nLeft：返回指定数目的从字符串的左边算起的字符。 nMid：从字符串中返回指定数目的字符。 nRight：从字符串右边返回指定数目的字符。 VBScript脚本编程VBScript常用函数nLcase：返回字符串的小写形式。nUcase：返回字符串的大写形式。 nStrComp：返回一个表明字符串比较结果的值。 Dim MyStr1, MyStr2, MyCompMyStr1 = ABCD: MyStr2 = abcd 定义变量。MyComp = StrComp(MyStr2,MyStr1) 返回1。MsgBox MyCompVBScript脚本编程VBScript常用函数nSplit：返回基于0 的一维数组，其中包含指定数目的子字符串。 VBScript脚本编程VBScript常用函数Dim MyString, MyArray, MsgMyString = VBScriptXisXfun!MyArray = Split(MyString, x, -1, 1)Msg = MyArray(0) & & MyArray(1)Msg = Msg & & MyArray(2)MsgBox Msg 显示VBScript is fun!VBScript脚本编程VBScript常用函数nJoin：返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建。 VBScript脚本编程VBScript常用函数Dim MyStringDim MyArray(3)MyArray(0) = Mr.MyArray(1) = John MyArray(2) = Doe MyArray(3) = IIIMyString = Join(MyArray)MsgBox MyStringVBScript脚本编程VBScript常用函数n2.转换函数nCStr：返回表达式，该表达式已被转换为String子类型的VariantDim MyDouble,MyStringMyDouble = 437.234MyString=CStr(MyDouble)MsgBox MyStringVBScript脚本编程VBScript常用函数n3.判断函数nIsArray：返回Boole an 值指明某变量是否为数组。 Dim MyVariableDim MyArray(3)MyArray(0)=SundayMyArray(1)=MondayMyArray(2)=TuesdayMyVariable=IsArray(MyArray) MyVariable为TrueMsgBox MyVariableVBScript脚本编程VBScript常用函数n4.输入输出函数 nMsgBox：输出函数。该函数告诉用户一些信息。语法如下： MsgBox（prompt，button ，title） prompt 显示在窗口中的文字 button 可选项，用以指定窗口的外观和按钮的类型 title 可选项，显示在窗口标题中的文字 内的内容表示是可选项，如果不选时，则系统会采用默认设置。VBScript脚本编程VBScript常用函数n名称 值 说明nVbcritical 16 “重要信息”图标nVbquestion 32 “询问符号”nVbexclamation 48 “警告符号”nVbinformation 64 “信息”VBScript脚本编程VBScript常用函数n函数MsbBox的返回值返回值返回值对应常数对应常数对应按钮对应按钮1 1FbOkFbOk确定确定2 2VbCancelVbCancel取消取消3 3VbAbortVbAbort放弃放弃4 4VbRetryVbRetry重试重试5 5VbIgnoreVbIgnore忽略忽略6 6VbYesVbYes是是7 7VbNoVbNo否否VBScript脚本编程VBScript常用函数MsgBox 我最想做的事是去周游世界！,2,理想之窗VBScript脚本编程VBScript常用函数n4.输入输出函数 nInputBox：输入函数。该函数用于显示一个输入窗口，要求用户输入数据。语法如下： String=Inputbox（prompt，title，default） String 文本框中的内容，即用户输入的内容 prompt 显示在窗口中的提示文字 title 可选项，显示在窗口标题中的文字 default 可选项，用于指定窗口中文本输入框内的默认字符串VBScript脚本编程VBScript常用函数Option Explicit Dim name1 name1=InputBox(你目前最想做的事情是,输入你所想的)MsgBox 你最想做的事是 & name1 VBScript脚本编程VBScript常用函数n5.转换函数 nCStr()nCint()nCdate()nCsng ()nCbool ()nClng()VBScript脚本编程VBScript常用函数Num1=1000Str1=欢迎你第 &CStr(Num1) & 次光临本店！MsgBox str1