51Testing软件测试论坛

标题: 实用函数错误求9 [打印本页]

作者: ganlixiong 时间: 2007-11-6 19:28
标题: 实用函数错误求9
Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("MP3").Click
Browser("百度一下，你就知道").Page("百度MP3——全球最大中文MP3搜索引擎").WebRadioGroup("lm").Select "#0"

'该函数的工作原理如下：可以获取所有界面上的Link对象（不用把要使用的Link 对象添加到Object Repository中）,并可对这指定的LinkNmae进行点击操作。
Function WebLinkClick_Function_Module(IsHaveFrame,Object_Browser,Object_page,Object_Frame,LinkName)

Dim m_Link
Dim All_Link
Dim Count
Dim AllLinkName(3000)
Dim i,j,k
k = 0

If  IsHaveFrame= "" OR IsHaveFrame>1 Then
IsHaveFrame = 1
End If

Set m_Link=Description.Create()
m_Link("Link").Value="link"
If  IsHaveFrame  < 1 Then
Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)
Elseif IsHaveFrame >0 then
Set All_Link=Browser(Object_Browser).Page(Object_page).Frame(Object_Frame).ChildObjects(m_Link)
End If

Count=All_Link.Count()
For  i= 0 To Count -1
   AllLinkName(j) =All_Link(i).GetROProperty( "Text" )
If  AllLinkName(j) = LinkName Then
      All_Link(i).click
      Exit For
End If
j = j +1
Next
End Function

If WebLinkClick_Function_Module(0,"百度一下，你就知道","百度MP3——全球最大中文MP3搜索引擎","","新闻") Then
msgbox "OK"
End If

Browser("百度一下，你就知道").Close

运行到
Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)
就报错 General run error.
Line (21): "Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)".
在往下走
就是 all_link 缺少对象

搞半天不知道哪里出了问题,上网求9

作者: hsjzfling 时间: 2007-11-6 21:33
标题: 回复 1# 的帖子
1、主要问题在这句m_Link("Link").Value="link"
应该改为m_Link("micclass").Value = "Link"

2、有Set All_Link=Browser(Object_Browser).Page(Object_page).ChildObjects(m_Link)就足够了，它能获取该页面中的所有Link对象，无论是否在Frame或是WebTable父对象下。只需很简单的几句代码就能达到目的了的

作者: ganlixiong 时间: 2007-11-7 16:13
谢谢楼上的哥们,果然是这样

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)