《精通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