1、VBScript脚本编程,VBS Edit破解,安装完后需要注册，出现下图：,VBS Edit破解,双击Keygen.exe，弹出如下窗口：,VBS Edit破解,点击“Generate”，在Serial 中，将序列号复制，粘贴到上述窗口中，点击Evaluate，弹出如下窗口：,VBS Edit破解,在该窗口中选择“Activate manually”在Keygen 窗口中复制Activation 中的内容，粘贴到上图中的输入框中，点击OK。,VBScript简介,VBS，即Microsoft Visual Basic Scripting Edition，它是Microsoft Visual
2、Basic语言的一个子集，它并不是一个完整的程序设计语言，仅包含语言中的一些基本功能。VBScript的最大优点是：用纯文本建立、直接包含在HTML文档中、编辑和修改都十分便利。,第一个VBScript脚本,Set objshell = CreateObject(“Shell.Application“) Set objNS = objshell.namespace(&h2f) Set colitems = objNS.items For Each objitem In colitems WScript.Echo objitem.name Next,编译环境,VBS Edit 安装方法,VBS脚
3、本的注释,Vbs中使用单引号来注释” ”,注释的信息在vbsedit编辑环境中显示为绿色。 显示一条信息 Msgbox “夜深人静，小心身后啊“,VBS基础知识,1.脚本的注释 格式一：Rem 注释内容 格式二：注释内容,VBS基础知识,2.将单行语句分成多行 在编写程序代码时，有的语句可能会很长，为了在阅读和对程序查错时直观、方便，可使用续行符“ -”（由一个空格和一个下划线组成），将长的语句分成多行书写。,VBS基础知识,3.使用不同进制的数字 在VBScript中，除了可以使用默认的十进制来表示数字外，还允许使用十六进制或八进制来表示数字。对于不同进制的数，VBScript在表达方式上有
4、明确规定，即十六进制数要加前缀H（如H9），八进制数要加前缀0（数字零）或&O（字母O）（如011或&O11），十进制数不用加任何前缀。,VBS基础知识,4. VBScript语句中的英文字母不区分大小写，VBScript脚本代码是一种纯文本，可以用任何一种文本编辑器编写。,VBS的数据类型,在Visual Basic、C+等高级语言中，数据类型都是分为整数、字符等不同的类型，但在VBScript中，只有一种数据类型，称为Variant（变体类型）。 Variant既能表示数字，又能表示字符，还能表示其他的类型，vbs 在执行时会自动识别和转换类型。 所以它也是VBScript 中所有函数的返
5、回值的数据类型。,VBS的数据类型,一般情况下VBScript也会根据代码的上下文自动转换数据的子类型。例如：Variable_1=”2001”，这里Variable_1作为一个字符串变量来工作，而如果下面有Variable_2=Variable_13，这时VBScript就会自动将Variable_1转换成整数变量，然后参与运算。但有时候，也会遇到一些数据类型不匹配造成的错误。这时，可以使用VBScript的转换函数来强制转换数据的子类型。 (见VBScript帮助文件),VBS的数据类型,Dim a a=2001 VBScript会将它当成整数对待 a=”2001” VBScrint会将它
6、当成字符串对待 a=20.01 VBScript会将它当成小数对待 a=false VBScript会将它当成一个布尔值,VBS的数据类型,可以使用VarType 来看看它到底是什么类型的，如下面的代码： Dim VarTypeCheck VarTypeCheck = VarType(123) MsgBox VarTypeCheck 返回2 表示整型 VarTypeCheck = VarType(“123“) MsgBox VarTypeCheck 返回8 表示字符型,VBS常量,声明常量的意义就在于可以在程序的任何部分使用该常量来代表特定的值，从而方便程序的编写和修改。例如在程序中定义 Co
7、nst PI=3.1415926Const ConstDate=#2001-1-12#Msgbox PI,VBS常量,1文字常量 （1）字符串常量：用双引号作为定界符，由ASCII码字符组成（除双引号和回车符外），长度不能超过20亿个字符。例如：“中华人民共和国“、“1233.45“等。 （2）数值常量：包括整型数、长整型数和浮点数。例如：0、300、-4125、&H85（表示十六进制数85）、&O226（表示八进制数226）、1.23E8、3.54E-5等。 （3）日期时间型常量：用#号括起来。例如：#2001-3-15#、#2003-4-20 8:38:25 AM#等。,VBS常量,2符号
8、常量,VBS变量,1.变量声明 声明变量的一种方式是使用Dim、Redim、Public和 Private在脚本中显式声明变量。如：Dim name 注意：别乱加分号！,VBS变量,(1)Dim 格式：Dim 变量名称例如：Dim DegreesFahrenheit 声明多个变量时，使用逗号分隔变量。例如： Dim Top, Bottom, Left, Right,VBS变量,(2)Redim Redim语句是专用来定义数组的。当需要根据数据的增加和删除来扩大或缩小数组的大小时，可通过Redim语句来实现。,VBS变量,下面是一个扩大数组的简单格式：Dim datanum程序代码Redim P
9、reserve datanum(20)Redim Preserve datanum(20)语句将数组的元素扩大到20。 默认的情况下，使用Redim语句的同时会清除数组中的所有值。而使用Preserve关键字可以将所有现存的数据保存下来，并添加新的空白单元；如果缩小了数组的大小，那么被减去的单元中的数据也会丢失。,VBS变量,(3)Public Public关键字用于定义全局型变量。格式：Public 变量名称例如：Public a,b 和Dim一样，Public可以声明变量，并可以一次声明多个变量，也可以声明一维或多维数组。所不同的是Public关键字定义的变量是全局变量。,VBS变量,(4
10、)PrivatePrivate关键字可以定义变量、一次定义多个变量、定义一维或多维数组，不同的只是变量的作用范围不同。 下面列出了使用上面语句或关键字定义的变量的可能作用范围：lDim：整个脚本程序或过程、函数中。lRedim：整个脚本程序或过程、函数中。lPublic：整个脚本程序。lPrivate：过程或函数中。,VBS变量,另一种声明方式是通过直接在脚本中使用变量名这一简单方式隐式声明变量。这不是一个好习惯，因为这样有时会由于变量名被拼错而导致在运行脚本时出现意外的结果。因此，最好使用 Option Explicit 语句显式声明所有变量，并将其作为脚本的第一条语句。这样，如果以后拼写错
11、变量名，VBScript就会提醒你这个变量没有声明，而避免出现由于拼写错误所造成的问题。,VBS变量,option Explicit Dim i j=0,VBS变量,2.变量命名规则 变量的名字必须以字母开头。 名字中不能含有句号。 名字不能超过255个字符。 名字不能和VBScript中的关键字同名。 变量名在被声明的作用域内必须惟一。,VBS变量,3.变量的作用域 指的是变量的有效范围，在VBScript中分为过程内有效和整个程序中都有效。在变量过程内部声明的变量称为过程级变量或局部变量，这样的变量只有在声明它们的过程中才能使用，即无法在过程外部访问；过程外部声明的变量称为脚本级变量或全局
12、变量。,VBS变量,sub ss() dim x 声明x局部变量 x=22 MsgBox x end sub dim x 声明x全局变量 x=1 call ss 调用ss过程，无参数 MsgBox x,数组,VBScript中的数组有以下几个特点： 使用数组之前要先进行定义，然后才能使用。通常用Dim语句来定义数组。 数组下标的下界一律从0开始。 一个数组中可以含有各种子类型的数据元素。 在VBScript中，数组分为两种类型，即静态数组和动态数组。,数组,1静态数组 静态数组可分为一维数组、二维数组或多维数组。数组的维数和大小由数组名之后紧跟的括号中的数字的个数和数值的大小来决定。静态数组在
13、编译时开辟内存区，因此它的大小在运行时是不可以改变的。 2动态数组 定义一般分两步：首先用Dim语句声明一个括号内不包含下标的数组，然后在使用数组之前用ReDim语句根据实际需要重新定义下标值。也可以用ReDim语句直接定义数组。运行时大小可变。,数组,定义一个固定长度的数组Dim A(10) 包含11个元素 下例中，MyTable 变量是一个有6行和11列的二维数组： Dim MyTable(5, 10),数组,Dim MyArray(5) Dim length MyArray(0) = 0 MsgBox MyArray(0) 返回指定数组维数的最大可用下标 length = UBound(
14、MyArray) MsgBox length,数组,也可以声明动态数组，即在运行脚本时大小发生变化的数组。 对数组的最初声明使用Dim语句或ReDim语句。但是对于动态数组，括号中不包含任何数字。如： Dim MyArray()ReDim AnotherArray(),数组,要使用动态数组，必须随后使用Redim确定维数和每一维的大小。Redim MyArray(25) Redim Preserve MyArray(30) 重新调整动态数组大小的次数是没有任何限制的。但是应注意：将数组的大小调小时，将会丢失被删除元素的数据。,数组,动态数组的例子。 Dim MyArray() ReDim My
15、Array(3) Dim length MyArray(0) = “我“ MyArray(1) = “是“ MyArray(2) = “小“ MyArray(3) = “王“ ReDim Preserve MyArray(5) MyArray(4) = “老“ MyArray(5) = “师“ 返回指定数组维数的最大可用下标 length = UBound(MyArray) For i=0 To length MsgBox MyArray(i) Next,VBS赋值语句,多个变量附相同的值时，不能写成：变量1=变量2=表达式 声明变量时不能同时赋值，下面语句是错误的：Dim a=2 对对象赋值
16、要使用setset rs=server.CreateObject(“ADODB.Recordset”),VBS运算符,VBScript的操作符包括算术运算符、比较运算符、连接运算符和逻辑运算符。 1.算术运算符:+、-、 *、/、取余Mod、求幂()等。 2.逻辑运算符:与And、或Or、非Not和Xor。其返回值为：真(True)、假(False),VBS运算符,3. 字符串(连接)运算符:或+ 【例】result=expression1 expression2 说明：将两个表达式进行字符串连接；当任意一表达式不是字符串时，它将被转换为String类型；如果两个表达式都为Null，resul
17、t也为Null；如果仅有一个为Null或任意一个表达式为Empty，则它和其他表达式连接时，按零长度字符串(“ “)处理。 【例】result=expression1 + expression2 说明：如果两个表达式都是数值，则+运算符表示相加；如果两个表达式都是字符串，则表示连接；如果一个表达式为字符串，一个表达式为数值，则表示相加(都是数字)。(所以一般仍使用&运算符来进行字符串的连接，这是因为在使用+运算符时，可能无法确定是执行加法还是字符串连接)。,VBS运算符,&用于强制连接两个表达式，合成一个字符串。例：dim a,b,aba=“hello_”b=123ab=a&b /* ab的值
18、为“hello_123” */任一表达式不是字符串时，它将被转换为 String 子类型。也可以使用 + 运算符连接两个字符串，建议使用 & 进行字符串的连接，以避免混淆。,在下面的代码中要注意，我们一般连接字符时要用&，不要用+，这样可以避免混乱,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,VBS条件语句,在VBScri
19、pt中，可以使用两种条件语句来控制脚本流程，分别是IfThenElse语句，和Select Case语句。前者可以按需要进行嵌套。,VBS条件语句,if time#5:00:00PM# thengreeting=“晚上好！” end if。,VBS条件语句,Dim contidion,str contidion = “你是亿万富翁吗？“ str = “我是穷光蛋“ If contidion = str Then MsgBox “就是你了“ Else MsgBox “等等在说吧“ End if,VBS条件语句,Dim str str = “我爱美人“ Select Case str Case “
20、我爱江山“ MsgBox “我爱江山“ Case “我爱美人“ MsgBox “我爱美人“ Case Else MsgBox “我什么都不爱“ End select,VBS循环语句,在VBScript中，可以使用多种循环语句来表达循环，包括： Do Loop : 当（或直到）条件为True时循环 WhileWend: 当条件为True时循环 ForNext: 指定循环次数，使用计数器重复执行语句 For Each Next: 对于集合中的每项或数组中的每个元素，重复执行一组语句,VBS循环语句,For next 用法 Dim MyName,MyWriting,i MyName = “呵呵“ M
21、yWriting = “希望大家多多支持我的课程“ For i=0 To 1 MsgBox MyName MsgBox MyWriting Next,VBS循环语句,for each 的用法 Dim MyWriting(1) MyWriting(0) = “呵呵“ MyWriting(1)= “希望大家多多支持我的课“ For Each element In MyWriting MsgBox element Next,VBS循环语句,do loop 的用法 Dim age age = 23 Do Until age = 100 age= age+1 Loop MsgBox “好好学习，天天向上
22、“,VBS循环语句,while 的用法 Dim money money = 2 While money 0 money = money -1 Wend MsgBox “我身无分文了“,Sub和Function,Sub和Function都是过程，但是Sub不能返回值，而Function可以返回值。 对Function的调用只需要输入过程名及参数即可，对Sub的调用可以使用Call语句的方式，也可以使用直接输入过程名及参数的方式。但是如果使用Call语句，则需要把参数用括号括起来,Sub和Function, 定义Add子过程 Sub AddMethod(num)tmp = num+100 End
23、Sub 调用AddMethod子过程 AddMethod 200 使用Call语句调用 Call AddMethod(200)MsgBox tmp,Sub和Function,function。 Dim str,str1,str2 str1 = “努力工作“ Function Flighting(str) str2 = “我要“ & str Flighting = str2 End Function MsgBox Flighting(str1),VBScript常用函数,1. 字符串函数 Len：返回字符串内字符的数目，或是存储一变量所需的字节数。 Left：返回指定数目的从字符串的左边算起的字
24、符。 Mid：从字符串中返回指定数目的字符。 Right：从字符串右边返回指定数目的字符。,VBScript常用函数,Lcase：返回字符串的小写形式。 Ucase：返回字符串的大写形式。 StrComp：返回一个表明字符串比较结果的值。 Dim MyStr1, MyStr2, MyComp MyStr1 = “ABCD“: MyStr2 = “abcd“ 定义变量。 MyComp = StrComp(MyStr2,MyStr1) 返回1。 MsgBox MyComp,VBScript常用函数,Split：返回基于0 的一维数组，其中包含指定数目的子字符串。,VBScript常用函数,Dim
25、MyString, MyArray, Msg MyString = “VBScriptXisXfun!“ MyArray = Split(MyString, “x“, -1, 1) Msg = MyArray(0) & “ “ & MyArray(1) Msg = Msg & “ “ & MyArray(2) MsgBox Msg 显示VBScript is fun!,VBScript常用函数,Join：返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建。,VBScript常用函数,Dim MyString Dim MyArray(3) MyArray(0) = “Mr.“ MyAr
26、ray(1) = “John “ MyArray(2) = “Doe “ MyArray(3) = “III“ MyString = Join(MyArray) MsgBox MyString,VBScript常用函数,2.转换函数 CStr：返回表达式，该表达式已被转换为String子类型的Variant Dim MyDouble,MyString MyDouble = 437.234 MyString=CStr(MyDouble) MsgBox MyString,VBScript常用函数,3.判断函数 IsArray：返回Boole an 值指明某变量是否为数组。 Dim MyVariab
27、le Dim MyArray(3) MyArray(0)=“Sunday“ MyArray(1)=“Monday“ MyArray(2)=“Tuesday“ MyVariable=IsArray(MyArray) MyVariable为True MsgBox MyVariable,VBScript常用函数,4.输入输出函数 MsgBox：输出函数。该函数告诉用户一些信息。语法如下：MsgBox（prompt，button ，title）prompt 显示在窗口中的文字button 可选项，用以指定窗口的外观和按钮的类型title 可选项，显示在窗口标题中的文字 内的内容表示是可选项，如果不选时
28、，则系统会采用默认设置。,VBScript常用函数,名称 值 说明 Vbcritical 16 “重要信息”图标 Vbquestion 32 “询问符号” Vbexclamation 48 “警告符号” Vbinformation 64 “信息”,VBScript常用函数,函数MsbBox的返回值,VBScript常用函数,MsgBox “我最想做的事是去周游世界！“,2,“理想之窗“,VBScript常用函数,4.输入输出函数 InputBox：输入函数。该函数用于显示一个输入窗口，要求用户输入数据。语法如下：String=Inputbox（prompt，title，default）Stri
29、ng 文本框中的内容，即用户输入的内容prompt 显示在窗口中的提示文字title 可选项，显示在窗口标题中的文字default 可选项，用于指定窗口中文本输入框内的默认字符串,VBScript常用函数,Option Explicit Dim name1 name1=InputBox(“你目前最想做的事情是“,“输入你所想的“) MsgBox “你最想做的事是“ & name1,VBScript常用函数,5.转换函数 CStr() Cint() Cdate() Csng () Cbool () Clng(),VBScript常用函数,Num1=1000 Str1=“欢迎你第“ &CStr(Num1) & “次光临本店！“ MsgBox str1,
