实用函数错误 求9

ganlixiong

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

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

谢谢楼上的哥们,果然是这样