VBScript脚本编程

1、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。 VB

2、Script脚本编程 VBScript简介 nVBS，即Microsoft Visual Basic Scripting Edition，它是Microsoft Visual Basic 语言的一个子集，它并不是一个完整的 程序设计语言，仅包含语言中的一些基 本功能。VBScript的最大优点是：用纯 文本建立、直接包含在HTML文档中、编 辑和修改都十分便利。 VBScript脚本编程 第一个VBScript脚本 nSet objshell = CreateObject(Shell.Application) nSet objNS = space(&h2f) nSet

3、 colitems = objNS.items nFor Each objitem In colitems nWScript.Echo nNext VBScript脚本编程 编译环境 nVBS Edit n安装方法 VBScript脚本编程 VBS脚本的注释 nVbs中使用单引号来注释” ”,注释的 信息在vbsedit编辑环境中显示为绿色。 显示一条信息 Msgbox 夜深人静，小心身后啊 VBScript脚本编程 VBS基础知识 n1.脚本的注释 n格式一： Rem 注释内容 n格式二： 注释内容 VBScript脚本编程 VBS基础知识 n2.将单行语句分成多行

4、 n在编写程序代码时，有的语句可能会很 长，为了在阅读和对程序查错时直观、 方便，可使用续行符“ -”（由一个空格 和一个下划线组成），将长的语句分成 多行书写。 VBScript脚本编程 VBS基础知识 n3.使用不同进制的数字 n在VBScript中，除了可以使用默认的十进制来 表示数字外，还允许使用十六进制或八进制来 表示数字。对于不同进制的数，VBScript在表 达方式上有明确规定，即十六进制数要加前缀 H（如H9），八进制数要加前缀0（数字 零）或&O（字母O）（如011或&O11），十进 制数不用加任何前缀。 VBScript脚本编程 VBS基础知识 n4. VBScript语句

5、中的英文字母不区分大 小写，VBScript脚本代码是一种纯文本， 可以用任何一种文本编辑器编写。 VBScript脚本编程 VBS的数据类型 n在Visual Basic、C+等高级语言中，数据类 型都是分为整数、字符等不同的类型，但在 VBScript中，只有一种数据类型，称为 Variant（变体类型）。 nVariant既能表示数字，又能表示字符，还能 表示其他的类型，vbs 在执行时会自动识别 和转换类型。 n所以它也是VBScript 中所有函数的返回值的 数据类型。 VBScript脚本编程 VBS的数据类型 n一般情况下VBScript也会根据代码的上下文 自动转换数据的子类型

6、。例如： Variable_1=”2001”，这里Variable_1作为一 个字符串变量来工作，而如果下面有 Variable_2=Variable_13，这时VBScript就 会自动将Variable_1转换成整数变量，然后 参与运算。但有时候，也会遇到一些数据类 型不匹配造成的错误。这时，可以使用 VBScript的转换函数来强制转换数据的子类 型。 (见VBScript帮助文件) VBScript脚本编程 VBS的数据类型 Dim a a=2001 VBScript会将它当成整数对待 a=”2001” VBScrint会将它当成字符串对待 a=20.01 VBScript会将它当成小

7、数对待 a=false VBScript会将它当成一个布尔值 VBScript脚本编程 VBS的数据类型 n可以使用VarType 来看看它到底是什么类型 的，如下面的代码： Dim VarTypeCheck VarTypeCheck = VarType(123) MsgBox VarTypeCheck 返回2 表示整型 VarTypeCheck = VarType(123) MsgBox VarTypeCheck 返回8 表示字符型 子类型子类型描述描述 Empty未初始化的 Variant。对于数值变量，值为 0；对于字符串变量，值为零 长度字符串 ()。 Null不包含任何有效数据的 V

8、ariant。 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包含双精度浮点数，负数范围从

9、 -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 C

10、onstDate=#2001-1-12# Msgbox PI VBScript脚本编程 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脚本编

11、程 VBS常量 n2符号常量 常量名称常量名称常量含义常量含义 TrueTrue表示布尔真值表示布尔真值 False表示布尔假值表示布尔假值 Null表示空值表示空值 Empty表示没有初始化之前的值表示没有初始化之前的值 vbCr表示回车表示回车 vbCrLf表示回车表示回车/ /换行换行 vbTab表示制表符表示制表符 VBScript脚本编程 VBS变量 n1.变量声明变量声明 n声明变量的一种方式是使用Dim、Redim、 Public和 Private在脚本中显式声明变量。 如：Dim name n注意：别乱加分号！ VBScript脚本编程 VBS变量 n(1)Dim n格式： D

