VB怎样获得鼠标处的超级连接 - VB / 基础类

VB怎样获得鼠标处的超级连接呢？
  在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
  它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正忙的时候他的Text并不会及时更新。
  我又尝试用Navigate2他里面也有个URL参数，但是这个URL与文字或图片中的超级连接还是有不同的.
  现在我的要求是，点击某个带有连接的文字或图片时我要先得到这个连接地址，然后去打开网页,上面的两个方法
  都不能满足我的要求。
  在这里请高人指点一下.
 

---

此贴提的问题很好，也能做到，只是很麻烦，所以到现在没人回此贴。帮忙顶一下。

---

友情Up ..................

---

因为链接不一定都是地址，也可能是一个脚本调用，所以在 BeforeNavigate2() 和 NewWindow2() 事件中获得 URL 比较靠谱。

---

呵呵......楼上的答话真让我忘了是来问，问题的.
既然微软能做到，我想肯定还是有办法的..........

---

这还用说，你写个浏览器内核肯定也能做到。

---

老大 收到站短了么？

---

我只知道在RichTextBox中鼠标移至链接时会有消息通知,这时可以处理,不知道WB是否也有类似的消息,你找找WB的资料

---

mark

---

下面两个方法都是针对点击链接能够在指定WebBrowser中打开的
而不是有些情况下会在IE中打开

一个使用NewWindow2()事件，应该能够解决问题，
放一个WebBrowse、一个commandbutton
VB code:

Option Explicit

Private Sub Command1_Click()
WebBrows