UFT demo（二）

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

commonlib存放自定义函数

testcase存放测试用例

testlog存在测试日志

testobject存放对象库

testpic存放错误截图

testscript存放测试脚本

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

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

Dim qtapp
Set qtapp=CreateObject("quicktest.application")
qtapp.Launch
qtapp.Visible=True
qtapp.Open "C:AutoTest	estscriptFlight-Demo"
qtapp.Test.Run
qtapp.Quit
Set qtapp = nothing

控制脚本，脚本主体框架：

Option explicit
'1、目录生成
Dim testpath,testpaths
testpath = Environment.Value("TestDir")
testpaths = split(testpath,"testscript")
ExecuteFile testpaths(0)&"commonlibcreatefolder.vbs"
createfolder testpaths(0)&"testlog"
createfolder testpaths(0)&"testpic"

'2、测试用例加载
'判断测试用例是否存在
ExecuteFile testpaths(0)&"commonlibloadcase.vbs"
loadcase testpaths(0)&"testcase	estCases.xls","Login"

'3、生成日志
ExecuteFile testpaths(0)&"commonliblogPrint.vbs"
ExecuteFile testpaths(0)&"commonlibErrHandle.vbs"

'4、应用程序启动
logPrint("开始进入功能：flight登陆功能")
ExecuteFile testpaths(0)&"commonlibOpenApp.vbs"
OpenApp "flight4b.exe","C:Program Files (x86)HPUnified Functional Testingsamplesflightappflight4b",""

'5、测试对象加载(如果有对象库，则通过loadtsr方法加载）
ExecuteFile testpaths(0)&"commonlibloadtsr.vbs"
ExecuteFile testpaths(0)&"testscriptlogin.vbs"

测试脚本主体：

Dim WarnStaticLogin,WarnStaticPassword,CheckValue,ExpectValue,ActualValue
ExecuteFile testpaths(0)&"commonlibobject.vbs"
ExecuteFile testpaths(0)&"commonlibfunction.vbs"


logPrint("执行登陆条件：错误的用户名，正确的密码")
With Dialog(MyDialog)
    .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",4,5)
    .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",4,6)
    .WinButton(MyButton).Click
End With
WarnStaticLogin = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_login).GetROProperty("regexpwndtitle")
If WarnStaticLogin = "Agent name must be at least 4 characters long." Then
    CheckValue = "Agent name must be at least 4 characters long."
    Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",4,8)
    ExpectValue = ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",4,7)
    ActualValue = ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",4,8)
    If ExpectValue = ActualValue Then
        CheckValue = "Pass"
            Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",4,9)
        else 
            CheckValue = "Fail"
            Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",4,9)
    End If
    Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
    
    ExitTest
End If

logPrint("执行登陆条件：正确的用户名，错误的密码")
wait 5
With Dialog(MyDialog)
    .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",5,5)
    .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",5,6)
    .WinButton(MyButton).Click
End With
WarnStaticPassword = Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).Static(WarnStatic_password).GetROProperty("regexpwndtitle")
If WarnStaticPassword = "Password must be at least 4 characters long" Then
    CheckValue = "Password must be at least 4 characters long"
    Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",5,8)
    ExpectValue = ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",5,7)
    ActualValue = ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",5,8)
    If ExpectValue = ActualValue Then
        CheckValue = "Pass"
            Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",5,9)
        else
            CheckValue = "Fail"
            Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",5,9)
        End If
    Dialog(MyDialog).Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click    
else
    ExitTest
End If


logPrint("执行登陆条件：正确的用户名、密码")
wait 5
With Dialog(MyDialog)
    .WinEdit(MyName).Set ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",3,5)
    .WinEdit(MyPwd).Set ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",3,6)
    .WinButton(HelpButton).Click
    .Dialog(Flight_Reservations_Dialog).WinButton(ConfirmButton).Click
    .WinButton(MyButton).Click
End With
If  Window(MyWindow).Exist(5) Then
    CheckValue = "成功登录"
    Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",3,8)
    ExpectValue = ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",3,7)
    ActualValue = ReadExcel(testpaths(0)&"testcase	estCases.xls","Login",3,8)
    If ExpectValue = ActualValue Then
        CheckValue = "Pass"
            Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",3,9)
        else
            CheckValue = "Fail"
            Call DoExcel (testpaths(0)&"testcase	estCases.xls","Login",3,9)
        End if
    Window(MyWindow).WinMenu(MyMenu).Select "File;Exit"
