UFT demo（二）

Mario洁

利用自动化框架对demo进行修改，框架分为6个部分，分别为commonlib，testcase，testlog，testo
bject，testpic，testscript

commonlib存放自定义函数

testcase存放测试用例

testlog存在测试日志

testobject存放对象库

testpic存放错误截图

testscript存放测试脚本

目的在于把测试脚本分拆，用函数封装主要功能，框架总体积缩小，方便自动化测试，脚本如下：

外部运行脚本启动UFT，自动执行用例：

1. 1 Dim qtapp
   
2. 2 Set qtapp=CreateObject("quicktest.application")
   
3. 3 qtapp.Launch
   
4. 4 qtapp.Visible=True
   
5. 5 qtapp.Open "C:\AutoTest\testscript\Flight-Demo"
   
6. 6 qtapp.Test.Run
   
7. 7 qtapp.Quit
   
8. 8 Set qtapp = nothing
   
9. 复制代码
   
10. 控制脚本，脚本主体框架：
    
11. 
    
12. 复制代码
    
13. 1 Option explicit
    
14. 2 '1、目录生成
    
15. 3 Dim testpath,testpaths
    
16. 4 testpath = Environment.Value("TestDir")
    
17. 5 testpaths = split(testpath,"testscript")
    
18. 6 ExecuteFile testpaths(0)&"commonlib\createfolder.vbs"
    
19. 7 createfolder testpaths(0)&"testlog"
    
20. 8 createfolder testpaths(0)&"testpic"
    
21. 9
    
22. 10 '2、测试用例加载
    
23. 11 '判断测试用例是否存在
    
24. 12 ExecuteFile testpaths(0)&"commonlib\loadcase.vbs"
    
25. 13 loadcase testpaths(0)&"testcase\testCases.xls","Login"
    
26. 14
    
27. 15 '3、生成日志
    
28. 16 ExecuteFile testpaths(0)&"commonlib\logPrint.vbs"
    
29. 17 ExecuteFile testpaths(0)&"commonlib\ErrHandle.vbs"
    
30. 18
    
31. 19 '4、应用程序启动
    
32. 20 logPrint("开始进入功能：flight登陆功能")
    
33. 21 ExecuteFile testpaths(0)&"commonlib\OpenApp.vbs"
    
34. 22 OpenApp "flight4b.exe","C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4b",""
    
35. 23
    
36. 24 '5、测试对象加载(如果有对象库，则通过loadtsr方法加载）
    
37. 25 ExecuteFile testpaths(0)&"commonlib\loadtsr.vbs"
    
38. 26 ExecuteFile testpaths(0)&"testscript\login.vbs"
    
39. 复制代码
    
40. 测试脚本主体：
    
41. 
    
42. 复制代码
    
43. 1 Dim WarnStaticLogin,WarnStaticPassword,CheckValue,ExpectValue,ActualValue
    
44. 2 ExecuteFile testpaths(0)&"commonlib\object.vbs"
    
45. 3 ExecuteFile testpaths(0)&"commonlib\function.vbs"
    
46. 4
    
47. 5
    
48. 6 logPrint("执行登陆条件：错误的用户名，正确的密码")
    
49. 7 With Dialog(MyDialog)
    
50. 8     .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,5)
    
51. 9     .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,6)
    
52. 10     .WinButton(MyButton).Click
    
53. 11 End With
    
54. 12 WarnStaticLogin = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_login).GetROProperty("regexpwndtitle")
    
55. 13 If WarnStaticLogin = "Agent name must be at least 4 characters long." Then
    
56. 14     CheckValue = "Agent name must be at least 4 characters long."
    
57. 15     Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",4,8)
    
58. 16     ExpectValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,7)
    
59. 17     ActualValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",4,8)
    
60. 18     If ExpectValue = ActualValue Then
    
61. 19         CheckValue = "Pass"
    
62. 20             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",4,9)
    
63. 21         else
    
64. 22             CheckValue = "Fail"
    
65. 23             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",4,9)
    
66. 24     End If
    
67. 25     Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
    
68. 26     
    
69. 27     ExitTest
    
70. 28 End If
    
71. 29
    
72. 30 logPrint("执行登陆条件：正确的用户名，错误的密码")
    
73. 31 wait 5
    
74. 32 With Dialog(MyDialog)
    
75. 33     .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,5)
    
76. 34     .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,6)
    
77. 35     .WinButton(MyButton).Click
    
78. 36 End With
    
79. 37 WarnStaticPassword = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_password).GetROProperty("regexpwndtitle")
    
80. 38 If WarnStaticPassword = "Password must be at least 4 characters long" Then
    
81. 39     CheckValue = "Password must be at least 4 characters long"
    
82. 40     Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",5,8)
    
83. 41     ExpectValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,7)
    
84. 42     ActualValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",5,8)
    
