UFT开发实例：一个完整的测试框架源码

初心若雪_001

一、已实现的功能列表

框架已经实现的功能如下：

1、脚本数据分离

2、异常截图并关联截图

3、无界面启动UFT

4、定时启动UFT

5、步骤日志跟踪

6、数据库检查点验证

7、测试结果发送

8、测试报告生成

9、场景恢复

10、脚本执行速度控制

11、系统资源监控，如Cpu峰值监控（基于UFT）

12、执行过程录制回放（基于UFT）

二、框架部分关键代码

1、必须导入的驱动脚本，用户全局环境控制

1. Call driver()
   
2. 
   
3. Function driver()
   
4.         '初始化环境，包括获得project所在的本地目录。
   
5.         projectPath = getProjectPath()
   
6.         sourceDataFile = projectPath&"\TEST.xls"
   
7.         sourceDataSheet = "Sheet1"
   
8.        
   
9.         Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
   
10.         Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
    
11.         Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
    
12.        
    
13.         Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
    
14.         qtApp.Launch ' Start QuickTest
    
15.         qtApp.Visible = True ' Make the QuickTest application visible
    
16.         ' Set QuickTest run options
    
17.         qtApp.Options.Run.CaptureForTestResults = "OnError"
    
18.         'qtApp.Options.Run.RunMode = "Fast"
    
19.         qtApp.Options.Run.ViewResults = False
    
20.        
    
21.         ' 打开入口的测试脚本，并且加载testCase的脚本
    
22.         qtApp.Open projectPath&"\理赔系统流程", False, False  ' 打开入口的测试脚本,可写，不保存
    
23.         Set qtTest = qtApp.Test
    
24.        
    
25.                 ' set run settings for the test
    
26.                 Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
    
27.                 qtResultsOpt.ResultsLocation = projectPath&"\result" '运行结果保存到临时文件夹中
    
28.                 qtTest.Run qtResultsOpt, True
    

复制代码

3、脚本代码片段，完整代码请见工程源码

1. option explicit  '规范声明
   
2. 
   
3. '定义变量
   
4. Dim ProjectDir '根目录
   
5. Dim TestSetExcelFile '测试用例Excel路径
   
6. Dim vbprpDuserUserCode1'定义用户名
   
7. Dim vbprpDuserUserCode2'定义用户名
   
8. Dim vbprpDuserPassword'定义密码
   
9. Dim row_count ' Global中用例行数
   
10. Dim rownum ' 当前运行的行
    
11. Dim sqlstrm 'sql查询变量
    
12. Dim keyname '数据库字段
    
13. Dim TestCasesFile
    
14. Dim SheetNameExcel
    
15. Dim isRun
    
16. Dim StartTime
    
17. Dim EndTime
    
18. Dim inRespTime
    
19. Dim n '定义循环变量
    
20. Dim vbprpNRegistReportorName1'定义客户名
    
21. Dim vbprpNRegistReportorName'定义客户姓名
    
22. Dim vbprpNRegistDamageAddress'定义出险地点
    
23. Dim vbprpNRegistDamageCourse'定义出险过程
    
24. Dim vbprpNRegistCarDriverPhoneNumber'定义客户联系方式
    
25. Dim vbprpNRegistCarDrivingLicenseNo'客户证件号
    
26. Dim vbprpNRegistCarDrivingLicenseNo2'三者证件号
    
27. Dim vbprpNRegistCarDriverPhoneNumber2'三者联系方式
    
28. Dim vbprpNRegistCarReportLoss'定义报损金额
    
29. Dim vbBAOANNum1'定义商业险报案号
    
30. Dim vbBAOANNum2'定义交强险报案号
    
31. Dim vbJIEANNum
    
32. Dim vbJIEANNum1
    
33. Dim vbBAODANNum1'定义保单号
    
34. Dim vbBAODANNum2
    
35. Dim vbOutHospDate
    
