VBS脚本COM对象扩展及使用（3）

一、创建常用操作COM接口对象及方法
CreateObject，这条命令可以访问windows系统内安装的所有com对象，并且可以调用这些部件中存放的命令。
WSH也就是用来解析Vbs的宿主，本身包含了几个个常用对象：

1、Scripting.FileSystemObject —> 提供一整套文件系统操作函数
2、Scripting.Dictionary —> 用来返回存放键值对的字典对象
3、Wscript.Shell —> 提供一套读取系统信息的函数
(如读写注册表、查找指定文件的路径、读取DOS环境变量，读取链接中的设置)
4、Wscript.NetWork —> 提供网络连接和远程打印机管理的函数。

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

例程:

            option Explicit   ‘所有变量先执行后使用选项
            dim objShell

            '对象值必须使用SET关键字赋值
            set objShell = CreateObject("WScript.Shell")

            '非阻塞调用，顺序执行
            objShell.Run "notepad" 

             '阻塞调用，APP关闭后执行一条
            objShell.Run "notepad" ,,true 

             '非阻塞调用，打开计算器
            objShell.Run "calc"

            '注：回避空格带来的问题, 使用引号""
            'Run "程序路径",窗口样式(0后台运行；1正常运行；2激活最小化；3激活最大化；.....),运行等待(True)
            objshell.Run """C:\Program Files\QQ2006\QQ.exe"""

二、错误处理

脚本运行不正常时，会导致运行时错误，此时屏幕上会显示MsgBox.

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.number<>0 then
wscript.echo err.number & err.description & err.source
end if

三、注册表操作
1、读注册表 Wscript.Shell.Regread
set ws = wscript.createobject("Wscript.Shell")
value = ws.regread("HKLM\Software\7-Zip\Path ")
wscript.echo value

2、写注册表 Wscript.Shell.Regwrit

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
set ws=wscript.createobject("wscript.shell")
t=ws.regwrite(path & "jj","hello")
'创建一个新的值
val=ws.regwrite(path,"newboy")

注： Run\jj这个键值改成了hello.（键值一定要预先存在）

3、删除关键字和值 Wscript.Shell.Regdelete
val=ws.Regdelete(path)

四、文件系统操作（重要）
SET FSOobj = Wscript.createobject("Scripting.FileSystemObject")

1、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对象

2、文件夹操作等

'创建模型
DIM objFS
SET objFS = Wscript.createobject(“Scripting.FileSystemobject”)
'释放模型
'SET objFS = nothing

           if (  objFS.FolderExists("c:\temp") )           '检查文件夹是否存大
           objFS.Deletefolder("c:\temp")                   '删除文件夹
           objFS.CopyFolder "c:\data" "d:\data"，'True     '复制文件夹，覆盖选项
           objFS.movefolder "c:\data\te*" "d:\data\"       '\自动创建d:\data文件夹
           objFS.getspecialfolder(0)                       '返回windows目录
           objFSgetspecialfolder(1)                        '返回system32\
           objFSgetspecialfolder(2)                            '返回临时目录

3、文件操作等

在windows中，文件的属性一般用数字来表示：
0代表normal，即普通文件未设置任何属性。 1代表只读文件。
2代表隐藏文件。 4代表系统文件。 16代表文件夹或目录。

32代表存档文件。 1024代表链接或快捷方式。

Column属性(当前字符位置的列号)和line属性(文件当前行号)：在打开一个文件后，行和列指针都被设置为1。

'检查创建文件  
set fso = wscript.createobject(“scripting.filesystemobject”)  
if fso.fileexists(“c:\kk.txt”) then  
    msgbox "文件已存在"  
else  
    set f = fso.createtextfile("c:\kk.txt" ', true ' )     'true参数: 覆盖已存在的文件  
end if  
  
fso.copyfile "c:\kk.txt","d:\1\kk.txt", true     'rue代表强制覆盖  
fso.movefile "c:\kk.txt", "d:\"                      '移动文件  
fso.deletefile "c:\kk.txt"                              '删除文件  
  
set ts = fso.opentextfile(“c:\kk.txt”,1,true)     '打开文件:1为只读、2写入、8为追加  
  
set ffile=fso.opentextfile(“c:\kk.txt”,1,true)  
value=ffile.read(20)   'read(x)读x个字符  
line=ffile.readline     'readline读一行  
contents=ffile.readall  'readall全部读取  
  
do while ffile.atendofstream<>true '行末尾，这个属性返回true。  
    ffile.read(10)  
loop

skip(x) 跳过x个字符；
skipline 跳过一行
write(x)写入x字符串；
writeline(x)写入x代表的一行
writeblanklines(n) 写入n个空行
lose方法关闭文件,读文件后一定要关闭，才能以写的方式打开。

VBS脚本COM对象扩展及使用（3）

猜你喜欢