85. 43     If ExpectValue = ActualValue Then
    
86. 44         CheckValue = "Pass"
    
87. 45             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",5,9)
    
88. 46         else
    
89. 47             CheckValue = "Fail"
    
90. 48             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",5,9)
    
91. 49         End If
    
92. 50     Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click   
    
93. 51 else
    
94. 52     ExitTest
    
95. 53 End If
    
96. 54
    
97. 55
    
98. 56 logPrint("执行登陆条件：正确的用户名、密码")
    
99. 57 wait 5
    
100. 58 With Dialog(MyDialog)
     
101. 59     .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,5)
     
102. 60     .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,6)
     
103. 61     .WinButton(HelpButton).Click
     
104. 62     .Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
     
105. 63     .WinButton(MyButton).Click
     
106. 64 End With
     
107. 65 If  Window(MyWindow).Exist(5) Then
     
108. 66     CheckValue = "成功登录"
     
109. 67     Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",3,8)
     
110. 68     ExpectValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,7)
     
111. 69     ActualValue = ReadExcel(testpaths(0)&"testcase\testCases.xls","Login",3,8)
     
112. 70     If ExpectValue = ActualValue Then
     
113. 71         CheckValue = "Pass"
     
114. 72             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",3,9)
     
115. 73         else
     
116. 74             CheckValue = "Fail"
     
117. 75             Call DoExcel (testpaths(0)&"testcase\testCases.xls","Login",3,9)
     
118. 76         End if
     
119. 77     Window(MyWindow).WinMenu(MyMenu).Select "File;Exit"
     
120. 78 else
     
121. 79     ExitTest
     
122. 80 End If
     
123. 81 logPrint("登陆用例执行完毕")
     
124. 复制代码
     
125. createfolder.vbs创建文件夹：
     
126. 
     
127. 复制代码
     
128. 1 Option Explicit
     
129. 2 Sub createfolder(folderpath)
     
130. 3 Dim fso,f
     
131. 4 Dim blfolderexist
     
132. 5 Set fso = CreateObject("scripting.filesystemobject")
     
133. 6 blfolderexist =  fso.FolderExists(folderpath)
     
134. 7 If blfolderexist Then
     
135. 8     MsgBox folderpath&"已存在"
     
136. 9     fso.DeleteFolder(folderpath)
     
137. 10 End If
     
138. 11 Set f = fso.CreateFolder(folderpath)
     
139. 12 Set fso = Nothing
     
140. 13 End Sub
     
141. 复制代码
     
142. ErrHandle.vbs日志：
     
143. 
     
144. 复制代码
     
145. 1 Public Function ErrHandle()
     
146. 2     If Err.Number <> 0 Then
     
147. 3             logPrint "Error Num: " & Err.Number & "; Error Src: " & Err.Source & "; Error Desc: " & Err.Description
     
148. 4             Err.Clear
     
149. 5     End If
     
150. 6 End Function
     
151. 复制代码
     
152. loadcase.vbs确定测试用例的存在：
     
153. 
     
154. 复制代码
     
155. 1 Sub loadcase(casepath,casename)
     
156. 2     Dim fso,blcaseexist
     
157. 3     Set fso = CreateObject("scripting.filesystemobject")
     
158. 4     blcaseexist = fso.FileExists(testpaths(0)&"testcase\testCases.xls")
     
159. 5     If blcaseexist Then
     
160. 6        DataTable.ImportSheet casepath,"Login","login"
     
161. 7     Else
     
162. 8        Reporter.ReportEvent micFail,"Login Test","测试用例不存在"
     
163. 9        ExitTest
     
164. 10     End If
     
165. 11     Set fso = nothing
     
166. 12 End Sub
     
167. 复制代码
     
168. loadtsr.vbs调用对象库：
     
169. 
     
170. 1 Sub loadtsr(tsrname)
     
171. 2     RepositoriesCollection.RemoveAll
     
172. 3     RepositoriesCollection.Add tsrname
     
173. 4 End Sub
     
174. logPrint.vbs日志：
     
175. 
     
176. 复制代码
     
177. 1 Public Function logPrint(ByVal logMessage)
     
178. 2     Dim fso,logFile
     
179. 3     Set fso=CreateObject("scripting.filesystemobject")
     
180. 4     Set logFile = fso.OpenTextFile(testpaths(0)&"testlog\runtime.log",8,true)
     
181. 5     logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & logMessage)
     
182. 6     logFile.Close
     
183. 7 End Function
     
184. 复制代码
     
185. OpenApp.vbs打开应用程序，之所以不用systemutil.Run，是为了方便把已打开的程序关闭：
     
186. 
     

复制代码

梦想家

学习

Mario洁

1. 复制代码
   
2. 1 Sub OpenApp(AppName,AppPath,AppParam)
   
3. 2 Dim gobj,wsh,proc
   
