VBS教程.docx

VBS教程.docx

《VBS教程.docx》由会员分享，可在线阅读，更多相关《VBS教程.docx（9页珍藏版）》请在冰豆网上搜索。

VBS教程

很好的VBS教程

就像多数计算机教程一样，我们从“HelloWorld！

”程序开始我们的练习。

什么？

不知道是什么意思？

就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序，

执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字：

HelloWorld！

好了，我们开始吧。

打开你的“记事本”程序，在编辑窗口填写：

msgbox"HelloWorld!

"

然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就可以了。

然后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，然后双击。

看到弹出的对话框了没有，单击“确定”，对话框消失了。

[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]难看了点，不过确实是你编写的第一个脚本程序。

说明之一：

上面的操作中，保存位置放在桌面，仅仅是为了执行方便，你保存到其他的地方完全没有问题，只要你知道你保存在什么地方就可以了，什么？

是废话，自己保存的当然知道保存在那里了。

不，自己保存的文件自己找不到的人我见的多了去了。

文件名你可以随意填写，不一定非要写kk，只要符合Windows的文件命名规则就可以了，但是扩展名必须是vbs，什么?

不知道什么是扩展名？

就是文件名中“.”后的那部分，简单说，就是vbs脚本文件命名时必须是：

xxx.vbs，其中xxx你随意。

说明之二：

在记事本编辑窗口中写的这行是什么意思？

Msgbox是VBS内建的函数，每一个函数都可以完成一定的功能，你只需要按照语法要求，在函数的相应部分填写相应的内容就可以了，这部分内容我们称为参数，当然函数执行的结果我们称为返回值，一个函数可以有返回值也可以没有，可以有参数也可以没有。

你不用了解函数是怎么运作的，只要了解这个函数能干什么就行了。

Msgbox语法：

msgbox"对话框内容",,"对话框的标题"

你不妨用记事本打开刚才的文件在编辑窗口中输入：

msgbox"HelloWorld!

",,"系统提示"

执行一下，看看效果和位置。

说明之三：

如果执行失败，看看你的标点符号，所有的标点符号必须是在英文状态下输入的。

[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]当然，这个脚本实在是太简单了，甚至连最简单的交互都没有，所以你可以把脚本这样修改一下：

Dimname,name=Inputbox（"请输入你的名字:

","名称"）

Msgboxname,,"您的名字是"

保存执行一下，看到弹出的对话框了么？

填入你的名字，点确定，看到结果了吗？

说明之一：

第一句是定义变量，dim是定义变量的语句其

格式为：

dim变量1,变量2……，

Vbs只有一种变量类型，所以不用声明变量类型。

系统会自动分辨变量类型。

说明之二：

inputbox是VBS内建的函数，可以接受输入的内容，其语法格式为：

Inputbox（"对话框内容","对话框标题"）

第二句的意思是接受用户的输入，并把输入结果传递给变量name。

好了，到此脚本基本的输入输出函数都有了，已经可以完成一些比较简单的功能了，你可以编写一个简单的脚本，然后拷贝的“程序”—>“启动”中，然后重新启动计算机看看结果。

◎Vbs脚本编程简明教程之三—Vbs的基本语法（牢记）VBScript基础知识一、变量

1、所有单引号后面的内容都被解释为注释。

2、在VBScript中，变量的命名规则遵循标准的命名规则，需要注意的是：

在VBScript中对变量、方法、函数和对象的引用是不区分大小写的。

在申明变量时，要显式地申明一个变量，需要使用关键字DIm来告诉VBScript你要创建一个变量，并将变量名称跟在其后。

申明多个同类型变量，可以用逗号分隔。

注意：

VBScript中不允许在申明变量的时候同时给变量赋值。

但是允许在一行代码内同时对两个变量进行赋值，中间用冒号分隔。

3、你可以使用OptionExplicit来告诉宿主变量必须先声明后使用。

4、VBScript在定义时只有一种变量类型，在实际使用中需要使用类型转换函数来将变量转换成相应的变量类型。

Cbool函数将变量转换成布尔值；Cbyte函数将变量转换为0到255之间的整数。

Ccur函数、Cdbl函数和Csng函数将变量转换为浮点数值，前者只精确到小数点后四位，后两者要更加精确，数值的范围也要大的多。

Cdate函数将变量转换为日期值。

Cint函数和Clng函数将变量转换为整数，后者的范围比前者要大的多。

Cstr函数将变量转换为字符串。

二、数组数组的定义与变量非常类似，只需要在变量后描述这个数组的个数和维数。

需要注意的是：

数组的下标总是从0开始，而以数组定义中数值减一结束。

也就是说你以要定义一个有十个数据的数组，将这样书写代码：

dImarray（9），同样，当你要访问第五个元素时，实际的代码是array（4）。

