如何用代码来实现类似Resource中导入外部vbs库的功能？

linglong

也就是我想动态的导入外部的vbs库，如何实现？

注 不想使用

Set qtLibraries = qtApp.Test.Settings.Resources.Libraries ' Get the libraries collection object

' Add Utilities.vbs if it's not in the collection
If qtLibraries.Find("C:\Utilities.vbs") = -1 Then ' If the library cannot be found in the collection
    qtLibraries.Add "C:\Utilities.vbs", 1 ' Add the library to the collection
End If


而想脱离QTP环境， 例如只有两个vbs脚本，运行其中的一个，在其中执行另一个脚本中的函数

[ 本帖最后由 linglong 于 2006-5-12 10:19 编辑 ]

我要做SQAD

你可以使用:
ExecuteFile "MyFuctions.vbs"

linglong

我是想脱离QTP 环境， ExecuteFile 应该没有脱离QTP环境吧

还有 即使我用ExecuteFile 来导入外部函数库，可是怎样卸载掉啊    没找到类似UnExecuteFile 的函数

michaelyung

既然脱离QTP，那这个问题也就专属于VBS语言的问题了。

lin85210

这样做有意义么？为了释放点内存？

kakamissyou

我认为在QTP中不需要。sometimes需要.

但只应用在特殊的场合。如一个framework中还要借助其它部分才能工作。

而这个部分又通常是多个vbs协作。

解决的办法是：
1.如果要在B在用A中的方法或者变量的话，就把A当作一个文件Open,再Read

进来就可以。

2.用一个工具把任何一个vbs封装成类型库，这样就可以随便你用啦。

具体方法在这个哥们的博客里找：

http://hi.baidu.com/myvbscript