fengdishudu444 发表于 2012-6-4 13:21:11

QTP是否能够直接把外部VBS文件路径写入到Resource中，求教

如题：QTP是否能够直接把外部VBS文件路径写入到Resource中，就像用PathFinder.insert 写入相对路径一样？

Shawn_xiao 发表于 2012-6-4 17:33:49

executefile 但是不建议用 不方便debug

fengdishudu444 发表于 2012-6-5 10:28:48

回复 2# Shawn_xiao


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

黑羽祭 发表于 2012-6-5 10:59:01

回复 1# fengdishudu444 为什么要这么使用？
如果是怕脚本复制到别的电脑上找不到VBS文件，可以使用相对路径

fengdishudu444 发表于 2012-6-5 15:49:28

回复 4# 黑羽祭

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

fengdishudu444 发表于 2012-6-5 15:52:38

回复 4# 黑羽祭

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

正在更新 发表于 2012-6-6 09:57:42

回复 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:57

executefile 别用这个，容易出错，，，

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

fengdishudu444 发表于 2012-6-11 15:34:27

回复 7# 正在更新


    非常感谢“正在更新”，:lol   你给的代码很好用:lol

bichenlu 发表于 2012-6-12 12:54:21

为什么不用setting直接设置呢

fengdishudu444 发表于 2012-6-12 16:31:32

回复 10# bichenlu

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

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

正在更新 发表于 2012-6-12 20:08:41

实际项目中 手动操作QTP设置的过程 一般都要代码化实现，如果贵司将QTP集成到了自动化框架中的的话，代码初始化QTP的设置 是必然的！

shanfeng1419 发表于 2012-6-13 08:57:53

学习了

fengdishudu444 发表于 2012-6-15 17:17:30

回复 12# 正在更新


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

026300 发表于 2012-6-18 09:01:29

可以
页: [1]
查看完整版本: QTP是否能够直接把外部VBS文件路径写入到Resource中，求教