12、im 变量名称 例如：Dim DegreesFahrenheit n声明多个变量时，使用逗号分隔变量。 例如： Dim Top, Bottom, Left, Right VBScript脚本编程 VBS变量 n(2)Redim nRedim语句是专用来定义数组的。当需要根 据数据的增加和删除来扩大或缩小数组的大 小时，可通过Redim语句来实现。 VBScript脚本编程 VBS变量 下面是一个扩大数组的简单格式： Dim datanum 程序代码 Redim Preserve datanum(20) Redim Preserve datanum(20)语句将数组的元素扩大 到20。 默认的情

13、况下，使用Redim语句的同时会清除数 组中的所有值。而使用Preserve关键字可以将所有现 存的数据保存下来，并添加新的空白单元；如果缩小 了数组的大小，那么被减去的单元中的数据也会丢失。 VBScript脚本编程 VBS变量 n(3)Public nPublic关键字用于定义全局型变量。 格式：Public 变量名称 例如：Public a,b n和Dim一样，Public可以声明变量，并可以一 次声明多个变量，也可以声明一维或多维数 组。所不同的是Public关键字定义的变量是 全局变量。 VBScript脚本编程 VBS变量 n(4)Private Private关键字可以定义变量、

14、一次定义多个 变量、定义一维或多维数组，不同的只是变 量的作用范围不同。 n下面列出了使用上面语句或关键字定义的变 量的可能作用范围： lDim：整个脚本程序或过程、函数中。 lRedim：整个脚本程序或过程、函数中。 lPublic：整个脚本程序。 lPrivate：过程或函数中。 VBScript脚本编程 VBS变量 n另一种声明方式是通过直接在脚本中使用 变量名这一简单方式隐式声明变量。这不 是一个好习惯，因为这样有时会由于变量 名被拼错而导致在运行脚本时出现意外的 结果。因此，最好使用 Option Explicit 语句显式声明所有变量，并将其作为脚本 的第一条语句。这样，如果以后拼

15、写错变 量名，VBScript就会提醒你这个变量没有声 明，而避免出现由于拼写错误所造成的问 题。 VBScript脚本编程 VBS变量 option Explicit Dim i j=0 VBScript脚本编程 VBS变量 n2.变量命名规则 n变量的名字必须以字母开头。 n名字中不能含有句号。 n名字不能超过255个字符。 n名字不能和VBScript中的关键字同名。 n变量名在被声明的作用域内必须惟一。 VBScript脚本编程 VBS变量 n3.变量的作用域 n指的是变量的有效范围，在VBScript中分为 过程内有效和整个程序中都有效。在变量过 程内部声明的变量称为过程级变量或局部

16、变 量，这样的变量只有在声明它们的过程中才 能使用，即无法在过程外部访问；过程外部 声明的变量称为脚本级变量或全局变量。 VBScript脚本编程 VBS变量 nsub ss() ndim x 声明x局部变量 nx=22 nMsgBox x nend sub ndim x 声明x全局变量 nx=1 ncall ss 调用ss过程，无参数 nMsgBox x VBScript脚本编程 数组 nVBScript中的数组有以下几个特点： n使用数组之前要先进行定义，然后才能使用。 通常用Dim语句来定义数组。 n数组下标的下界一律从0开始。 n一个数组中可以含有各种子类型的数据元素。 n在VBScr

17、ipt中，数组分为两种类型，即静态 数组和动态数组。 VBScript脚本编程 数组 n1静态数组 n静态数组可分为一维数组、二维数组或多维数组。 数组的维数和大小由数组名之后紧跟的括号中的数 字的个数和数值的大小来决定。静态数组在编译时 开辟内存区，因此它的大小在运行时是不可以改变 的。 n2动态数组 n定义一般分两步：首先用Dim语句声明一个括号内 不包含下标的数组，然后在使用数组之前用ReDim 语句根据实际需要重新定义下标值。也可以用 ReDim语句直接定义数组。运行时大小可变。 VBScript脚本编程 数组 n定义一个固定长度的数组 Dim A(10) 包含11个元素 n下例中，M

