急问，如何得到网页上超链接？-CSDN论坛

CSDN论坛 > VB > 网络编程

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅一个软件工程师在加拿大抓蚯蚓的辛酸经历 ⋅急寻 [英文版] WINNT Server 4.0下载地址! ⋅急问，如何得到网页上超链接？ 更多帖子 关注私信空间博客 lpf 本版专家分：93 结帖率 100%: cell的超链接为这种格式：
<a href="#" class="a1"           onclick="javascript:window.open('address','','top=100,left=150,resizable=no,scrollbars=yes,menubar=no,width=620,height=470');return false;">

请问我如何得到'address'部分？

    Dim a

    For Each a In WebBw.Document.All
        If UCase(a.tagName) = "A" Then
            Debug.Print a.herf
        End If

    Next

这种方法可以吗？

现在我想要的links均在同一table的一列上，如何能通过cells的属性得到其alink？

0 2004-07-14 12:03:37

回复数 4 只看楼主引用举报楼主

lpf 本版专家分：93: 现在主要是想通过table里cells的属性得到其超链接

0 2004-07-14 12:08:24

只看TA 引用举报 #2 得分 0

⋅AMD多核计算技术是否可以在此讨论？ ⋅一个正则问题 ⋅[分享]带进度条异步下载文件（即IE下载文件效果） 更多帖子 关注私信空间博客 hhjjhjhj 本版专家分：21785 黄花 2002年8月其他开发语言大版内专家分月排行榜第二: Dim s, obT, obR, obC, i
i = 0

For Each obT In WebBrowser1.Document.body.children
   If UCase(obT.tagname) = "TABLE" Then
      For Each obR In obT.Rows
          For Each obC In obR.Cells(i).children
             If UCase(obC.tagname) = "A" Then
                s = s & obC.onclick & Chr(10)
             End If
          Next
       Next
    End If
Next
MsgBox s

0 2004-07-14 13:33:49

只看TA 引用举报 #4    得分 90