标签：脚本 vbs 调用 QTP 外部 步骤 VBS fun
外部VBS的调用
2013-12-19 23:36 狂师 阅读(2171) 评论(0) 编辑 收藏
一．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的， 运行脚本时会提示“找不到文件”。
标签：脚本,vbs,调用,QTP,外部,步骤,VBS,fun 来源： https://blog.51cto.com/u_13865122/2728008
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。