else
    ExitTest
End If
logPrint("登陆用例执行完毕")

createfolder.vbs创建文件夹：

Option Explicit
Sub createfolder(folderpath)
Dim fso,f
Dim blfolderexist
Set fso = CreateObject("scripting.filesystemobject")
blfolderexist =  fso.FolderExists(folderpath)
If blfolderexist Then
    MsgBox folderpath&"已存在"
    fso.DeleteFolder(folderpath)
End If
Set f = fso.CreateFolder(folderpath)
Set fso = Nothing
End Sub

ErrHandle.vbs日志：

Public Function ErrHandle()
    If Err.Number <> 0 Then
            logPrint "Error Num: " & Err.Number & "; Error Src: " & Err.Source & "; Error Desc: " & Err.Description
            Err.Clear
    End If
End Function

loadcase.vbs确定测试用例的存在：

Sub loadcase(casepath,casename)
    Dim fso,blcaseexist
    Set fso = CreateObject("scripting.filesystemobject")
    blcaseexist = fso.FileExists(testpaths(0)&"testcase	estCases.xls")
    If blcaseexist Then
       DataTable.ImportSheet casepath,"Login","login"
    Else
       Reporter.ReportEvent micFail,"Login Test","测试用例不存在"
       ExitTest
    End If
    Set fso = nothing
End Sub

loadtsr.vbs调用对象库：

Sub loadtsr(tsrname)
    RepositoriesCollection.RemoveAll
    RepositoriesCollection.Add tsrname
End Sub

logPrint.vbs日志：

Public Function logPrint(ByVal logMessage)
    Dim fso,logFile
    Set fso=CreateObject("scripting.filesystemobject")
    Set logFile = fso.OpenTextFile(testpaths(0)&"testlog
untime.log",8,true)
    logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & logMessage)
    logFile.Close
End Function

OpenApp.vbs打开应用程序，之所以不用systemutil.Run，是为了方便把已打开的程序关闭：

Sub OpenApp(AppName,AppPath,AppParam)
    Dim gobj,wsh,proc
    Dim i
    On error resume next
    Set gobj=GetObject("winmgmts:\.
ootcimv2")
    Set wsh=CreateObject("wscript.shell")
    Set proc=gobj.execquery("select * from win32_process where name="&"'"&AppName&"'")
    For each i in proc
        systemutil.CloseProcessByName(AppName)
        wscript.quit
    Next
    systemutil.Run AppPath,AppParam
End Sub

function.vbs对excel操作： 

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

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

 object.vbs DP编程：

Option Explicit
Dim MyDialog,MyName,MyPwd,MyButton,MyWindow,MyMenu,Flight_Reservations_Dialog,WarnStatic_login,WarnStatic_password,ConfirmButton,CancelButton,HelpButton
Set MyDialog = Description.Create()
        MyDialog("text").value="Login"
Set MyName = Description.Create()
        MyName("nativeclass").value = "Edit"
        MyName("attached text").value = "Agent Name:"
Set MyPwd = Description.Create()
        MyPwd("nativeclass").value = "Edit"
        MyPwd("attached text").value= "Password:"
Set MyButton = Description.Create()
        MyButton("text").value = "OK"
        MyButton("nativeclass").value="Button"
Set MyWindow = Description.Create()
        MyWindow("regexpwndtitle").value = "Flight Reservation"
Set MyMenu = Description.Create()
        MyMenu("menuobjtype").value = "2"
Set Flight_Reservations_Dialog = Description.Create()
        Flight_Reservations_Dialog("text").value = "Flight Reservations"
        Flight_Reservations_Dialog("regexpwndtitle").value = "Flight Reservations"
Set WarnStatic_login = Description.Create()
        WarnStatic_login("nativeclass").value = "Static"
        WarnStatic_login("text").value = "Agent name must be at least 4 characters long."
Set WarnStatic_password = Description.Create()
        WarnStatic_password("nativeclass").value = "Static"
        WarnStatic_password("text").value = "Password must be at least 4 characters long"
Set CancelButton = Description.Create()
        CancelButton("regexpwndtitle").value = "Cancel"
Set ConfirmButton = Description.Create()
        ConfirmButton("regexpwndtitle").value = "确定"
Set HelpButton = Description.Create()
        HelpButton("regexpwndtitle").value = "Help"