《精通QTP-自动化测试技术领航》学习笔记6--综合练习

代码：

'step1--进入51testing首页，
SystemUtil.Run "http://www.51testing.com/"
'step2--点击我的个人空间，关闭旧标签
Browser("360导航_新一代安全上网导航").Page("51Testing软件测试网-中国软件测试人的精神家园").Link("我的个人空间").click
Browser("苏羽轻缓 - 51Testing软件测试网").Page("苏羽轻缓 - 51Testing软件测试网").Sync:wait 1
Browser("360导航_新一代安全上网导航").Close
'step3--点击空间管理
Browser("360导航_新一代安全上网导航").Page("苏羽轻缓 - 51Testing软件测试网").Link("空间管理").Click
'step4--点击日志，点击发布日志
Browser("360导航_新一代安全上网导航").Page("个人空间管理").Link("日志").Click
Browser("360导航_新一代安全上网导航").Page("个人空间管理_2").Link("发布日志").Click
'step5--写日志
Browser("360导航_新一代安全上网导航").Page("个人空间管理_3").WebEdit("subject").Set "QTP测试技能11"
Browser("360导航_新一代安全上网导航").Page("个人空间管理_3").WebList("catid").object.selectedIndex = "8"
'校验选择系统分类选择成功
expected="娱乐休闲生活"
cvalue=Browser("360导航_新一代安全上网导航").Page("个人空间管理_3").WebList("catid").GetROProperty("selection")
If cvalue=expected Then
 reporter.ReportEvent micPass,"系统分类选择成功","passed"
else
    reporter.ReportEvent micFail ,"系统分类选择失败","failed"
End If

Browser("360导航_新一代安全上网导航").Page("个人空间管理_3").WebList("itemtypeid").Select "+添加"
Browser("360导航_新一代安全上网导航").Dialog("51testing.com 需要某些信息").WinEdit("请输入:").Set "原创"
Browser("360导航_新一代安全上网导航").Dialog("51testing.com 需要某些信息").WinButton("确定").Click
with Browser("360导航_新一代安全上网导航").Page("个人空间管理_3")
     .Frame("Frame").WebElement("WebElement").Object.innerText="这是一个综合实例"
'校验上传文件成功
     .WebFile("localfile").Set "D:\test.txt"
     .WebEdit("uploadsubject0").Set "随便输入的"
     .WebButton("上传").Click
  file=.WebElement("指定的文件已经成功上传").WaitProperty("visible","true",20)
If file Then
 reporter.ReportEvent micPass ,"上传成功","passed"
else
    reporter.ReportEvent micFail ,"上传失败","failed"
End If
'校验删除上传文件成功
     .Link("删除").Click
file=.WebElement("指定的文件删除成功了").WaitProperty("visible","true",20)
If file Then
 reporter.ReportEvent micPass ,"删除成功","passed"
else
    reporter.ReportEvent micFail ,"删除失败","failed"
End If
    .WebButton("保存到私人箱").Click
End with
'验证在私人箱中有这个日志
Browser("360导航_新一代安全上网导航").Dialog("Internet Explorer").WinButton("不允许(N)").Click
with Browser("360导航_新一代安全上网导航").Page("个人空间管理_4")
     .Link("私人箱").Click
row1=.WebTable("micclass:=WebTable","html id:=articlelist").RowCount
For crow = 0 To row1-1
 title=.WebTable("micclass:=WebTable","html id:=articlelist").GetCellData(crow+1,2)
 expected_title="QTP测试技能11"
 return=instr(1,title,expected_title)
 If return<>0 Then
  reporter.ReportEvent micPass ,"保存到私人箱成功","passed"
  Set owebcheckbox=.WebTable("micclass:=WebTable","html id:=articlelist").ChildItem(crow+1,1,"WebCheckBox",0)
  owebcheckbox.set "on"
  Set owebcheckbox=nothing
  Exit for
 End If
 If crow=row1-1 Then
  '没找到就退出本次循环
  reporter.ReportEvent micFail ,"保存到私人箱失败",""
  exitactioniteration
 End If 
Next
      .WebButton("立即发布").Click
End with
Browser("360导航_新一代安全上网导航").Dialog("来自网页的消息").WinButton("确定").Click
'校验发布成功
Browser("360导航_新一代安全上网导航").Page("个人空间管理_5").Link("发布箱").Click
num=Browser("360导航_新一代安全上网导航").Page("个人空间管理_6").WebTable("micclass:=WebTable","html id:=articlelist").RowCount
For row = 0 To num-1
 value=Browser("360导航_新一代安全上网导航").Page("个人空间管理_6").WebTable("micclass:=WebTable","html id:=articlelist").GetCellData(row+1,2)
 return=instr(1,value,expected_title)
 If return<>0 Then
    reporter.ReportEvent micPass ,"发布成功","passed"
    Exit for
 End If
 If row=num-1 Then
  reporter.ReportEvent micFail ,"发布失败",""
  exittest
 End If
Next

知识点：

waitproperty("属性名","属性值",等待时间)：如果某对象的属性是某个指定的值时，返回true;否则返回false