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

---

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

編集 削除

---

とりあえず、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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。