vbscript循环

很好的VBS教程

进阶教程

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

们的练习。什么？不知道是什么意思？就是说大部分的计算机程序设

计教程开篇入门都是编写一个小程序，

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

一行文字：HelloWorld！好了，我们开始吧。打开你的“记事本”

程序，在编辑窗口填写：

msgbox"HelloWorld!"

然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设

为桌面，在“文件名”一栏中填写，单击“保存”就可以了。

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

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

[作者：临汾市外事旅游局薛靖澜，转载请注明出处]难看了点，不过

确实是你编写的第一个脚本程序。

说明之一：上面的操作中，保存位置放在桌面，仅仅是为了执行方便，

你保存到其他的地方完全没有问题，只要你知道你保存在什么地方

就可以了，什么？是废话，自己保存的当然知道保存在那里了。不，

自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意

填写，不一定非要写kk，只要符合Windows的文件命名规则就可

以了，但是扩展名必须是vbs，什么?不知道什么是扩展名？就是文

件名中“.”后的那部分，简单说，就是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、stemObject—>提供一整套文件系统操作函数

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

3、—>提供一套读取系统信息的函数，如读写注册表、

查找指定文件的路径、读取DOS环境变量，读取链接中的设置

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

（其中，所有Scripting对象都存放在文件中，所

有的Wscript对象都存放在文件中。）

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

在记事本的编辑窗口中输入：

SetobjShell=CreateObject(“”)

“notepad”

同样，保存执行。那么看到了一个什么样的结果呢？在桌面上又打开

了一个记事本。

说明之一：Set是Vbs指令，凡是将一对象引用赋给变量，就需要

使用set关键字。那么什么是对象引用呢？凡是字符串、数值、布

尔值之外的变量都是对象引用。Objshell是变量名，可以随意修改。

说明之二：反是正确引用的对象，其本身内置有函数和变量，其

引用方法为在变量后加“.”，后紧跟其实现功能的函数就可以了。

的意思就是调用中的运行外部程序的函

数——run，notepad是记事本程序的文件名。当然你也可以改成

“calc”，这是计算器的文件名，winword是word的文件名，等等

吧，所有可执行文件的文件名都可以。但是需要注意的是，如果你

要执行的可执行文件存放的地方不是程序安装的常用路径，一般情

况下，需要提供合法的路径名，但是run在运行解析时，遇到空格

会停止，解决的方法是使用双引号，

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

"""C:"""‘

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

下代码：

SetobjShell=CreateObject(“”)

“notepad”

“calc”

执行会如何呢？两个程序基本上同时启动了。如果我们需要先启动

notepad再启动calc将如何呢？很简单在需要顺序执行的代码后

加,,True参数就可以了。好了输入代码：

SetobjShell=CreateObject(“”)

“notepad”,,true

“calc”

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

run函数有三个参数，

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

第二个程序是窗口的形式，0是在后台运行；1表示正常运行；2表

示激活程序并且显示为最小化；

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

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

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

然OnErrorResumeNext语句可以防止vbs脚本在发生错误时停止

运行，但是它并不能真正处理错误，要处理错误，你需要在脚本中

增加一些语句，用来检查错误条件并在错误发生时处理它。

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

属性：description，helpcontext，helpfile，number，sourceerr对象不

用引用实例，可以直接使用，例如：onerrorresumenexta=11b=0c=a/bif

<>&ption&

endif◎Vbs脚本编程简明教程之六—修改注册表Vbs中

修改注册表的语句主要有：1、读注册表的关键词和值：可以通过把

关键词的完整路径传递给wshshell对象的regread方法。例如：set

