QTP获取页面链接并点击、拖拽方法

其实QTP要实现对使用ie核心的浏览器打开的web页面的操作是比较简单的，基本上有两种方式：使用qtp的描述性编程，查找web链接并操作；使用DOM对象提供的某些方法和属性实现预期功能。现在对于页面操作主要有两种，点击和拖拽。
对于页面链接点击方法1：

If window("Window").Page("百度一下，你就知道").WebButton("百度一下").Exist =true  Then
Set oDesc = Description.Create
oDesc( "micclass" ).Value = "Page"
set  pageObject = window("Window").ChildObjects( oDesc )
Set oDesc2 = Description.Create
oDesc2( "micclass" ).Value = "Link"
set  linkObject =pageObject(0).ChildObjects( oDesc2 )
linkObject(5).click
print logTimer()&"执行页面链接点击动作"
End If

对于页面链接点击方法2：

If  Window("Window").Page("page").Exist =true Then
Set objLists =  Window("Window").Page("page").Object
Set arrayLink= objLists.getElementsByTagname("a")
listLength =arrayLink.length
Randomize
selectLink = Int(listLength * Rnd)
If  listLength >10 Then
arrayLink(selectLink).focus
arrayLink(selectLink).click()
End If
End If

对于页面链接拖拽的方法：注意这里需要先找到page页面相对于屏幕左上角的坐标，然后在获取每个链接的绝对坐标。

If  Window("Window").Page("page").Exist =true Then
Set objLists =  Window("Window").Page("page").Object
Set arrayLink= objLists.getElementsByTagname("a")
page_x =  Window("Window").Page("page").GetROProperty("abs_x")
page_y =  Window("Window").Page("page").GetROProperty("abs_y")
listLength =arrayLink.length
Randomize
selectLink = Int(listLength * Rnd)
Set objlink =  arrayLink(selectLink)
If  objlink.disabled = false  Then
objlink.focus
print "链接名称："& objlink.innerText
print "链接地址："& objlink.href
set  rect= objlink.getBoundingClientRect()
link_x=cint(page_x+rect.left )
link_y=cint(page_y+rect.top)
drop_x=link_x+10
drop_y = link_y+10
Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )
deviceReplay.MouseDown link_x,link_y,1
deviceReplay.MouseMove  drop_x,drop_y
deviceReplay.MouseUp  drop_x,drop_y,1
End If
End If

其实在这里后面有机会的话再深入了解一下DOM相关的方法对于自动化有比较大的意义。