请教一个qtp问题

ouyangxu

就是我们常在qtp的

file ->setting->resource选项卡中加载*.vbs脚本

有没有办法，直接在qtp脚本中引用这些*.vbs脚本，而不需要向上面那样操作：

下面这样引用不正确。
'引用公共脚本
'ExecuteFile "D:\autospace\aw\登陆.vbs"
'ExecuteFile "D:\autospace\aw\Global表中取列值.vbs"
'ExecuteFile "D:\autospace\aw\打开订单.vbs"

lyscser

1. '如下三个路径中只能保留需要加载的资源，文件格式必须正确，因为函数会加载该目录下所有文件
   
2. Dim frameRoot:frameRoot = "\\XXXXX\share\TestData\XXXX\XXXX子系统"
   
3. 
   
4. '如下两组参数中元素个数必须相等，否则无法执行
   
5. Dim whatToRep:whatToRep = "------------------------------------>,Reporter.ReportEvent 2,End Step,Expected Results,Description,Begin Step,Start recording here..."
   
6. Dim repToWhat:repToWhat = "**********************************************************************************,Report micPass,结束步骤,预期结果,操作描述,开始步骤,脚本操作内容请如下："
   
7. Dim whatToRepArr:whatToRepArr = Split(whatToRep,",")
   
8. Dim repToWhatArr:repToWhatArr = Split(repToWhat,",")
   
9. 
   
10. Set fobjShell = CreateObject("Scripting.Filesystemobject")
    
11. Set QTPApplication = CreateObject("QuickTest.Application")
    
12. QTPApplication.Launch
    
13. QTPApplication.Visible = True
    
14. 
    
15. '脚本运行设置
    
16. QTPApplication.Test.Settings.Run.IterationMode = "rngAll"
    
17. QTPApplication.Test.Settings.Run.ObjectSyncTimeOut = 30000
    
18. QTPApplication.Test.Settings.Run.DisableSmartIdentification = True
    
19. QTPApplication.Test.Settings.Run.OnError = "Stop"
    
20. 
    
21. '参数表设置
    
22. QTPApplication.Test.Settings.Resources.DataTablePath = "<Default>"
    
23. 
    
24. '函数文件移除重新加载
    
25. Set AllFiles = fobjShell.GetFolder(frameRoot & "\Functions Library").Files
    
26. QTPApplication.Test.Settings.Resources.Libraries.RemoveAll
    
27. For Each sFile in AllFiles
    
28.    QTPApplication.Test.Settings.Resources.Libraries.Add(sFile.Path)
    
29. Next
    
30. Set AllFiles = Nothing
    
31. 
    
32. '场景恢复移除重新加载
    
33. Set AllFiles = fobjShell.GetFolder(frameRoot & "\Recovery Senario").Files
    
34. QTPApplication.Test.Settings.Recovery.RemoveAll
    
35. For Each sFile in AllFiles
    
36.    QTPApplication.Test.Settings.Recovery.Add(sFile.Path)
    
37. Next
    
38. Set AllFiles = Nothing
    
39. 
    
40. '配置文件加载
    
41. Set AllFiles = fobjShell.GetFolder(frameRoot & "\Environment").Files
    
42. For Each sFile in AllFiles
    
43.    QTPApplication.Test.Environment.LoadFromFile(sFile.Path)
    
44. Next
    
45. Set AllFiles = Nothing
    
46. 
    
47. '替换QC生成的指定注释内容和格式
    
48. For ainx = 1 to QTPApplication.Test.Actions.Count
    
49.    vbsContent = QTPApplication.Test.Actions.Item(ainx).GetScript
    
50.    For arr = 0 to UBound(whatToRepArr)
    
51.       vbsContent = Replace(vbsContent, whatToRepArr(arr), repToWhatArr(arr))
    
52.    Next
    
53.    vbsContent = Replace(vbsContent, "Quality Center", "Quality Center" & Chr(10))
    
54.    QTPApplication.Test.Actions.Item(ainx).SetScript(vbsContent)
    
55. Next
    
56. 
    
57. '保存测试脚本
    
58. QTPApplication.Test.Save

复制代码

june.diny

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtLibraries 'As QuickTest.TestLibraries ' Declare a test's libraries collection variable
Dim lngPosition

' Open QuickTest
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Launch QuickTest
qtApp.Visible = True ' Set QuickTest to be visible

' Open a test and get its libraries collection
qtApp.Open "C:\Tests\Test1", False, False ' Open a test
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