当然，你可以通过不指定数组的个数和维数来申明动态数组。

等到数组的个数和维数固定后，使用关键字redim来改变数组。

注意，在改变数组的大小时，数组的数据会被破坏，使用关键字preserve来保护数据。

例如：

RedIm空格preserve空格array括号个数逗号维数括号

三、操作符在VBScript运算符中，加减乘除都是我们常用的符号，乘方使用的是^，取模使用的Mod。

在比较操作符中，等于、小于、大于、小于等于、大于等于都与我们常用的符号是一致的，而不等于是小于和大于连用。

逻辑运算符为：

和操作—>AND

非操作—>NOT

或操作—>OR；

你可以使用操作符+和操作符&来连接字符串，一般使用&操作符；另外还有一个比较特殊的操作符Is用来比较对象，例如按钮对象，如果对象是同一类型，结果就是真，如果对象不是同一类型，结果就是假。

四、条件语句主要有

if……then语句和selectcase语句两种形式在if……then语句中，其基本形式为：

If条件then处理条件的语句；……Endif

基本形式只能对单个条件进行验证，如果有两个条件，则需要在基本形式中添加单行语句else，如果还有更多的条件需要验证，则需要添加语句Elseif条件then处理条件语句在selectcase语句中，

其基本形式为：

Selectcase变量Case条件值处理条件语句并对上两句进行重复最后一句应为caseelse处理语句当然不要忘记将条件结束语句Endselect放在最后一行注意：

在执行字符串比较时，需要特别注意大小写，一般情况下，我们在比较前，使用lcase函数将字符串转换成小写，使用ucase函数将字符串转换成大写大写。

五、循环控制语句循环控制语句有for……next循环、for……each循环、do……while循环、do……until循环、while循环五种形式。

在使用循环控制语句前，[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]首先要对循环条件进行判断，

如果循环次数是有固定次数的，那么使用For……next循环，其结构为：

For计数器变量＝开始计数值to最后计数值执行循环体Next

如果是需要对数组或对象集合中的每一个元素进行判断，则需要使用for……each循环，其结构为：

Foreach循环计数变量in要查看的对象或数组执行处理语句Next

注意：

在上述两种循环中随时可以使用exitfor来退出循环

如果你希望在条件满足时执行一段代码则使用do……while语句，结构为：

Dowhile条件执行循环体Loop

如果你希望在条件不满足时执行代码，则使用do……until语句，结构为：

Dountil条件执行循环体Loop当然，在这两种循环语句中，你可以使用exitdo来退出循环

最后一种循环语句是条件满足时一直执行循环，While条件执行循环体Wend

六、使用过程常用的过程有两种，一种为函数，给调用者返回值，一种为子程序，无返回值，还有一种叫事件的特殊子程序，用的比较少。

函数的基本定义方法为：

Function函数名称（参数列表）函数代码函数名称＝某值‘用来返回值endfunction子程序一些都类似，不过没有返回值

注意：

尽管在定义子程序的时候，参数列表要加括号，但在调用子程序的时候，参数列表不加括号，括号只在函数中使用。

另外，子程序不能在表达式中使用。

而函数只能出现在赋值语句的右边，或者表达式中，函数不能直接使用，如果必须直接使用函数，则必须使用call语句调用，并取消返回值◎Vbs

脚本编程简明教程之四—如何利用Vbs运行外部程序？

Vbs只提供了编程的一个基本框架，用户可以使用Vbs来定义变量、过程和函数，vbs也提供了一些内部函数和对象，但是Vbs没有提供任何命令来访问Windows系统内部的部件，但是值得庆幸的是，Vbs虽然不能自己完成这些任务，但是它提供了一条极为方便、功能也相当强的命令——CreateObject，这条命令可以访问windows系统内安装的所有com对象，并且可以调用这些部件中存放的命令。

于是问题解决了，比如说，我手头有1000个小文本，我首先要对每一个文本的语法进行查错和修改，然后按照预先定义好的规则对这些文本进行排序，最后将这些文本合并成为一个文件。

正常情况下，我们需要把打开第一个小文本，然后把它复制到WORD中，然后利用里面的除错功能进行除错和修改，然后再导入到EXCEL中进行排序，将这个过程重复1000遍，然后再将所有得到的文本复制到一个大文本中。

实在是太枯燥、工作量太大了。

有了Vbs和CreateObject，问题得到解决，我只需要找到相应的模块，调用相应的功能就可以了，作为脚本，把一个枯燥的过程重复1000次，本就是它的拿手好戏。

好了，我们走入正题，从最简单的——只启动一个程序开始。

WSH也就是用来解析Vbs的宿主，本身包含了几个个常用对象：

1、Scripting.FileSystemObject—>提供一整套文件系统操作函数

2、Scripting.Dictionary—>用来返回存放键值对的字典对象

