|
最近因为个人原因,有好几天没有发帖了,在这里深表歉意!同时有位坛友有问到过关于表格处理的问题,那我们今天就一起来探讨一下在SilkTest里是如何处理表格的,当然我在这里只是抛砖引玉,表格里面还可以有很多的操作,比如说:链接点击,单选框的点击,复选框的点击,文本框的输入等。
今天我们主要是根据表格来取出对应的文本值,并且点击链接。直接进入主题,下面附上代码:
Imports SilkTest.Ntf.XBrowser
Public Module Main
Dim _desktop As Desktop = Agent.Desktop
Public Sub Main()
With _desktop.BrowserApplication("WebBrowser3")
.SetActive()
With .BrowserWindow("BrowserWindow")
.Navigate("http://bbs.51testing.com/forum-127-1.html")
'定义一个DomTable参数
Dim testTable As DomTable
'找到"//TABLE[@class='datatable']"的表格
testTable = .DomTable("//TABLE[@class='datatable']")
Dim testTableRows As Int32
Dim testTableColumns As Int32
Dim currentRow As Int32
Dim cellText As String
'取得表格的所有行数
testTableRows = testTable.GetRowCount()
System.Console.WriteLine(testTableRows)
'取得表格的所有列数
testTableColumns = testTable.GetColumnCount()
System.Console.WriteLine(testTableColumns)
For currentRow = 0 To testTableRows-1 Step 1
'取得表格的Cell(每一行的第3列)的文本值
cellText = testTable.GetCellText(currentRow,3)
System.Console.WriteLine(cellText)
'判断值等于“***”,然后点击
If cellText Like "*关于Micro Focus系列工具软件*" Then
Dim link As DomLink
link = testTable.Find("//A[@textContents='关于Micro Focus系列工具软件下*']")
'点击链接
link.Click()
'退出for循环
Exit For
End If
Next currentRow
End With
End With
End Sub
End Module
整个测试过程已经完成,主要需要用到对象探测器来探测对象属性,如Table的名称“//TABLE[@class='datatable']”和链接的名称“//A[@textContents='关于Micro Focus系列工具软件下*']”,下面还是上个图大家鉴定一下:
最后感谢该坛友为我提出这个宝贵的主题,这两天也正在为主题的事情头痛,同时也请其它的坛友提出宝贵意见,当然也包括主题! |
|