VBScript脚本编程.ppt

VBScript脚本编程 VBSEdit破解 安装完后需要注册 出现下图 VBSEdit破解 双击Keygen exe 弹出如下窗口 VBSEdit破解 点击 Generate 在Serial中 将序列号复制 粘贴到上述窗口中 点击Evaluate 弹出如下窗口 VBSEdit破解 在该窗口中选择 Activatemanually 在Keygen窗口中复制Activation中的内容 粘贴到上图中的输入框中 点击OK VBScript简介 VBS 即MicrosoftVisualBasicScriptingEdition 它是MicrosoftVisualBasic语言的一个子集 它并不是一个完整的程序设计语言 仅包含语言中的一些基本功能 VBScript的最大优点是 用纯文本建立 直接包含在HTML文档中 编辑和修改都十分便利 第一个VBScript脚本 Setobjshell CreateObject Shell Application SetobjNS objshell namespace h2f Setcolitems objNS itemsForEachobjitemIncolitemsWScript Echoobjitem nameNext 编译环境 VBSEdit安装方法 VBS脚本的注释 Vbs中使用单引号来注释 注释的信息在vbsedit编辑环境中显示为绿色 显示一条信息Msgbox 夜深人静 小心身后啊 VBS基础知识 1 脚本的注释格式一 Rem注释内容格式二 注释内容 VBS基础知识 2 将单行语句分成多行在编写程序代码时 有的语句可能会很长 为了在阅读和对程序查错时直观 方便 可使用续行符 由一个空格和一个下划线组成 将长的语句分成多行书写 VBS基础知识 3 使用不同进制的数字在VBScript中 除了可以使用默认的十进制来表示数字外 还允许使用十六进制或八进制来表示数字 对于不同进制的数 VBScript在表达方式上有明确规定 即十六进制数要加前缀 H 如 H9 八进制数要加前缀 0 数字零 或 O 字母O 如 011或 O11 十进制数不用加任何前缀 VBS基础知识 4 VBScript语句中的英文字母不区分大小写 VBScript脚本代码是一种纯文本 可以用任何一种文本编辑器编写 VBS的数据类型 在VisualBasic C 等高级语言中 数据类型都是分为整数 字符等不同的类型 但在VBScript中 只有一种数据类型 称为Variant 变体类型 Variant既能表示数字 又能表示字符 还能表示其他的类型 vbs在执行时会自动识别和转换类型 所以它也是VBScript中所有函数的返回值的数据类型 VBS的数据类型 一般情况下VBScript也会根据代码的上下文自动转换数据的子类型 例如 Variable 1 2001 这里Variable 1作为一个字符串变量来工作 而如果下面有Variable 2 Variable 1 3 这时VBScript就会自动将Variable 1转换成整数变量 然后参与运算 但有时候 也会遇到一些数据类型不匹配造成的错误 这时 可以使用VBScript的转换函数来强制转换数据的子类型 见VBScript帮助文件 VBS的数据类型 Dimaa 2001 VBScript会将它当成整数对待a 2001 VBScrint会将它当成字符串对待a 20 01 VBScript会将它当成小数对待a false VBScript会将它当成一个布尔值 VBS的数据类型 可以使用VarType来看看它到底是什么类型的 如下面的代码 DimVarTypeCheckVarTypeCheck VarType 123 MsgBoxVarTypeCheck 返回2表示整型VarTypeCheck VarType 123 MsgBoxVarTypeCheck 返回8表示字符型 VBS常量 声明常量的意义就在于可以在程序的任何部分使用该常量来代表特定的值 从而方便程序的编写和修改 例如在程序中定义ConstPI 3 1415926ConstConstDate 2001 1 12 MsgboxPI 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 208 38 25AM 等 VBS常量 2 符号常量 VBS变量 1 变量声明声明变量的一种方式是使用Dim Redim Public和Private在脚本中显式声明变量 如 Dimname注意 别乱加分号 VBS变量 1 Dim格式 Dim变量名称例如 DimDegreesFahrenheit声明多个变量时 使用逗号分隔变量 例如 DimTop Bottom Left Right VBS变量 2 RedimRedim语句是专用来定义数组的 当需要根据数据的增加和删除来扩大或缩小数组的大小时 可通过Redim语句来实现 VBS变量 下面是一个扩大数组的简单格式 Dimdatanum 程序代码RedimPreservedatanum 20 RedimPreservedatanum 20 语句将数组的元素扩大到20 默认的情况下 使用Redim语句的同时会清除数组中的所有值 而使用Preserve关键字可以将所有现存的数据保存下来 并添加新的空白单元 如果缩小了数组的大小 那么被减去的单元中的数据也会丢失 VBS变量 3 PublicPublic关键字用于定义全局型变量 格式 Public变量名称例如 Publica b和Dim一样 Public可以声明变量 并可以一次声明多个变量 也可以声明一维或多维数组 所不同的是Public关键字定义的变量是全局变量 VBS变量 4 PrivatePrivate关键字可以定义变量 一次定义多个变量 定义一维或多维数组 不同的只是变量的作用范围不同 下面列出了使用上面语句或关键字定义的变量的可能作用范围 lDim 整个脚本程序或过程 函数中 lRedim 整个脚本程序或过程 函数中 lPublic 整个脚本程序 lPrivate 过程或函数中 VBS变量 另一种声明方式是通过直接在脚本中使用变量名这一简单方式隐式声明变量 这不是一个好习惯 因为这样有时会由于变量名被拼错而导致在运行脚本时出现意外的结果 因此 最好使用OptionExplicit语句显式声明所有变量 并将其作为脚本的第一条语句 这样 如果以后拼写错变量名 VBScript就会提醒你这个变量没有声明 而避免出现由于拼写错误所造成的问题 VBS变量 optionExplicitDimij 0 VBS变量 2 变量命名规则变量的名字必须以字母开头 名字中不能含有句号 名字不能超过255个字符 名字不能和VBScript中的关键字同名 变量名在被声明的作用域内必须惟一 VBS变量 3 变量的作用域指的是变量的有效范围 在VBScript中分为过程内有效和整个程序中都有效 在变量过程内部声明的变量称为过程级变量或局部变量 这样的变量只有在声明它们的过程中才能使用 即无法在过程外部访问 过程外部声明的变量称为脚本级变量或全局变量 VBS变量 subss dimx 声明x局部变量x 22MsgBoxxendsubdimx 声明x全局变量x 1callss 调用ss过程 无参数MsgBoxx 数组 VBScript中的数组有以下几个特点 使用数组之前要先进行定义 然后才能使用 通常用Dim语句来定义数组 数组下标的下界一律从0开始 一个数组中可以含有各种子类型的数据元素 在VBScript中 数组分为两种类型 即静态数组和动态数组 数组 1 静态数组静态数组可分为一维数组 二维数组或多维数组 数组的维数和大小由数组名之后紧跟的括号中的数字的个数和数值的大小来决定 静态数组在编译时开辟内存区 因此它的大小在运行时是不可以改变的 2 动态数组定义一般分两步 首先用Dim语句声明一个括号内不包含下标的数组 然后在使用数组之前用ReDim语句根据实际需要重新定义下标值 也可以用ReDim语句直接定义数组 运行时大小可变 数组 定义一个固定长度的数组DimA 10 包含11个元素下例中 MyTable变量是一个有6行和11列的二维数组 DimMyTable 5 10 数组 DimMyArray 5 DimlengthMyArray 0 0MsgBoxMyArray 0 返回指定数组维数的最大可用下标length UBound MyArray MsgBoxlength 数组 也可以声明动态数组 即在运行脚本时大小发生变化的数组 对数组的最初声明使用Dim语句或ReDim语句 但是对于动态数组 括号中不包含任何数字 如 DimMyArray ReDimAnotherArray 数组 要使用动态数组 必须随后使用Redim确定维数和每一维的大小 RedimMyArray 25 RedimPreserveMyArray 30 重新调整动态数组大小的次数是没有任何限制的 但是应注意 将数组的大小调小时 将会丢失被删除元素的数据 数组 动态数组的例子 DimMyArray ReDimMyArray 3 DimlengthMyArray 0 我 MyArray 1 是 MyArray 2 小 MyArray 3 王 ReDimPreserveMyArray 5 MyArray 4 老 MyArray 5 师 返回指定数组维数的最大可用下标length UBound MyArray Fori 0TolengthMsgBoxMyArray i Next VBS赋值语句 多个变量附相同的值时 不能写成 变量1 变量2 表达式声明变量时不能同时赋值 下面语句是错误的 Dima 2对对象赋值要使用setsetrs server CreateObject ADODB Recordset VBS运算符 VBScript的操作符包括算术运算符 比较运算符 连接运算符和逻辑运算符 1 算术运算符 取余Mod 求幂 等 2 逻辑运算符 与And 或Or 非Not和Xor 其返回值为 真 True 假 False VBS运算符 3 字符串 连接 运算符 或 例 result expression1 expression2说明 将两个表达式进行字符串连接 当任意一表达式不是字符串时 它将被转换为String类型 如果两个表达式都为Null result也为Null 如果仅有一个为Null或任意一个表达式为Empty 则它和其他表达式连接时 按零长度字符串 处理 例 result expression1 expression2说明 如果两个表达式都是数值 则 运算符表示相加 如果两个表达式都是字符串 则表示连接 如果一个表达式为字符串 一个表达式为数值 则表示相加 都是数字 所以一般仍使用 运算符来进行字符串的连接 这是因为在使用 运算符时 可能无法确定是执行加法还是字符串连接 VBS运算符 用于强制连接两个表达式 合成一个字符串 例 dima b aba hello b 123ab a b ab的值为 hello 123 任一表达式不是字符串时 它将被转换为String子类型 也可以使用 运算符连接两个字符串 建议使用 进行字符串的连接 以避免混淆 在下面的代码中要注意 我们一般连接字符时要用 不要用 这样可以避免混乱 Dimnum1 num2 str1 str2Dimsum strnum1 1num2 2str1 小 str2 强 sum num1 num2MsgBoxsumsum num1 str1MsgBoxsumstr str1 str2MsgBoxstr VBS条件语句 在VBScript中 可以使用两种条件语句来控制脚本流程 分别是If Then Else语句 和SelectCase语句 前者可以按需要进行嵌套 VBS条件语句 iftime 5 00 00PM thengreeting 晚上好 endif VBS条件语句 Dimcontidion strcontidion 你是亿万富翁吗 str 我是穷光蛋 Ifcontidion strThenMsgBox 就是你了 ElseMsgBox 等等在说吧 Endif VBS条件语句 Dimstrstr 我爱美人 SelectCasestrCase 我爱江山 MsgBox 我爱江山 Case 我爱美人 MsgBox 我爱美人 CaseElseMsgBox 我什么都不爱 Endselect VBS循环语句 在VBScript中 可以使用多种循环语句来表达循环 包括 Do Loop 当 或直到 条件为True时循环While Wend 当条件为True时循环For Next 指定循环次数 使用计数器重复执行语句ForEach Next 对于集合中的每项或数组中的每个元素 重复执行一组语句 VBS循环语句 Fornext用法DimMyName MyWriting iMyName 呵呵 MyWriting 希望大家多多支持我的课程 Fori 0To1MsgBoxMyNameMsgBoxMyWritingNext VBS循环语句 foreach的用法DimMyWriting 1 MyWriting 0 呵呵 MyWriting 1 希望大家多多支持我的课 ForEachelementInMyWritingMsgBoxelementNext VBS循环语句 doloop的用法Dimageage 23DoUntilage 100age age 1LoopMsgBox 好好学习 天天向上 VBS循环语句 while的用法Dimmoneymoney 2Whilemoney 0money money 1WendMsgBox 我身无分文了 Sub和Function Sub和Function都是过程 但是Sub不能返回值 而Function可以返回值 对Function的调用只需要输入过程名及参数即可 对Sub的调用可以使用Call语句的方式 也可以使用直接输入过程名及参数的方式 但是如果使用Call语句 则需要把参数用括号括起来 Sub和Function 定义Add子过程SubAddMethod num tmp num 100EndSub 调用AddMethod子过程AddMethod200 使用Call语句调用CallAddMethod 200 MsgBoxtmp Sub和Function function Dimstr str1 str2str1 努力工作 FunctionFlighting str str2 我要 strFlighting str2EndFunctionMsgBoxFlighting str1 VBScript常用函数 1 字符串函数Len 返回字符串内字符的数目 或是存储一变量所需的字节数 Left 返回指定数目的从字符串的左边算起的字符 Mid 从字符串中返回指定数目的字符 Right 从字符串右边返回指定数目的字符 VBScript常用函数 Lcase 返回字符串的小写形式 Ucase 返回字符串的大写形式 StrComp 返回一个表明字符串比较结果的值 DimMyStr1 MyStr2 MyCompMyStr1 ABCD MyStr2 abcd 定义变量 MyComp StrComp MyStr2 MyStr1 返回1 MsgBoxMyComp VBScript常用函数 Split 返回基于0的一维数组 其中包含指定数目的子字符串 VBScript常用函数 DimMyString MyArray MsgMyString VBScriptXisXfun MyArray Split MyString x 1 1 Msg MyArray 0 MyArray 1 Msg Msg MyArray 2 MsgBoxMsg 显示VBScriptisfun VBScript常用函数 Join 返回一个字符串 此字符串由包含在数组中的许多子字符串联接创建 VBScript常用函数 DimMyStringDimMyArray 3 MyArray 0 Mr MyArray 1 John MyArray 2 Doe MyArray 3 III MyString Join MyArray MsgBoxMyString VBScript常用函数 2 转换函数CStr 返回表达式 该表达式已被转换为String子类型的VariantDimMyDouble MyStringMyDouble 437 234MyString CStr MyDouble MsgBoxMyString VBScript常用函数 3 判断函数IsArray 返回Boolean值指明某变量是否为数组 DimMyVariableDimMyArray 3 MyArray 0 Sunday MyArray 1 Monday My