精通QTP-自动化测试技术领航 第2章2.2.9综合实例练习总结

1、浏览器 

通过浏览器句柄来操作浏览器

oHwnd= Browser("51Testing软件测试网").GetROProperty("hwnd") '获取句柄

Browser("hwnd:= " &oHwnd).Close   '通过句柄关闭浏览器

qtp运行时想每次点击后定位到新的页面可尝试：

1、打开IE浏览器，在菜单栏单击“工具”选择“Internet 选项”。

2、在Internet 选项对话框单击“常规”选项卡，单击“设置”按钮。

3、在选项卡浏览设置对话框选中“当创建新选项卡时，始终切换到新选项卡”，单击“确定”按钮。

参考地址：http://www.51testing.com/html/57/627857-846798.html

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

参考地址：http://www.cnblogs.com/ruily/archive/2010/12/27/1917791.html

判断文件上传是否成功

文件上传后，通过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-----------指定要搜索的字符串