WebBrowser上でマウスカーソルがあるリンク先を取得するには？

福岡のけんじ 2002-11-15 02:27:22 No: 76356

WebBrowserに表示されたＨＰ上のリンク先がある文字の上にマウスカーソルを移動し、そのリンク先をマウスクリックせずに取得する方法を、どなたか知りませんか？

魔界の仮面弁士 2002-11-22 20:55:46 No: 76357

とりあえず、Anchorオブジェクトを列挙するサンプルを示します。

もし、マウスの動作に追従させたいのであれば、
WithEvents変数にHTMLDocumentを割り当てておき、
そのonmouseoverイベント等を使えば良いと思います。

Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.google.co.jp/"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Anchor As Object

'    For Each Anchor In pDisp.document.anchors
'        Debug.Print "["; Anchor.innerText; "]", Anchor.href
'    Next

    For Each Anchor In pDisp.document.getElementsByTagName("A")
        Debug.Print "["; Anchor.innerText; "]", Anchor.href
    Next
End Sub