ws=object("")v=d("HKEY_LOCAL_

MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun

nwiz")2、写注册表使用wshshell对象的regwrite方

法。例子：

path="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurr

entVersionRun"set

ws=object("")t=te(path&"jj","hello")

这样就把

HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVers

ionRunjj这个键值改成了hello.不过要注意：这个键值一定要预先

存在。[作者：临汾市外事旅游局薛靖澜，转载请注明出处]如果要

创建一个新的关键词，同样也是用这个方法。

path="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurr

entVersionrunsssa2000love"set

ws=object("")val=te(path,"nenboy")v

al=d(path)l删除关键字和值使用regdelete方

法，把完整的路径传递给regdelete就可以了例如val=(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的一部分，所

以我们需要建立他的模型例如set

fs=object(“stemobject”)这样就建立了fso

的模型。如果要释放的话也很简单，setfs=nothing2、使用文件夹在

创建前，[作者：临汾市外事旅游局薛靖澜，转载请注明出处]我们一

般需要检查该文件夹是否存在例如：dimfs,s//定义fs、s两个变量

setfs=object(“stemobject”)//fs为FSO实

例if(exists(“c:temp”))then//判断c:temp文件夹是否存在

s=”isavailable”elses=”notexist”setfoldr=folder(“c:temp”)

//不存在则建立endif删除：set

fs=object(“stemobject”)folder(“

c:windows”)拷贝：set

fs=object(“stemobject”)lder

“c:data”“d:data”注意：如果c:data和d:data都存在，脚本会出

错，复制也就会停止，如果要强制覆盖，使用lder“c:data”

“d:data”，true移动：set

fs=object(“stemobject”)lder

“c:data”“d:data”我们可以使用统配符，来方便操作：例如，

lder:c:datate*”,“d:working”注意：在目的路径最后没有

使用“”也就是说我没有这样写：lderc:datate*”,

“d:working”这样写的话，如果d:working目录不存在，windows就

不会为我们自动创建这个目录。注意：上面我们所举的例子都是在利

用fso提供的方法，如果使用folder对象也完全是可以的：setfs=

object(“stemobject”)set

f=der(“c:data”)//删除文件夹c:data。如果有子目录，

也会被删除“d:working”,true//拷贝到d:

“d:temp”//移动到d:temp3、特殊文件夹一般指的就是系统文件夹：

windowssystem32，临时文件夹，windows文件夹，在前几篇的时

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

下：例如setfs=object(“stemobject”)set

wshshell=object(“”)osdir=e

nvironmentstrings(“%systemroot%”)setf

=der(osdir)当然，还有简单的方法那就是使用

getspecialfolder()这个方法使用3种值：0表示windows文件夹，相

关常量是windowsfolder1系统文件夹，相关常量是systemfolder2

临时目录，相关常量temporaryfolder例如：set

fs=object(“stemobject”)set

wfolder=cialfolder(0)‘返回windows目录set

wfolder=cialfolder(1)‘返回system32set

wfolder=cialfolder(2)'返回临时目录◎Vbs脚本编程简明教程

之九—妙用SendKeys简化重复操作每次开机的时候，你想自动登

陆你的QQ或者网志吗？巧妙使用VBS中的SendKeys命令（这

个命令的作用就是模拟键盘操作，将一个或多个按键指令发送到指

定Windows窗口来控制应用程序运行），可以极大的方便我们的常

用操作。其使用格式为：ysstring其中：Object：为

WshShell对象，即脚本的第一行为：Set

WshShell=Object("")将Object替换为

WshShell“string”：表示要发送的按键指令字符串，需要放在英文

双引号中。它包含如下内容：[作者：临汾市外事旅游局薛靖澜，转

载请注明出处]1．基本键：一般来说，要发送的按键指令都可以直接

用该按键字符本身来表示，例如要发送字母“x”，使用

“ys"x"”即可。当然，也可直接发送多个按键指令，

只需要将按键字符按顺序排列在一起即可，例如，要发送按键“cfan”，

可以使用“ys"cfan"”。2．特殊功能键：对于需要与

Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符

来表示：Shift——+；Ctrl——^；Alt——%如要发送的组合按

键是同时按下Ctrl＋E，需要用“ys"^e"”表示，如

果要发送的组合按键是按住Ctrl键的同时按下E与C两个键，

这时应使用小括号把字母键括起来，书写格式为

“ys"^(ec)"”，这里要注意它与“ys

"^ec"”的区别，后者表示组合按键是同时按住Ctrl和E键，然后

松开Ctrl键，单独按下“C”字母键。由于“+”、“^”这些字符

用来表示特殊的控制按键了，如何表示这些按键呢？只要用大括号

括住这些字符即可。例如，要发送加号“+”，可使用

“ys"{+}"”。另外对于一些不会生成字符的控制功

能按键，也同样需要使用大括号括起来按键的名称，例如要发送

回车键，需要用“ys"{ENTER}"”表示，发送向下

的方向键用“ys"{DOWN}"”表示。如果需要发送

多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用

简化格式进行描述，使用格式为“{按键数字}”。例如要发送10个

字母“x”，则输入“ys"{x10}"”即可。例一：

ys"^{ESC}u"[作者：临汾市外事旅游局薛靖澜，转

载请注明出处]代码的含义为：按下Ctrl＋Esc组合键（相当于按Win

键）打开“开始”菜单，接着按U键打开“关机”菜单。例二：让

VBS脚本自动在记事本中输入一行文字“hello,welcometocfan”。

DimWshShellSetWshShell=Object("")

"notepad"

2000//本行的含义为是脚本暂停2秒，notepad一个

打开的时间，给有时时间太短可能导致后面的字符无法进入编辑

区ivate"无标题-记事本"//AppActivate为寻找可

执行程序的标题框，”无标题－记事本”内容你的自己打开看一下

ys"hello,welcometocfan"作业1:让脚本自动输入下

面两段小短句ThisisthemostwonderfuldayofmylifebecauseI'mhere

withyounow作业2：让脚本在输入短句后自动关闭记事本，并保存

文件名为“test”，注意关闭记事本可以直接使用组合按键Alt＋F4

来实现例三：制作能自动定时存盘的记事本我们最常用的记事本没有

Word、WPS那样的自动定时存盘功能，其实利用VBS脚本再加上

SendKeys命令，就能弥补这个遗憾。打开记事本，输入以下内容（为

容易描述和分析，把代码分为四个部分）：'第一部分：定义变量和

对象DimWshSh[作者：临汾市外事旅游局薛靖澜，转载请注明出

处]ell,AutoSaveTime,TXTFileNameAutoSaveTime=300000Set

WshShell=Object("")TXTFileName=InputB

ox("请输入你要创建的文件名(不能用中文和纯数字)：")'第二部分：

打开并激活记事本"notepad"

ivate"无标题-记事本"'第三部分：用输入的文

件名存盘ys"^s"

ys"%s"utoSaveTime'第四部分：

自动定时存盘ivate

(TXTFileName)=ys"^s"

将其保存为记事本.vbs，以后要使用

记事本时，都通过双击这个脚本文件来打开。程序说明：这个脚本的

基本思路是定时向记事本发送Ctrl＋S这个存盘组合键。第一部分：

定义了脚本中需要用到的变量和对象。“AutoSaveTime”变量用来

设置自动存盘间隔，单位为毫秒，这里设置为5分钟。

“TXTFileName”变量通过输入框取得你要创建的文本文件名称。

[作者：临汾市外事旅游局薛靖澜，转载请注明出处]第二部分：运行

记事本，对于Windows本身提供的程序，比如计算器等，可直接在

“”后输入程序名称，如"calc"，对于非系统程序，则

可输入完全路径，但要注意使用8.3格式输入，比如

“"D:Progra~"”。第三部分：这里用SendKeys命令

执行了这样的操作流程（请注意每个操作之间延时命令的使用）：在

记事本中按Ctrl＋S组合键→弹出保存文件的窗口→输入文件名→

按Alt＋S组合键进行保存（默认保存在“我的文档”目录）。第四

部分：定时存盘的关键，通过“While„„Wend”这个当条件为“真”

时循环命令，实现自动存盘代码“ys"^s"”和定时

代码“utoSaveTime”的重复执行。因为不能让这个

定时存盘循环一直执行，退出记事本后，必须自动退出脚本并结束

循环，所以设计了一个循环判断条件“ivate

TXTFileName=True”，当记事本运行中时，可以激活记事本窗口，

这个条件运行结果为“True”，定时存盘循环一直执行，退出记事本

后，脚本无法激活记事本窗口，就会跳出循环，执行“Wend”后面

的“”退出脚本。

例四：快速登陆QQ软件。假设QQ号码是：10001，密码是：123456，

隐身登陆：

setws=object("")

"C:Progra~",0

2000

ivate"QQ用户登录"

ys"7015247"

200

ys"{TAB}"

ys"*********"

200

ys"{ENTER}"