18、yTable 变量是一个有6行和11列 的二维数组： Dim MyTable(5, 10) VBScript脚本编程 数组 Dim MyArray(5) Dim length MyArray(0) = 0 MsgBox MyArray(0) 返回指定数组维数的最大可用下标 length = UBound(MyArray) MsgBox length VBScript脚本编程 数组 n也可以声明动态数组，即在运行脚本时大小 发生变化的数组。 n对数组的最初声明使用Dim语句或ReDim语 句。但是对于动态数组，括号中不包含任何 数字。如： Dim MyArray() ReDim AnotherA

19、rray() VBScript脚本编程 数组 n要使用动态数组，必须随后使用Redim确定 维数和每一维的大小。 Redim MyArray(25) Redim Preserve MyArray(30) n重新调整动态数组大小的次数是没有任何限 制的。但是应注意：将数组的大小调小时， 将会丢失被删除元素的数据。 VBScript脚本编程 数组数组 n动态数组的例子。 Dim MyArray() ReDim MyArray(3) Dim length MyArray(0) = 我 MyArray(1) = 是 MyArray(2) = 小 MyArray(3) = “王 ReDim Preser

20、ve MyArray(5) MyArray(4) = 老 MyArray(5) = 师 返回指定数组维数的最大可用下标 length = UBound(MyArray) For i=0 To length MsgBox MyArray(i) Next VBScript脚本编程 VBS赋值语句 n多个变量附相同的值时，不能写成： 变量1=变量2=表达式 n声明变量时不能同时赋值，下面语句是错误 的： Dim a=2 n对对象赋值要使用set set rs=server.CreateObject(“ADODB.Recordset”) VBScript脚本编程 VBS运算符 nVBScript的操作

21、符包括算术运算符、比较运 算符、连接运算符和逻辑运算符。 n1.算术运算符:+、-、 *、/、取余Mod、求 幂()等。 n2.逻辑运算符:与And、或Or、非Not和Xor。 其返回值为：真(True)、假(False) VBScript脚本编程 VBS运算符 n3. 字符串(连接)运算符:或+ n【例】result=expression1 expression2 n说明：将两个表达式进行字符串连接；当任意一表达式不 是字符串时，它将被转换为String类型；如果两个表达式都 为Null，result也为Null；如果仅有一个为Null或任意一个表 达式为Empty，则它和其他表达式连接时，

22、按零长度字符串 ( )处理。 n【例】result=expression1 + expression2 n说明：如果两个表达式都是数值，则+运算符表示相加；如 果两个表达式都是字符串，则表示连接；如果一个表达式 为字符串，一个表达式为数值，则表示相加(都是数字)。 (所以一般仍使用&运算符来进行字符串的连接，这是因为 在使用+运算符时，可能无法确定是执行加法还是字符串连 接)。 VBScript脚本编程 VBS运算符 &用于强制连接两个表达式，合成一个字符串。 例：dim a,b,ab a=“hello_” b=123 ab=a&b /* ab的值为“hello_123” */ 任一表达式不是

23、字符串时，它将被转换为 String 子类型。 也可以使用 + 运算符连接两个字符串，建议使用 & 进行字符串的连接，以避免混淆。 VBScript脚本编程 在下面的代码中要注意，我们一般连接字 符时要用&，不要用+，这样可以避免混乱 Dim num1,num2,str1,str2 Dim sum,str num1 = 1 num2 = 2 str1 = 小 str2 = 强 sum = num1+num2 MsgBox sum sum = num1+ str1 MsgBox sum str = str1 & str2 MsgBox str VBScript脚本编程 VBS条件语句条件语句 n

24、在VBScript中，可以使用两种条件语句来控 制脚本流程，分别是IfThenElse语句， 和Select Case语句。前者可以按需要进行嵌 套。 VBScript脚本编程 VBS条件语句条件语句 if time#5:00:00PM# then greeting=“晚上好！” end if。 VBScript脚本编程 VBS条件语句条件语句 Dim contidion,str contidion = 你是亿万富翁吗？ str = 我是穷光蛋 If contidion = str Then MsgBox 就是你了 Else MsgBox 等等在说吧 End if VBScript脚本编程 V

