代码:
'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