1、浏览器
通过浏览器句柄来操作浏览器
oHwnd= Browser("51Testing软件测试网").GetROProperty("hwnd") '获取句柄
Browser("hwnd:= " &oHwnd).Close '通过句柄关闭浏览器
qtp运行时想每次点击后定位到新的页面可尝试:
1、打开IE浏览器,在菜单栏单击“工具”选择“Internet 选项”。
2、在Internet 选项对话框单击“常规”选项卡,单击“设置”按钮。
3、在选项卡浏览设置对话框选中“当创建新选项卡时,始终切换到新选项卡”,单击“确定”按钮。
2、webList控件
通过select赋值,用GetROProperty("value")获取运行时的值
WebList("系统分类").Select "XXXX"
WebList("系统分类").GetROProperty("value")
3、WebElement
赋值用
object.innerText
WebElement("日志内容").object.innerText = "这是一个综合实例!"
4、webFile
文件上传,上传时只能通过弹出的对话框来选择上传的文件,而无法直接输入文件地址
这时候我们要自己写弹出窗口语句来模拟操作,解决方法就是模拟操作:
1.
点击按钮;
2.
在弹出的
dialog
输入文件名;
3.
点击确认选择按钮
WebFile("选择文件").Click
Browser("51Testing软件测试网").Dialog("选择要加载的文件").WinEdit("文件名(N):").Set "G:\test.txt"
Browser("51Testing软件测试网").Dialog("选择要加载的文件").WinButton("打开(O)").Click
判断文件上传是否成功
文件上传后,通过webElement控件来判断上传是否成功
eg:判断 WebElement("指定的文件已经成功上传").Exist(1)的值是否等于 True
5、webTable
要操作webTable中的值,需先获取其行 和 列 ,通过行 列来操作
两个重要函数: getCellData(行,列)、ChildItem(行,列,"要虚拟的控件名",0)
'从列表中查找search
tRow = .WebTable("私人箱列表").RowCount '计算行数
search = "<QTP 自动化综合实例测试>"
'扫描私人箱列表,从第2行开始
For i = 2 to tRow
'日志标题位于第2列
cellData = .WebTable("私人箱列表").GetCellData(i,2)
return = InStr(1,cellData,search)
If return <> 0 Then
Reporter.ReportEvent micPass,"刚发布的内容保存在私人箱里","pass"
Set oCheckBox = .WebTable("私人箱列表").ChildItem(i,1,"WebCheckBox",0)
oCheckBox.set "on" '选中该项
Set oCheckBox = nothing ‘释放对象
Browser("个人空间管理_2").Page("个人空间管理").WebButton("立即发布").Click
Exit for '找到后退出循环
else
Reporter.ReportEvent micFail,"发布的内容未保存在私人箱中","Failed"
End If
Next
6、InStr([start, ]string1, string2[, compare])
string1、string2的位置不要搞错
string2-----------指定要搜索的字符串