36. Dim vbAccountCode
    
37. Dim accountcode
    
38. Dim vbSHUNum'计算书号
    
39. Dim vbPEIANNum'赔案号
    
40. Dim vbSHUNum1
    
41. Dim vbPEIANNum1
    
42. Dim vbSHIGUNum'定义事故号
    
43. Dim vbscheduleDeptCode'定义客户二账户名
    
44. Dim vbLicenseNo'定义车牌号
    
45. Dim JBYXSJ'定义日期
    
46. 
    
47. '参数赋值
    
48. 
    
49. 
    
50. '定义项目所在的根目录
    
51. ProjectDir = getParentFolderPath(Environment.Value("TestDir")) '项目所在的根目录，
    
52. 'msgbox ProjectDir
    
53. Extern.Declare micVoid,"capture",ProjectDir&"CreateBitmap.dll","",micString
    
54. '将用例转化为中间表
    
55. TestCasesFile = ProjectDir&"TEST.xls"   '管理所有测试用例的Excel文件的路径
    
56. 'msgbox TestCasesFile
    
57. SheetNameExcel = "Sheet1"
    
58. 
    
59. Call carinsured()
    
60. 
    
61. Function carinsured()
    
62. 
    
63. JBYXSJ = FormateDateTime(date(),"3")
    
64. vbOutHospDate = date+3
    
65. Call DataTable.ImportSheet(TestCasesFile,"Sheet1","Global")
    
66. row_count = DataTable.GetSheet("Global").GetRowCount'得到用例中总行数
    
67. 'msgbox row_count
    
68. '此处添加循环
    
69. For  n = 1 to row_count
    
70. 
    
71. DataTable.GetSheet("Global").SetCurrentRow(n)
    
72. 
    
73. datatable.Export  ProjectDir&JBYXSJ&"流程验证结果.xls"  '导出运行结果，生成result.xls文件
    
74. 
    
75. '导入中间表
    
76. TestSetExcelFile = ProjectDir&JBYXSJ&"流程验证结果.xls"   '管理所有测试用例的Excel文件的路径
    
77. Call DataTable.ImportSheet(TestSetExcelFile,"Global","Global")
    
78. 'row_count = DataTable.GetSheet("Global").GetRowCount'得到用例中总行数
    
79. isRun=DataTable.Value("RUN", "Global")
    
80. If isRun = "Y"  Then
    
81. 
    
82.     rowNum = datatable.GetSheet("Global").GetCurrentRow
    
83. ' msgbox rowNum
    
84. 
    
85. vbprpDuserUserCode1 = DataTable("帐号一","Global")
    
86. vbprpDuserUserCode2 = DataTable("帐号二","Global")
    
87. vbprpDuserPassword = DataTable("用户密码","Global")
    
88. vbprpNRegistReportorName = DataTable("客户姓名","Global")
    
89. vbprpNRegistDamageAddress = DataTable("出险地点","Global")
    
90. vbprpNRegistDamageCourse = DataTable("出险经过","Global")
    
91. vbprpNRegistCarDriverPhoneNumber = DataTable("客户联系电话","Global")
    
92. vbprpNRegistCarDrivingLicenseNo = DataTable("客户证件号码","Global")
    
93. vbLicenseNo = DataTable("客户车牌号","Global")
    
94. vbprpNRegistCarReportLoss = DataTable("报损金额","Global")
    
95. 
    
96. ......    '调用用户自定义的逻辑代码
    
97. 
    
98. DataTable("流程是否通过") = "是"
    
99. DataTable("备注") = "流程全部通过"
    
100. datatable.ExportSheet  ProjectDir&JBYXSJ&"流程验证结果.xls","Global"  '导出运行结果，生成result.xls文件
     
101. 
     
102. closeie()
     
103. End If
     
104. 
     
105. Next
     
106. 
     
107. End FUNCTION

复制代码

Miss_love

支持分享