QTP加载外部文件函数，三种方法比较

　　方式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