QTP加载vbs文件不成功

gdutlzl

一直使用以下方法来加载vbs文件的：
Set bj = CreateObject("QuickTest.Application")
Set qtLibraries = obj.Test.Settings.Resources.Libraries ' Get the libraries collection object
If qtLibraries.Find("C:/wally.vbs") = -1 Then
   qtLibraries.Add "C:/wally.vbs", 1
End If

但今天不知道怎么了，vbs文件加载不成功，里面的函数都调用不了了。
用qtLibraries.Find("C:/wally.vbs")的方法校验了两个vbs文件，返回值一个是3，一个是1。不知道返回值3和1代表什么，请高手指导一下。我只查到了问题所在，但却不知道怎么解决，非常感谢！

ermine

回复 1# gdutlzl

1. 先试试手动启动QTP， 添加VBS到setting，看看有没有报错，能不能调函数
2. 用vbs启动QTP后，Debug暂停，看看setting里面有没有。

返回的3和1，是你setting里面文件的位置顺序，可以手动去调，看看变化。

qtLibraries.Add "C:/wally.vbs", 1可以改为
qtLibraries.Add "C:/wally.vbs"， 系统默认加到最后一个。

gdutlzl

你说的很对，我后来也查出来返回值1和3的意思，但又说明了另外一个问题，既然vbs文件加载成功了，为什么调用里面的函数却不成功呢？我上午用这个框架还好好的，下午不知道什么原因就这样了，所以能不能给点解决这个问题的建议呢？可能是那里出了问题呢？非常感谢！！

gdutlzl

既然加载vbs文件成功了，为什么不能调用里面的函数呢？我上午用这个框架还好好的，下午不知道什么原因就出了这个问题，能提供一些解决这个问题的方法吗？非常感谢！

gdutlzl

既然加载vbs文件成功了，为什么不能调用里面的函数呢？我上午用这个框架还好好的，下午不知道什么原因就出了这个问题，能提供一些解决这个问题的方法吗？非常感谢！

gdutlzl

我在里面写了一个函数，这个函数打印“123”，连这么简单的一个函数都没有被调用。这些VBS文件用手工加载也是成功的，所以很是纳闷啊...

ermine

回复 6# gdutlzl

应该用\，而不是/ ,  “C:\wally.vbs”

如果你手工加载是OK的，看看路径是否和你VBS文件里一致

gdutlzl

这个问题我解决了，跟QTP和框架没有关系。出这个问题前后，我电脑的变化是我装了别人发给我的LR，可能是这个LR是非正版的，导致了一些冲突（也有可能是HP有意为之）。问题的解决方法是我把LR卸载了，为了保险起见，我把QTP也重装了一下，问题自然就消失了。谢谢版主的热情帮助！！！