把我最钟爱的脚本语言--vbs 的教程分享给大家--1

把我最钟爱的脚本语言--vbs 的教程分享给大家--1
2009年08月07日
　　
◎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文件中。）
　　现在我们需要的是第三个对象，好了，让我们先连接一下对象看看，在记事本的编辑窗口中输入：
　　Set objShell = CreateObject(“Wscript.Shell”)
　　objShell.Run “notepad”
　　同样，保存执行。那么看到了一个什么样的结果呢？在桌面上又打开了一个记事本。
　　说明之一：Set是Vbs指令，凡是将一对象引用赋给变量，就需要使用set关键字。那么什么是对象引用呢？凡是字符串、数值、布尔值之外的变量都是对象引用。Objshell是变量名，可以随意修改。
　　说明之二：反是正确引用的对象，其本身内置有函数和变量，其引用方法为在变量后加“. ”，后紧跟其实现功能的函数就可以了。Objshell.run
　　的意思就是调用Wscript.shell中的运行外部程序的函数――run，notepad是记事本程序的文件名。当然你也可以改成“calc”，这是计算器的文件名，winword是word的文件名，等等吧，所有可执行文件的文件名都可以。但是需要注意的是，如果你要执行的可执行文件存放的地方不是程序安装的常用路径，一般情况下，需要提供合法的路径名，但是run在运行解析时，遇到空格会停止，解决的方法是使用双引号，例如：在我的机器上运行qq，代码为：
　　objshell.run """C:\Program Files\QQ2006\QQ.exe"""  ‘注：三个引号
　　好， 我们再进一步，启动两个程序会如何呢？
　　输入如下代码：
　　Set objShell = CreateObject(“Wscript.Shell”)
　　objShell.Run “notepad”
　　objShell.Run “calc”
　　执行会如何呢？两个程序基本上同时启动了。如果我们需要先启动notepad再启动calc将如何呢？很简单在需要顺序执行的代码后加 , , True参数就可以了。
　　好了输入代码：
　　Set objShell = CreateObject(“Wscript.Shell”)
　　objShell.Run “notepad” ,,true
　　objShell.Run “calc”
　　看看执行的结果怎么样吧！
　　总结：run函数有三个参数，第一个参数是你要执行的程序的路径，第二个程序是窗口的形式，0是在后台运行；1表示正常运行；2表示激活程序并且显示为最小化；3表示激活程序并且显示为最大化；一共有10个这样的参数我只列出了4个最常用的。
　　第三个参数是表示这个脚本是等待还是继续执行，如果设为了true,脚本就会等待调用的程序退出后再向后执行。
　　其实，run做为函数，前面还有一个接受返回值的变量，一般来说如果返回为0，表示成功执行，如果不为0，则这个返回值就是错误代码，可以通过这个代码找出相应的错误。
　　◎Vbs脚本编程简明教程之五―错误处理
　　引发错误的原因有很多，例如用户输入了错误类型的值，或者脚本找不到必需的文件、目录或者驱动器，我们可以使用循环技术来处理错误，但是VBS本身也提供了一些基本技术来进行错误的检测和处理。1、最常见的错误是运行时错误，也就是说错误在脚本正在运行的时候发生，是脚本试图进行非法操作的结果。例如零被作为除数。在vbs中，任何运行时错误都是致命的，此时，脚本将停止运行，并在屏幕上显示一个错误消息。你可以在脚本的开头添加
　　On  Error Resume  Next 
　　这行语句可以告诉vbs在运行时跳过发生错误的语句，紧接着执行跟在它后面的语句。
　　发生错误时，该语句将会把相关的错误号、错误描述和相关源代码压入错误堆栈。
　　2、虽然On Error Resume
　　Next语句可以防止vbs脚本在发生错误时停止运行，但是它并不能真正处理错误，要处理错误，你需要在脚本中增加一些语句，用来检查错误条件并在错误发生时处理它。
　　vbscript提供了一个对象err对象，他有两个方法clear，raise，5个属性：description，helpcontext，helpfile，number，source
　　err对象不用引用实例，可以直接使用，例如：
　　on error resume next
　　a=11
　　b=0
　　c=a/b
　　if err.number0 then
　　wscript.echo err.number & err.description  & err.source
　　end if 
　　◎Vbs脚本编程简明教程之六―修改注册表
　　Vbs中修改注册表的语句主要有： 1、读注册表的关键词和值：
　　可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如：
　　set ws=wscript.createobject("wscript.shell")
　　v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz")
　　wscript.echo v
　　2、写注册表
　　使用wshshell对象的regwrite方法。例子：
　　path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
　　set ws=wscript.createobject("wscript.shell")
　　t=ws.regwrite(path & "jj","hello")
　　这样就把
　　HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\jj这个键值改成了hello.不过要注意：这个键值一定要预先存在。
　　如果要创建一个新的关键词，同样也是用这个方法。
　　path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run\sssa2000\love\"
　　set ws=wscript.createobject("wscript.shell")
　　val=ws.regwrite(path,"nenboy")
　　val=ws.regread(path)
　　wscript.echo val
　　删除关键字和值
　　使用regdelete方法，把完整的路径传递给regdelete就可以了
　　例如
　　val=ws.regdel(path)
　　注意，如果要删除关键词的值的话 一定要在路径最后加上“\”，如果不加斜线，就会删除整个关键词。
　　当然，从现在的角度看，还是使用WMI的注册表处理功能也许更好些。