一．QTP调用外部VBS的方法
加到QTP的Resource中
在QTP菜单中设置， 菜单FileàSettingsàResource，将要加载的VB脚本添加进来。
举例：
步骤1：在D盘下新建一个VBS文件，叫“ test.vbs”，脚本内容如下：
Function fun(a, b)
fun=a+b
End Function
步骤2：在QTP 里新建一个Test， 叫“Test1“，点击菜单FileàSettingsàResource，将要加载的VB脚本“ test.vbs”加进来
步骤3：在脚本里调用这个函数：
msgbox "1+2= “&fun(1,2)
运行结果：
使用QTP函数ExecuteFile
通过ExecuteFile方法将要加载的VBS脚本加载进来。
语法：ExecuteFile “Filename”
参数说明：Filename－是要执行的文件的名称，包括文件路径。最好用绝对路径。
举例：
步骤1：在D盘下新建一个VBS文件，叫“ test.vbs”，脚本内容如下：
Function fun(a, b)
fun=a+b
End Function
步骤2：在QTP里加载这个VBS脚本：
executefile "D:\test.vbs"
步骤3：在脚本里调用这个函数：
msgbox "1+2= “&fun(1,2)
运行结果：
使用VBS函数ExecuteGlobal
ExecuteGlobal是VBS的函数而非QTP特有的函数,，ExecuteGlobal的功能可以引入其它vbs文件的函数
语法：ExecuteGlobal statement
参数说明：statement－可以是一段函数体或一个字符串变量
举例：
步骤1：在D盘下新建一个VBS文件，叫“ test.vbs”，脚本内容如下：
Function fun(a, b)
fun=a+b
End Function
步骤2：在QTP里加载这个VBS脚本：
dim fso : set fso = createobject("scripting.filesystemobject")
executeglobal fso.opentextfile("D:\test.vbs ", 1).readall
set fso = nothing
步骤3：在脚本里调用这个函数：
msgbox "1+2= “&fun(1,2)
运行结果：
3种方法的优缺点
方法一：加到QTP的Resource中。 优点：是QTP自带的引用外部VBS函数的方法，非常稳定，同一个测试脚本的所有action都可以调用；缺点：不够灵活，经常的情况是使用同一个测试框架对于不同的项目需要引入不同的VBS文件。
方法二：使用QTP函数ExecuteFile。优点：灵活性好，方便自己写语句来引入函数；缺点：只能被当前的action调用，不能垮action调用，调试时黄色指针跳动混乱。
方法三：使用VBS函数ExecuteGlobal。优点：1.自己写代码，非常灵活
2.外部函数由于从内存中读取，避免了I/O，执行速度加快，而且通过这个方法调用其它文件函数非常稳定；缺点：一下子把可能需要用到的VBS文件全部读入内存，势必会增加内存开销。
实践
分别以导入文件的方式和使用ExecuteFile的方式关闭所有的浏览器和记事本
导入文件的方式
步骤1：新建脚本文件，另存为scritp.vbs
脚本如下：
Sub CloseIE()
systemutil.CloseProcessByName("IEXPLORE.EXE")
End Sub
Sub CloseNotepad()
systemutil.CloseProcessByName("Notepad.exe")
End Sub
File-->Settings-->Resources在“Associated function libraries”
步骤二：导入该文件
可以使用绝对路径，也可以使用相对路径，建议使用相对路径，如下图
步骤三：在QTP的专家视图中输入如下语句，执行，发现QTP把所有的浏览器和记事本都关闭了。
CloseIE()
CloseNotepad()
ExecuteFile的方式
步骤一：同上
步骤二：
executefile "..\script.vbs"
CloseIE()
CloseNotepad()
总结
1 在写VBS脚本时，为了避免语法错误.可以先在QTP里编写脚本,运行通过了,再保存成外部VBS脚本。
2 新建VBS脚本时，先新建一个文本文件，再将其后缀改成.VBS，注意，要先将文件的扩展名显示出来：工具à文件夹选项à查看， 把“隐藏已知文件类型的扩展名 ”的勾去掉。
否则， 文件的类型还是.txt的， 运行脚本时会提示“找不到文件”。
7260
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
