UFT demo（一）

此程序使用dp方式，调用外部函数，最终结果入Excel

 1 Option explicit
 2 systemutil.Run "C:Program Files (x86)HPUnified Functional Testingsamplesflightappflight4b"
 3 ExecuteFile "C:Auto-Flightobject.vbs"
 4 ExecuteFile "C:Auto-Flightfunction.vbs"
 5 Dim WarnStaticLogin,WarnStaticPassword,CheckValue,ExpectValue,ActualValue
 6 
 7 '错误的用户名，正确的密码
 8 With Dialog(MyDialog)
 9     .WinEdit(MyName).Set ReadExcel("C:Auto-Flight	estCases.xls","TestCases",4,5)
10     .WinEdit(MyPwd).Set ReadExcel("C:Auto-Flight	estCases.xls","TestCases",4,6)
11     .WinButton(MyButton).Click
12 End With
13 WarnStaticLogin = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_login).GetROProperty("regexpwndtitle")
14 If WarnStaticLogin = "Agent name must be at least 4 characters long." Then
15     CheckValue = "Agent name must be at least 4 characters long."
16     Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",4,8)
17     ExpectValue = ReadExcel("C:Auto-Flight	estCases.xls","TestCases",4,7)
18     ActualValue = ReadExcel("C:Auto-Flight	estCases.xls","TestCases",4,8)
19     If ExpectValue = ActualValue Then
20         CheckValue = "Pass"
21             Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",4,9)
22         else 
23             CheckValue = "Fail"
24             Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",4,9)
25     End If
26     Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
27 else
28     ExitTest
29 End If
30 
31 '正确的用户名，错误的密码
32 wait 5
33 With Dialog(MyDialog)
34     .WinEdit(MyName).Set ReadExcel("C:Auto-Flight	estCases.xls","TestCases",5,5)
35     .WinEdit(MyPwd).Set ReadExcel("C:Auto-Flight	estCases.xls","TestCases",5,6)
36     .WinButton(MyButton).Click
37 End With
38 WarnStaticPassword = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_password).GetROProperty("regexpwndtitle")
39 If WarnStaticPassword = "Password must be at least 4 characters long" Then
40     CheckValue = "Password must be at least 4 characters long"
41     Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",5,8)
42     ExpectValue = ReadExcel("C:Auto-Flight	estCases.xls","TestCases",5,7)
43     ActualValue = ReadExcel("C:Auto-Flight	estCases.xls","TestCases",5,8)
44     If ExpectValue = ActualValue Then
45         CheckValue = "Pass"
46             Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",5,9)
47         else
48             CheckValue = "Fail"
49             Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",5,9)
50         End If
51     Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
52 else
53     ExitTest
54 End If
55 
56 
57 '正确的用户名、密码
58 wait 5
59 With Dialog(MyDialog)
60     .WinEdit(MyName).Set ReadExcel("C:Auto-Flight	estCases.xls","TestCases",3,5)
61     .WinEdit(MyPwd).Set ReadExcel("C:Auto-Flight	estCases.xls","TestCases",3,6)
62     .WinButton(HelpButton).Click
63     .Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
64     .WinButton(MyButton).Click
65 End With
66 If  Window(MyWindow).Exist(5) Then
67     CheckValue = "成功登录"
68     Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",3,8)
69     ExpectValue = ReadExcel("C:Auto-Flight	estCases.xls","TestCases",3,7)
70     ActualValue = ReadExcel("C:Auto-Flight	estCases.xls","TestCases",3,8)
71     If ExpectValue = ActualValue Then
72         CheckValue = "Pass"
73             Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",3,9)
74         else
75             CheckValue = "Fail"
76             Call DoExcel ("C:Auto-Flight	estCases.xls","TestCases",3,9)
77         End if
78     Window(MyWindow).WinMenu(MyMenu).Select "File;Exit"
79 else
80     ExitTest
81 End If

调用声明函数object

 1 Option Explicit
 2 Dim MyDialog,MyName,MyPwd,MyButton,MyWindow,MyMenu,Flight_Reservations_Dialog,WarnStatic_login,WarnStatic_password,ConfirmButton,CancelButton,HelpButton
 3 Set MyDialog = Description.Create()
 4         MyDialog("text").value="Login"
 5 Set MyName = Description.Create()
 6         MyName("nativeclass").value = "Edit"
 7         MyName("attached text").value = "Agent Name:"
 8 Set MyPwd = Description.Create()
 9         MyPwd("nativeclass").value = "Edit"
10         MyPwd("attached text").value= "Password:"
11 Set MyButton = Description.Create()
12         MyButton("text").value = "OK"
13         MyButton("nativeclass").value="Button"
14 Set MyWindow = Description.Create()
15         MyWindow("regexpwndtitle").value = "Flight Reservation"
16 Set MyMenu = Description.Create()
17         MyMenu("menuobjtype").value = "2"
18 Set Flight_Reservations_Dialog = Description.Create()
19         Flight_Reservations_Dialog("text").value = "Flight Reservations"
20         Flight_Reservations_Dialog("regexpwndtitle").value = "Flight Reservations"
21 Set WarnStatic_login = Description.Create()
22         WarnStatic_login("nativeclass").value = "Static"
23         WarnStatic_login("text").value = "Agent name must be at least 4 characters long."
24 Set WarnStatic_password = Description.Create()
25         WarnStatic_password("nativeclass").value = "Static"
26         WarnStatic_password("text").value = "Password must be at least 4 characters long"
27 Set CancelButton = Description.Create()
28         CancelButton("regexpwndtitle").value = "Cancel"
29 Set ConfirmButton = Description.Create()
30         ConfirmButton("regexpwndtitle").value = "确定"
31 Set HelpButton = Description.Create()
32         HelpButton("regexpwndtitle").value = "Help"

调用方法function

'***********************
'定义读取excel函数
'函数:ReadExcel
'函数作用:操作Excel（读）
'修改时间:
'修改原因:
'修改者:hx
'***********************
Function ReadExcel(filepath,sheetname,x,y)
   Dim ObjExcel,SrcExcel,ExcValue
   Set ObjExcel = CreateObject("Excel.Application")
   ObjExcel.Visible = false
   Set SrcExcel = ObjExcel.Workbooks.Open(filepath)
   SrcExcel.Worksheets(sheetname).Activate
   ExcValue = SrcExcel.Worksheets(sheetname).Cells(x,y).Value
   ReadExcel = ExcValue
   ObjExcel.DisplayAlerts = false
   ObjExcel.Save
   ObjExcel.Quit
   Set ObjExcel = nothing
   Set SrcExcel = nothing
End Function
'***********************
'定义读取excel函数
'函数:WriteExcel
'函数作用:操作Excel（写）
'修改时间:
'修改原因:
'修改者:hx
'***********************
Function DoExcel(filepath,sheetname,x,y)
   Dim ObjExcel,SrcExcel
   Set ObjExcel = CreateObject("Excel.Application")
   ObjExcel.Visible = false
   Set SrcExcel = ObjExcel.Workbooks.Open(filepath)
   SrcExcel.Worksheets(sheetname).Activate
   SrcExcel.Worksheets(sheetname).Cells(x,y).Value = CheckValue
   ObjExcel.DisplayAlerts = false
   ObjExcel.Save
   ObjExcel.Quit
   Set ObjExcel = nothing
   Set SrcExcel = nothing
End Function

结果进入Excel，判断pass 或者 fail

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/drnmmond/p/7235415.html