25、BS条件语句条件语句 Dim str str = 我爱美人 Select Case str Case 我爱江山 MsgBox 我爱江山 Case 我爱美人 MsgBox 我爱美人 Case Else MsgBox 我什么都不爱 End select VBScript脚本编程 VBS循环语句循环语句 n在VBScript中，可以使用多种循环语句来表 达循环，包括： nDo Loop : 当（或直到）条件为True时循环 nWhileWend: 当条件为True时循环 nForNext: 指定循环次数，使用计数器重复执 行语句 nFor Each Next: 对于集合中的每项或数组中 的每个元素，

26、重复执行一组语句 VBScript脚本编程 VBS循环语句循环语句 For next 用法 Dim MyName,MyWriting,i MyName = “呵呵 MyWriting = “希望大家多多支持我的课程 For i=0 To 1 MsgBox MyName MsgBox MyWriting Next VBScript脚本编程 VBS循环语句循环语句 for each 的用法 Dim MyWriting(1) MyWriting(0) = “呵呵 MyWriting(1)= “希望大家多多支持我的课 For Each element In MyWriting MsgBox eleme

27、nt Next VBScript脚本编程 VBS循环语句循环语句 do loop 的用法 Dim age age = 23 Do Until age = 100 age= age+1 Loop MsgBox “好好学习，天天向上 VBScript脚本编程 VBS循环语句循环语句 while 的用法 Dim money money = 2 While money 0 money = money -1 Wend MsgBox 我身无分文了 VBScript脚本编程 Sub和Function nSub和Function都是过程，但是Sub不能 返回值，而Function可以返回值。 n对Functi

28、on的调用只需要输入过程名及参 数即可，对Sub的调用可以使用Call语句 的方式，也可以使用直接输入过程名及 参数的方式。但是如果使用Call语句，则 需要把参数用括号括起来 VBScript脚本编程 Sub和Function 定义Add子过程 Sub AddMethod(num) tmp = num+100 End Sub 调用AddMethod子过程 AddMethod 200 使用Call语句调用 Call AddMethod(200) MsgBox tmp VBScript脚本编程 Sub和Function function。 Dim str,str1,str2 str1 = 努力工

29、作 Function Flighting(str) str2 = 我要 & str Flighting = str2 End Function MsgBox Flighting(str1) VBScript脚本编程 VBScript常用函数 n1. 字符串函数 nLen：返回字符串内字符的数目，或是存 储一变量所需的字节数。 nLeft：返回指定数目的从字符串的左边算 起的字符。 nMid：从字符串中返回指定数目的字符。 nRight：从字符串右边返回指定数目的字 符。 VBScript脚本编程 VBScript常用函数 nLcase：返回字符串的小写形式。 nUcase：返回字符串的大写形式

30、。 nStrComp：返回一个表明字符串比较结果 的值。 Dim MyStr1, MyStr2, MyComp MyStr1 = ABCD: MyStr2 = abcd 定义变量。 MyComp = StrComp(MyStr2,MyStr1) 返回1。 MsgBox MyComp VBScript脚本编程 VBScript常用函数 nSplit：返回基于0 的一维数组，其中包含 指定数目的子字符串。 VBScript脚本编程 VBScript常用函数 Dim MyString, MyArray, Msg MyString = VBScriptXisXfun! MyArray = Split(

31、MyString, x, -1, 1) Msg = MyArray(0) & & MyArray(1) Msg = Msg & & MyArray(2) MsgBox Msg 显示VBScript is fun! VBScript脚本编程 VBScript常用函数 nJoin：返回一个字符串，此字符串由包含 在数组中的许多子字符串联接创建。 VBScript脚本编程 VBScript常用函数 Dim MyString Dim MyArray(3) MyArray(0) = Mr. MyArray(1) = John MyArray(2) = Doe MyArray(3) = III MyStr

32、ing = Join(MyArray) MsgBox MyString VBScript脚本编程 VBScript常用函数 n2.转换函数 nCStr：返回表达式，该表达式已被转换 为String子类型的Variant Dim MyDouble,MyString MyDouble = 437.234 MyString=CStr(MyDouble) MsgBox MyString VBScript脚本编程 VBScript常用函数 n3.判断函数 nIsArray：返回Boole an 值指明某变量是否为数组。 Dim MyVariable Dim MyArray(3) MyArray(0)=Sunday MyArray(1)=Monday MyA