QTPVBS基础教程.docx
《QTPVBS基础教程.docx》由会员分享,可在线阅读,更多相关《QTPVBS基础教程.docx(20页珍藏版)》请在冰豆网上搜索。
![QTPVBS基础教程.docx](https://file1.bdocx.com/fileroot1/2023-4/17/6a761ee6-2492-4f5d-bd89-19f83d36538c/6a761ee6-2492-4f5d-bd89-19f83d36538c1.gif)
QTPVBS基础教程
qtp:
vbs基础教程
◎vbs脚本编程简明教程之一—为什么要使用Vbs?
在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来……。
这些事情重复、琐碎,使人容易疲劳。
第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,我也尝试过使用计算机语言编写程序来解决这些问题,但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要,难道就是因为猪毛比较难拔,所以我就要去学习机械,为自己设计一个拔猪毛机(?
)吗?
Vbs是一种Windows脚本,它的全称是:
MicrosoftVisualBasicScriptEditon.(微软公司可视化BASIC脚本版),VBS是VisualBasic的的一个抽象子集,是系统内置的,用它编写的脚本代码不能编译成二进制文件,直接由Windows系统执行(实际是一个叫做宿主host的解释源代码并执行),高效、易学,但是大部分高级语言能干的事情,它基本上都具备,它可以使各种各样的任务自动化,可以使你从重复琐碎的工作中解脱出来,极大的提高工作效率。
我个人认为Vbs脚本其实就是一种计算机编程语言,但是由于缺少计算机程序设计语言中的部分要素,对于事件的描述能力较弱,所以称为脚本,它最方便的地方就是提供了对COM对象的简便支持。
那么什么是COM对象呢?
我这样理解,COM对象就是一些具有特定函数功能项程序模块,他们一般以ocx或者dll作为扩展名,你只要找到包含有你需要的功能的模块文件,并在脚本中规范的引用,就可以实现特定的功能,也就是说Vbs脚本就是调用现成的“控件”作为对象,用对象的属性和方法实现目的,完全免去了编写代码、设计算法等等麻烦。
说白了,我不是觉得拔猪毛麻烦么?
我发觉xx机(比如真空离心器)有一个功能可以实现脱毛,ok,我把它拿来给猪脱毛。
什么?
大材小用?
太浪费资源了?
天哪,那是计算机芯片的事情,死道友不死贫道,反正我的事情是方便快速的解决了,这就行了。
最方便的是它甚至不需要专门的开发环境,在你的计算机中,只要有notepad,就可以编写Vbs脚本了,并且可以直接执行。
◎Vbs脚本编程简明教程之二—如何开始第一个Vbs脚本?
就像多数计算机教程一样,我们从“HelloWorld!
”程序开始我们的练习。
什么?
不知道是什么意思?
就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序,执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字:
HelloWorld!
好了,我们开始吧。
打开你的“记事本”程序,在编辑窗口填写:
msgbox"HelloWorld!
"
然后用鼠标单击“文件”菜单,单击“保存”,把“保存在”一栏设为桌面,在“文件名”一栏中填写kk.vbs,单击“保存”就可以了。
然后最小化“记事本”窗口,在桌面上寻找你刚刚保存的kk.vbs,然后双击。
看到弹出的对话框了没有,单击“确定”,对话框消失了。
难看了点,不过确实是你编写的第一个脚本程序。
说明之一:
上面的操作中,保存位置放在桌面,仅仅是为了执行方便,你保存到其他的地方完全没有问题,只要你知道你保存在什么地方就可以了,什么?
是废话,自己保存的当然知道保存在那里了。
不,自己保存的文件自己找不到的人我见的多了去了。
文件名你可以随意填写,不一定非要写kk,只要符合Windows的文件命名规则就可以了,但是扩展名必须是vbs,什么?
不知道什么是扩展名?
就是文件名中“.”后的那部分,简单说,就是vbs脚本文件命名时必须是:
xxx.vbs,其中xxx你随意。
◎Vbs脚本编程简明教程之三—Vbs的基本语法(牢记)
VBScript基础知识
一、变量
1、所有单引号后面的内容都被解释为注释。
2、在VBScript中,变量的命名规则遵循标准的命名规则,需要注意的是:
在VBScript中对变量、方法、函数和对象的引用是不区分大小写的。
在申明变量时,要显式地申明一个变量,需要使用关键字Dim来告诉VBScript你要创建一个变量,并将变量名称跟在其后。
申明多个同类型变量,可以用逗号分隔。
注意:
VBScript中不允许在申明变量的时候同时给变量赋值。
但是允许在一行代码内同时对两个变量进行赋值,中间用冒号分隔。
3、你可以使用OptionExplicit来告诉宿主变量必须先声明后使用。
4、VBScript在定义时只有一种变量类型,在实际使用中需要使用类型转换函数来将变量转换成相应的变量类型。
二、数组
数组的定义与变量非常类似,只需要在变量后描述这个数组的个数和维数。
需要注意的是:
数组的下标总是从0开始,而以数组定义中数值减一结束。
也就是说你以要定义一个有十个数据的数组,将这样书写代码:
DimArray(9),同样,当你要访问第五个元素时,实际的代码是array(4)。
三、操作符
在VBScript运算符中,加减乘除都是我们常用的符号,乘方使用的是^,取模使用的Mod。
在比较操作符中,等于、小于、大于、小于等于、大于等于都与我们常用的符号是一致的,而不等于是小于和大于连用。
逻辑运算符为:
和操作—>AND非操作—>NOT或操作—>OR;
你可以使用操作符+和操作符&来连接字符串,一般使用&操作符;
另外还有一个比较特殊的操作符Is用来比较对象,例如按钮对象,如果对象是同一类型,结果就是真,如果对象不是同一类型,结果就是假。
四、条件语句主要有if……then语句和selectcase语句两种形式
在if……then语句中,其基本形式为:
If条件then
处理条件的语句;
……
Endif
基本形式只能对单个条件进行验证,如果有两个条件,则需要在基本形式中添加单行语句else,如果还有更多的条件需要验证,则需要添加语句
Elseif条件then
处理条件语句
在selectcase语句中,其基本形式为:
Selectcase变量
Case条件值
处理条件语句
并对上两句进行重复
最后一句应为
caseelse
EndSelect
处理语句
当然不要忘记将条件结束语句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语句,结构为:
Do until 条件
执行循环体
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:
\ProgramFiles\QQ2006\QQ.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表示激活程序并且显示为最大化;一共有10个这样的参数我只列出了4个最常用的。
第三个参数是表示这个脚本是等待还是继续执行,如果设为了true,脚本就会等待调用的程序退出后再向后执行。
其实,run做为函数,前面还有一个接受返回值的变量,一般来说如果返回为0,表示成功执行,如果不为0,则这个返回值就是错误代码,可以通过这个代码找出相应的错误。
◎Vbs脚本编程简明教程之五—错误处理
引发错误的原因有很多,例如用户输入了错误类型的值,或者脚本找不到必需的文件、目录或者驱动器,我们可以使用循环技术来处理错误,但是VBS本身也提供了一些基本技术来进行错误的检测和处理。
1、最常见的错误是运行时错误,也就是说错误在脚本正在运行的时候发生,是脚本试图进行非法操作的结果。
例如零被作为除数。
在vbs中,任何运行时错误都是致命的,此时,脚本将停止运行,并在屏幕上显示一个错误消息。
你可以在脚本的开头添加
OnErrorResumeNext
这行语句可以告诉vbs在运行时跳过发生错误的语句,紧接着执行跟在它后面的语句。
发生错误时,该语句将会把相关的错误号、错误描述和相关源代码压入错误堆栈。
2、虽然OnErrorResumeNext语句可以防止vbs脚本在发生错误时停止运行,但是它并不能真正处理错误,要处理错误,你需要在脚本中增加一些语句,用来检查错误条件并在错误发生时处理它。
vbscript提供了一个对象err对象,他有两个方法clear,raise,5个属性:
description,helpcontext,helpfile,number,source
err对象不用引用实例,可以直接使用,例如:
onerrorresumenext
a=11
b=0
c=a/b
iferr.number<>0then
wscript.echoerr.number&err.description&err.source
endif
◎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=nothing
2、使用文件夹
在创建前,我们一般需要检查该文件夹是否存在例如:
dimfs,s//定义fs、s两个变量
setfs=wscript.createobject(“scripting.filesystemobject”)//fs为FSO实例
if(fs.folderexists(“c:
\temp”))then//判断c:
\temp文件夹是否存在
s=”isavailable”
else
s=”notexist”
setfoldr=fs.createfolder(“c:
\temp”)//不存在则建立
endif
拷贝:
注意:
如果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:
\data\te*”,“d:
\working”
注意:
在目的路径最后没有使用“\”也就是说我没有这样写:
fs.movefolderc:
\data\te*”,“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:
\working
f.move“d:
\temp”//移动到d:
\temp
一般指的就是系统文件夹:
\windows\system32,
临时文件夹,windows文件夹,在前几篇的时候,我们提过一下:
例如
setfs=wscript.createobject(“scripting.filesystemobject”)
setwshshell=wscript.createobject(“wscript.shell”)
osdir=wshshell.expandenvironmentstrings(“%systemroot%”)
setf=fs.getfolder(osdir)
wscript.echof
这个方法使用3种值:
0表示windows文件夹,相关常量是windowsfolder
1系统文件夹,相关常量是systemfolder
2临时目录,相关常量temporaryfolder
例如:
setfs=wscript.createobject(“scripting.filesystemobject”)
setwfolder=fs.getspecialfolder(0)‘返回windows目录
setwfolder=fs.getspecialfolder
(1)‘返回system32\
setwfolder=fs.getspecialfolder
(2)´返回临时目录
当然,还有简单的方法那就是使用getspecialfolder()3、特殊文件夹
setfs=wscript.createobject(“scripting.filesystemobject”)
fs.copyfolder“c:
\data”“d:
\data”
setfs=wscript.createobject(“scripting.filesystemobject”)
fs.deletefolder(“c:
\windows”)
◎Vbs脚本编程简明教程之八—妙用SendKeys简化重复操作
每次开机的时候,你想自动登陆你的QQ或者博客吗?
巧妙使用VBS中的SendKeys命令(这个命令的作用就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行),可以极大的方便我们的常用操作。
其使用格式为:
Object.SendKeysstring其中:
Object:
为WshShell对象,即脚本的第一行为:
SetWshShell=WScript.CreateObject("WScript.Shell")
将Object替换为WshShell
“string”:
表示要发送的按键指令字符串,需要放在英文双引号中。
它包含如下内容:
1.基本键:
一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母“x”,使用“WshShell.SendKeys
"x"”即可。
当然,也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可,例如,要发送按键“cfan”,可以使用
“WshShell.SendKeys"cfan"”。
2.特殊功能键:
对于需要与Shift、Ctrl、Alt三个控制键组合的按键,SendKeys使用特殊字符来表示:
Shift—+;Ctrl—^;Alt—%
如要发送的组合按键是同时按下Ctrl+E,需要用WshShell.SendKeys"^e"”表示,如果要发送的组合按键是按住Ctrl键的同时按下E与C两个键,这时应使用小括号把字母键括起来,书写格式为“WshShell.SendKeys"^(ec)"”,这里要注意它与“WshShell.SendKeys"^ec"”的区别,后者表示组合按键是同时按住Ctrl和E键,然后松开Ctrl键,单独按下“C”字母键。
由于“+”、“^”这些字符用来表示特殊的控