51Testing软件测试论坛

标题: QTP是否能够直接把外部VBS文件路径写入到Resource中，求教 [打印本页]

作者: fengdishudu444 时间: 2012-6-4 13:21
标题: QTP是否能够直接把外部VBS文件路径写入到Resource中，求教
如题：QTP是否能够直接把外部VBS文件路径写入到Resource中，就像用PathFinder.insert 写入相对路径一样？

作者: Shawn_xiao 时间: 2012-6-4 17:33
executefile 但是不建议用不方便debug

作者: fengdishudu444 时间: 2012-6-5 10:28
回复 2# Shawn_xiao

executefile 还是直接调用的外部VBS并没有写入到QTP的resource中，我的意思是直接把外部VBS的路径写入到QTP file-setting-resource中，就好想直接手动在QTP中加载外部VBS一样。不知道是否有方法实现？

作者: 黑羽祭 时间: 2012-6-5 10:59
回复 1# fengdishudu444 为什么要这么使用？
如果是怕脚本复制到别的电脑上找不到VBS文件，可以使用相对路径

作者: fengdishudu444 时间: 2012-6-5 15:49
回复 4# 黑羽祭

不想手动加载vbs文件嘿嘿 excutefile 如2楼所说不方便debug 所以还是想用qtp自带的

作者: fengdishudu444 时间: 2012-6-5 15:52
回复 4# 黑羽祭

不想手动加载vbs文件嘿嘿 excutefile 如2楼所说不方便debug 所以还是想用qtp自带的

作者: 正在更新 时间: 2012-6-6 09:57
回复 1# fengdishudu444

直接给你CODE吧

Dim qtApp
Dim qtLibraries
Dim lngPosition

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True

qtApp.Open "C:\Test", False, False '打开一个测试工程

Set qtLibraries = qtApp.Test.Settings.Resources.Libraries '引用资源库对象

If qtLibraries.Find("C:\FunLib.vbs") = -1 Then '判断预期的资源是否存在并加载

qtLibraries.Add "C:\FunLib.vbs", 1

End If

Set qtLibraries = nothing
Set qtApp = nothing

作者: SexyCat_1113 时间: 2012-6-7 21:12
executefile 别用这个，容易出错，，，

用LoadLibrary，忘记是不是这么拼的，查一下索引就有了，，，

作者: fengdishudu444 时间: 2012-6-11 15:34
回复 7# 正在更新

非常感谢“正在更新”，

你给的代码很好用

作者: bichenlu 时间: 2012-6-12 12:54
为什么不用setting直接设置呢

作者: fengdishudu444 时间: 2012-6-12 16:31
回复 10# bichenlu

脚本多了，总不能挨个去设置吧，换个环境，路径变了的话就要重新去加载。

把7楼的代码封装成个函数，在脚本里直接调用下，那不是省下很多功夫吗？

作者: 正在更新 时间: 2012-6-12 20:08
实际项目中手动操作QTP设置的过程一般都要代码化实现，如果贵司将QTP集成到了自动化框架中的的话，代码初始化QTP的设置是必然的！

作者: shanfeng1419 时间: 2012-6-13 08:57
学习了

作者: fengdishudu444 时间: 2012-6-15 17:17
回复 12# 正在更新

您所说的我已应用到了我们的框架中，非常感谢。在请教一下，这里面所涉及到的方法您是在哪看到的啊？在注册表中吗？

作者: 026300 时间: 2012-6-18 09:01
可以

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)