3、Wscript.Shell—>提供一套读取系统信息的函数，如读写注册表、查找指定文件的路径、读取DOS环境变量，读取链接中的设置

4、Wscript.NetWork—>提供网络连接和远程打印机管理的函数。

（其中，所有Scripting对象都存放在SCRRUN.DLL文件中，所有的Wscript对象都存放在WSHOM.ocx文件中。

）

现在我们需要的是第三个对象，好了，让我们先连接一下对象看看，在记事本的编辑窗口中输入：

SetobjShell=CreateObject（“Wscript.Shell”）

objShell.Run“notepad”

同样，保存执行。

那么看到了一个什么样的结果呢？

在桌面上又打开了一个记事本。

说明之一：

Set是Vbs指令，凡是将一对象引用赋给变量，就需要使用set关键字。

那么什么是对象引用呢？

凡是字符串、数值、布尔值之外的变量都是对象引用。

Objshell是变量名，可以随意修改。

说明之二：

反是正确引用的对象，其本身内置有函数和变量，其引用方法为在变量后加“.”，后紧跟其实现功能的函数就可以了。

Objshell.run的意思就是调用Wscript.shell中的运行外部程序的函数——run，notepad是记事本程序的文件名。

当然你也可以改成“calc”，这是计算器的文件名，winword是word的文件名，等等吧，所有可执行文件的文件名都可以。

但是需要注意的是，如果你要执行的可执行文件存放的地方不是程序安装的常用路径，一般情况下，需要提供合法的路径名，但是run在运行解析时，遇到空格会停止，解决的方法是使用双引号，

例如：

在我的机器上运行qq，代码为：

objshell.run"""C:

ProgramFilesQQ2006QQ.exe"""‘

注：

三个引号好，我们再进一步，启动两个程序会如何呢？

输入如下代码：

SetobjShell=CreateObject（“Wscript.Shell”）

objShell.Run“notepad”

objShell.Run“calc”

执行会如何呢？

两个程序基本上同时启动了。

如果我们需要先启动notepad再启动calc将如何呢？

很简单在需要顺序执行的代码后加,,True参数就可以了。

好了输入代码：

SetobjShell=CreateObject（“Wscript.Shell”）

objShell.Run“notepad”,,true

objShell.Run“calc”

看看执行的结果怎么样吧！

总结：

run函数有三个参数，

第一个参数是你要执行的程序的路径，

第二个程序是窗口的形式，0是在后台运行；1表示正常运行；2表示激活程序并且显示为最小化；

3表示激活程序并且显ocx文件中。

）

现在我们需要的是第三个对象，好了，让我们先连接一下对象看看，

一般情况下，需要提供合法描述和相关源代码压入错误堆栈。

2、虽然OnErrorResumeNext语句可以防止vbs脚本在发生错误时停止运行，但是它并不能真正处理错误，要处理错误，你需要在脚本中增加一些语句，用来检查错误条件并在错误发生时处理它。

vbscript提供了一个对象err对象，他有两个方法clear，raise，5个属性：

description，helpcontext，helpfile，number，sourceerr对象不用引用实例，可以直接使用，例如：

onerrorresumenexta=11b=0c=a/biferr.number<>0thenwscript.echoerr.number&err.description&err.sourceendif◎Vbs脚本编程简明教程之六—修改注册表Vbs中修改注册表的语句主要有：

1、读注册表的关键词和值：

可以通过把关键词的完整路径传递给wshshell对象的regread方法。

例如：

setws=wscript.createobject（"wscript.shell"）v=ws.regread（"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunnwiz"）wscript.echov2、写注册表使用wshshell对象的regwrite方法。

例子：

path="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun"setws=wscript.createobject（"wscript.shell"）t=ws.regwrite（path&"jj","hello"）这样就把HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunjj这个键值改成了hello.不过要注意：

这个键值一定要预先存在。

[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]如果要创建一个新的关键词，同样也是用这个方法。

path="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionrunsssa2000love"setws=wscript.createobject（"wscript.shell"）val=ws.regwrite（path,"nenboy"）val=ws.regread（path）wscript.echoval删除关键字和值使用regdelete方法，把完整的路径传递给regdelete就可以了例如val=ws.regdel（path）注意，如果要删除关键词的值的话一定要在路径最后加上“”，如果不加斜线，就会删除整个关键词。

◎Vbs脚本编程简明教程之七—FSO的常见对象和方法文件系统是所有操作系统最重要的部分之一，脚本经常会需要对文件及文件夹进行访问和管理，在Vbs中对桌面和文件系统进行访问的顶级对象是FileSystemObject（FSO），这个对象特别复杂，是vbs进行文件操作的核心。

此节内容应了如指掌。

FSO包含的常见对象有：

Drive对象：

