方式1：Executefile
方式2：加到QTP的Resorece
方式3：ExecuteGlobal方法
在比较之前先简明叙述一下使用方法，以给初学者由浅入深的理解
比如我们有一个函数Terry.vbs放在了C:盘下， 其中有如下函数（获取本机的IP地址）：
| Function GetIPAddr() Set bjWMI = GetObject("winmgmts://./root/cimv2") Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IP In colIP temp = IP.IPAddress(0) Exit For Next GetIPAddr = temp End Function |
方式1的使用方法：
直接在QTP中打：
Executefile "c:\Terry.vbs"
随后就可以引用wally.vbs中的任意函数了，如 msgbox GetIPAddr()
方式2的使用方法：
点击QTP菜单的File->Settings->Resources，之后添加Terry.vbs到QTP的resource中
随后就可以引用Terry.vbs中的任意函数了，如 msgbox GetIPAddr()
方式3的使用方式：
ExecuteGlobal是VBS的函数而非QTP特有的函数，ExecuteGlobal的功能可以引入其它vbs文件的函数，就和C++的include，Java的import一样。使用范例：
dim fso : set fso = createobject("scripting.filesystemobject")
executeglobal fso.opentextfile("c:\Terry.vbs", 1).readall
set fso = nothing
大家可以看到其实它是把Terry.vbs全部读入内存中
随后就可以引用Terry.vbs中的任意函数了，如 msgbox GetIPAddr()
下面是一些我使用中的心得：
方式1：Executefile的好处：
QTP可以使用这个函数方便了自己写语句来引入函数，灵活性非常高
方式1：Executefile的缺点和解决方案：
1.会使得QTP的语句执行的黄色指针工作异常，狂跳
2.Debug很头疼。我以前的上周有一段经历，一个很小的Bug，调试的时候Step into不进正确的函数体，竟然跳到了一行空行。后来这个小Bug竟然足足花了我3整天的时间。这个应该是QTP的Bug，希望它后续的版本可以改进
3.会莫名其妙的执行一些本不应该有的操作，大大降低QTP执行时间效率，之间屏幕在闪，但是不知道在执行些什么。我曾经遇到过这样的情况：任其自然执行，屏幕狂闪，执行了半小时；我单步执行，只花了5分钟执行完毕。可见这会使得原本就受质疑的QTP的Performance更受谴责
解决方案：
以上三点我找不出解决方案，属于Hp的严重Bug还是需要HP来完善
方式2：加到QTP的Resorece的好处：
毕竟是QTP自带的引用外部VBS函数的，非常稳定
方式2：加到QTP的Resorece的缺点和解决方案：
灵活程度大打折扣，经常的情况是使用同一个测试框架对于不同的项目需要引入不同的VBS文件，非常不灵活
解决方案：
不过这也是有方法可以解决的：在外部调用AOM的函数中添加：
| Set bj = CreateObject("QuickTest.Application") Set qtLibraries = obj.Test.Settings.Resources.Libraries ' Get the libraries collection object If qtLibraries.Find("C:\Terry.vbs") = -1 Then qtLibraries.Add "C:\Terry.vbs", 1 End If |
这样子就可以通过外部文件调用QTP对象模型来加载指定的VBS，也可以非常灵活
方式3：ExecuteGlobal方法的优势：
1.自己写代码，非常灵活
2.外部函数由于从内存中读取，避免了I/O，执行速度加快，而且通过这个方法调用其它文件函数非常稳定
方式3：ExecuteGlobal方法的缺点：
1.一下子把可能需要用到的VBS文件全部读入内存，势必会增加内存开销
2.Debug时候Step into不到指定的函数，调试不方便
解决方案：
对于1的解决方案的答案是没有解决方案，因为采取了ExecuteGlobal方法后内存开销增大是不可避免的。但是这点内存对于运行QTP来说并不是个不可承受的内存，微不足道
对于2的解决方案其实可以在需要调试的时候手工加入到QTP专家视图窗口，调试完毕后再采用ExecuteFile调用
事实上如果要我排个序的话我的优先顺序是：
方式2：加到QTP的Resorece >>方式3：ExecuteGlobal>> 方法方式1：Executefile