QTP 的学习1023

Reporter.ReportEvent使用

Reporter.ReportEvent  有四个参数
第一个参数是状态,状态有四种 micPass 通过
                            micFail  失败
                            micDone 完成
                            micWarning 警告
第二个参数是步骤名称

第三个参数是内容描述

第四个参数可有可无 我也没有用过第四个参数呵呵

Msgbox "XXXXXXX"

print "XXXXXXX"

分页功能的测试：

With Browser("Browser").Page("Building List")
 If .Link("class:=nextpage").Exist(2) Then
  print "next page exists!"
    ' Reporter.ReportEvent micpass, "next page exists!","Next"
 'else
  
 End If
    .Link("class:=nextpage").Click
 .Sync
 wait 2
    If .Link("class:=prepage").Exist(2) Then
   'Reporter.ReportEvent micpass , "pre page exists!","Pre"
     print "next page exists!"
 'Else
 
 End If
End With

分页功能测试2

Public Sub Pagination ()
    Reporter.ReportEvent micDone ,"调用 Pagination ()","Start"
 
 intTotal_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=total_page").GetROProperty("innertext")
    msgbox  intTotal_Page
 intCur_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=cur_page").GetROProperty("innertext")
 msgbox  intCur_Page
    If (intTotal_Page=0and intCur_Page=0)or (intTotal_Page=1and intCur_Page=1) Then
   Reporter.ReportEvent micpass ,"分页","没有分页"
  End If
  if  (intCur_Page<intTotal_Page)  then
   Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_go.gif").Click
   end if
  If  (intTotal_Page= intCur_Page) then
   Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_back.gif").Click
   end if
    Reporter.ReportEvent micDone ,"调用 Pagination ()","End"
End Sub