4. 3 Dim i
   
5. 4 On error resume next
   
6. 5 Set gobj=GetObject("winmgmts:\\.\root\cimv2")
   
7. 6 Set wsh=CreateObject("wscript.shell")
   
8. 7 Set proc=gobj.execquery("select * from win32_process where name="&"'"&AppName&"'")
   
9. 8 For each i in proc
   
10. 9 systemutil.CloseProcessByName(AppName)
    
11. 10 wscript.quit
    
12. 11 Next
    
13. 12 systemutil.Run AppPath,AppParam
    
14. 13 End Sub
    
15. 复制代码
    
16. function.vbs对excel操作：
    
17. 
    
18. 复制代码
    
19. 1 Function ReadExcel(filepath,sheetname,x,y)
    
20. 2 Dim ObjExcel,SrcExcel,ExcValue
    
21. 3 Set ObjExcel = CreateObject("Excel.Application")
    
22. 4 ObjExcel.Visible = false
    
23. 5 Set SrcExcel = ObjExcel.Workbooks.Open(filepath)
    
24. 6 SrcExcel.Worksheets(sheetname).Activate
    
25. 7 ExcValue = SrcExcel.Worksheets(sheetname).Cells(x,y).Value
    
26. 8 ReadExcel = ExcValue
    
27. 9 ObjExcel.DisplayAlerts = false
    
28. 10 ObjExcel.Save
    
29. 11 ObjExcel.Quit
    
30. 12 Set ObjExcel = nothing
    
31. 13 Set SrcExcel = nothing
    
32. 14 End Function
    
33. 15
    
34. 16 Function DoExcel(filepath,sheetname,x,y)
    
35. 17 Dim ObjExcel,SrcExcel
    
36. 18 Set ObjExcel = CreateObject("Excel.Application")
    
37. 19 ObjExcel.Visible = false
    
38. 20 Set SrcExcel = ObjExcel.Workbooks.Open(filepath)
    
39. 21 SrcExcel.Worksheets(sheetname).Activate
    
40. 22 SrcExcel.Worksheets(sheetname).Cells(x,y).Value = CheckValue
    
41. 23 ObjExcel.DisplayAlerts = false
    
42. 24 ObjExcel.Save
    
43. 25 ObjExcel.Quit
    
44. 26 Set ObjExcel = nothing
    
45. 27 Set SrcExcel = nothing
    
46. 28 End Function
    
47. 复制代码
    
48. object.vbs DP编程：
    
49. 
    
50. 复制代码
    
51. 1 Option Explicit
    
52. 2 Dim MyDialog,MyName,MyPwd,MyButton,MyWindow,MyMenu,Flight_Reservations_Dialog,WarnStatic_login,WarnStatic_password,ConfirmButton,CancelButton,HelpButton
    
53. 3 Set MyDialog = Description.Create()
    
54. 4 MyDialog("text").value="Login"
    
55. 5 Set MyName = Description.Create()
    
56. 6 MyName("nativeclass").value = "Edit"
    
57. 7 MyName("attached text").value = "Agent Name:"
    
58. 8 Set MyPwd = Description.Create()
    
59. 9 MyPwd("nativeclass").value = "Edit"
    
60. 10 MyPwd("attached text").value= "Password:"
    
61. 11 Set MyButton = Description.Create()
    
62. 12 MyButton("text").value = "OK"
    
63. 13 MyButton("nativeclass").value="Button"
    
64. 14 Set MyWindow = Description.Create()
    
65. 15 MyWindow("regexpwndtitle").value = "Flight Reservation"
    
66. 16 Set MyMenu = Description.Create()
    
67. 17 MyMenu("menuobjtype").value = "2"
    
68. 18 Set Flight_Reservations_Dialog = Description.Create()
    
69. 19 Flight_Reservations_Dialog("text").value = "Flight Reservations"
    
70. 20 Flight_Reservations_Dialog("regexpwndtitle").value = "Flight Reservations"
    
71. 21 Set WarnStatic_login = Description.Create()
    
72. 22 WarnStatic_login("nativeclass").value = "Static"
    
73. 23 WarnStatic_login("text").value = "Agent name must be at least 4 characters long."
    
74. 24 Set WarnStatic_password = Description.Create()
    
75. 25 WarnStatic_password("nativeclass").value = "Static"
    
76. 26 WarnStatic_password("text").value = "Password must be at least 4 characters long"
    
77. 27 Set CancelButton = Description.Create()
    
78. 28 CancelButton("regexpwndtitle").value = "Cancel"
    
79. 29 Set ConfirmButton = Description.Create()
    
80. 30 ConfirmButton("regexpwndtitle").value = "确定"
    
81. 31 Set HelpButton = Description.Create()
    
82. 32 HelpButton("regexpwndtitle").value = "Help"
    

复制代码