包含储存设备的信息，[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]包括硬盘、光驱、ram盘、网络驱动器Drives集合：

提供一个物理和逻辑驱动器的列表File对象：

检查和处理文件Files集合：

提供一个文件夹中的文件列表Folder对象：

检查和处理文件夹Folders集合：

提供文件夹中子文件夹的列表Textstream对象：

读写文本文件FSO的常见方法BulidPath：

把文件路径信息添加到现有的文件路径上CopyFile：

复制文件CopyFolder：

复制文件夹CreateFolder：

创建文件夹CreateTextFile：

创建文本并返回一个TextStream对象DeleteFile：

删除文件DeleteFolder：

删除文件夹及其中所有内容DriveExits：

确定驱动器是否存在FileExits：

确定一个文件是否存在FolderExists：

确定某文件夹是否存在GetAbsolutePathName：

返回一个文件夹或文件的绝对路径GetBaseName：

返回一个文件或文件夹的基本路径GetDrive：

返回一个dreve对象GetDriveName：

返回一个驱动器的名字GetExtensionName：

返回扩展名GetFile：

返回一个file对象GetFileName：

返回文件夹中文件名称GetFolder：

返回一个文件夹对象GetParentFolderName：

返回一个文件夹的父文件夹GetSpecialFolder:

返回指向一个特殊文件夹的对象指针GetTempName:

返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称MoveFile：

移动文件MoveFolder：

移动文件夹[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]OpenTextFile：

打开一个存在的文件并返回一个TextStream对象◎Vbs脚本编程简明教程之八—FSO中文件夹的基本操作1、使用fso由于fso不是wsh的一部分，所以我们需要建立他的模型例如setfs=wscript.createobject（“scripting.filesystemobject”）这样就建立了fso的模型。

如果要释放的话也很简单，setfs=nothing2、使用文件夹在创建前，[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]我们一般需要检查该文件夹是否存在例如：

dimfs,s//定义fs、s两个变量setfs=wscript.createobject（“scripting.filesystemobject”）//fs为FSO实例if（fs.folderexists（“c:

temp”））then//判断c:

temp文件夹是否存在s=”isavailable”elses=”notexist”setfoldr=fs.createfolder（“c:

temp”）//不存在则建立endif删除：

setfs=wscript.createobject（“scripting.filesystemobject”）fs.deletefolder（“c:

windows”）拷贝：

setfs=wscript.createobject（“scripting.filesystemobject”）fs.copyfolder“c:

data”“d:

data”注意：

如果c:

data和d:

data都存在，脚本会出错，复制也就会停止，如果要强制覆盖，使用fs.copyfolder“c:

data”“d:

data”，true移动：

setfs=wscript.createobject（“scripting.filesystemobject”）fs.movefolder“c:

data”“d:

data”我们可以使用统配符，来方便操作：

例如，fs.movefolder:

c:

datate*”,“d:

working”注意：

在目的路径最后没有使用“”也就是说我没有这样写：

fs.movefolderc:

datate*”,“d:

working”这样写的话，如果d:

working目录不存在，windows就不会为我们自动创建这个目录。

注意：

上面我们所举的例子都是在利用fso提供的方法，如果使用folder对象也完全是可以的：

setfs=wscript.createobject（“scripting.filesystemobject”）setf=fs.getfolder（“c:

data”）f.delete//删除文件夹c:

data。

如果有子目录，也会被删除f.copy“d:

working”,true//拷贝到d:

workingf.move“d:

temp”//移动到d:

temp3、特殊文件夹一般指的就是系统文件夹：

windowssystem32，临时文件夹，windows文件夹，在前几篇的时候，[作者：

临汾市外事旅游局薛靖澜，转载请注明出处]我们提过一下：

例如setfs=wscript.createobject（“scripting.filesystemobject”）setwshshell=wscript.createobject（“wscript.shell”）osdir=wshshell.expandenvironmentstrings（“%systemroot%”）setf=fs.getfolder（osdir）wscript.echof当然，还有简单的方法那就是使用getspecialfolder（）这个方法使用3种值：

0表示windows文件夹，相关常量是windowsfolder1系统文件夹，相关常量是systemfolder2临时目录，相关常量temporaryfolder例如：

setfs=wscript.createobject（“scripting.filesystemobject”）setwfolder=fs.getspecialfolder（0）‘返回windows目录setwfolder=fs.getspecialfolder

（1）‘返回system32setwfolder=fs.getspecialfolder

（2）'返回临时目录◎Vbs脚本编程简明教程之九—妙用SendKeys简化重复操作每次开机的时候，你想自动登陆你的QQ或者网志吗？

巧妙使用VBS中的SendKeys命令（这个命令的作用就是模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行），可以极大的方便我们的常用操作。

其使用格式为：

Object.SendKeysstring其中：

Object：

为WshS