练习《精通QTP》课后题-web控件综合篇

通过学习《精通QTP-自动化测试技术领航》课后练习

工具：QTP

需求分析： 1、进入51testing首页www.51testing.com

         2、点击【我的个人空间】链接，在打开新标签以后关闭旧标签

         3、点击【空间管理】，在打开新标签以后关闭旧标签

         4、进入【个人空间管理】页面后点击【日志】Tab，然后点击【发表日志】链接 

         5、标题，系统分类，个人分类，日志内容，加入事件，选择文件，上传说明，点击【上传】按钮，点击【删除】按钮，删除上传的文件，点击【保存到私人箱】；

            验证系统分类选择成功，个人分类选择成功，上传成功，上传文件删除成功。

         6、验证在“私人箱”中存在刚才发布的内容记录，选中该记录点击【立即发布】

         7、验证在“发布箱”中正确存在刚才的发布内容

代码：

SystemUtil.Run "www.51testing.com"
Browser("micClass:=Browser","name:=51Testing软件测试网-中国软件测试人的精神家园").Page("micClass:=Page").Link("name:=我的个人空间").Click
Browser("micClass:=Browser","name:=51Testing软件测试网-中国软件测试人的精神家园").Close
Browser("00weiweicao00的个人空间").Page("00weiweicao00的个人空间").Link("空间管理").Click
Browser("00weiweicao00的个人空间").Close
Browser("00weiweicao00的个人空间").Page("个人空间管理").Link("日志").Click
Browser("00weiweicao00的个人空间").Page("个人空间管理").Link("发布日志").Click
Browser("00weiweicao00的个人空间").Page("个人空间管理").Link("发布日志").WebEdit("标题").Set "好好学习"
Browser("00weiweicao00的个人空间").Page("个人空间管理").WebList("系统分类").Select "软件测试技术"
Browser("00weiweicao00的个人空间").Page("个人空间管理").WebList("个人分类").Select "原创"

check_biaoti=Browser("00weiweicao00的个人空间").Page("个人空间管理").Link("发布日志").WebEdit("标题").GetROProperty ("value")

check_xitong=Trim(Browser("00weiweicao00的个人空间").Page("个人空间管理").WebList("系统分类").GetROProperty ("selection"))
check_geren=Trim(Browser("00weiweicao00的个人空间").Page("个人空间管理").WebList("个人分类").GetROProperty ("selection"))
If  check_xitong="软件测试技术" and check_geren="原创" Then
 reporter.ReportEvent micPass ,"step1","系统分类选择成功，个人分类选择成功"
 else
     reporter.ReportEvent micFail  ,"step1","系统分类选择失败，个人分类选择失败"
End If

Browser("00weiweicao00的个人空间").Page("个人空间管理").Frame("Frame").WebElement("内容").Object.innerText ="QTP"
Browser("00weiweicao00的个人空间").Page("个人空间管理").WebRadioGroup("加入事件").Object.checked ="1"
Browser("00weiweicao00的个人空间").Page("个人空间管理").WebFile("浏览").Click
Browser("00weiweicao00的个人空间").Dialog("选择文件").WinListView("SysListView32").Select "text.txt"
Browser("00weiweicao00的个人空间").Dialog("选择文件").WinButton("打开(O)").Click
Browser("00weiweicao00的个人空间").Page("个人空间管理").WebButton("上传").Click

oExist=Browser("00weiweicao00的个人空间").Page("个人空间管理").Link("text.txt").Exist (2)
If  oExist Then
 reporter.ReportEvent micPass ,"step2","上传成功"
 else
    reporter.ReportEvent micFail  ,"step2","上传失败"
End If
wait 3
Browser("00weiweicao00的个人空间").Page("个人空间管理").Link("删除").Click
oExist=Browser("00weiweicao00的个人空间").Page("个人空间管理").WebElement("指定的文件删除成功了").Exist

If  oExist  Then
 reporter.ReportEvent micPass ,"step3","删除成功"
 else
    reporter.ReportEvent micFail  ,"step3","删除失败"
End If

Browser("00weiweicao00的个人空间").Page("个人空间管理").WebButton("保存到私人箱").Click

Browser("个人空间管理").Dialog("Internet Explorer").WinButton("允许访问(A)").Click '弹窗IE确认窗口，加入对象库

Browser("00weiweicao00的个人空间").Page("个人空间管理").WebTable("管理日志").WebTable("标题").WebCheckBox("发表的标题的复选框").Set "on"
    
Browser("个人空间管理").Page("个人空间管理").WebButton("立即发布").Click
Browser("00weiweicao00的个人空间").Dialog("Windows Internet Explorer").WinButton("确定").Click   '弹窗IE确认窗口，加入对象库
Browser("00weiweicao00的个人空间").Page("个人空间管理").Link("发布箱").Click
tRow=Browser("00weiweicao00的个人空间").Page("个人空间管理").WebTable("管理日志").WebTable("标题").RowCount
For tRow= 0 to tRow -1
 cellData=Browser("00weiweicao00的个人空间").Page("个人空间管理").WebTable("管理日志").WebTable("标题").GetCellData(tRow+1,2)
 If  cellData=check_biaoti Then
  reporter.ReportEvent micPass ,"step4","发布箱验证成功"
  'Set WebCheckBox=Browser("00weiweicao00的个人空间").Page("个人空间管理").WebTable("管理日志").WebTable("标题").ChildItem(tRow+1,1,"WebCheckBox",0)
            '    oWebCheckBox.Set "on"
    Exit for
    
 End If
Next

对象库图片