使用webbrowser,如何捕获网页上超链接的点击事件，执行自己的代码？

tips:程序中如何监控网页中元素的事件 对编写脚本熟悉的读者都知道页面中可以添加脚本响应元素的事件，例如超链接的OnClick事件，图片的OnMouseMove事件，我们也可以使VB程序响应这些事件。下面是一个VB响应页面中按钮的Click事件的代码： 
首先建立一个新工程，在Form1中加入一个Webbrowser控件，然后在Form1中加入以下代码： Option Explicit Public Sub Some_Procedure() 
MsgBox "你点击了按钮." 
End Sub Private Sub Form_Load() 
'下载空页面 
WebBrowser1.Navigate2 "about:blank" 
End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 
'建立事件响应类 
Dim cfForward As clsForward '定义在浏览器中显示的HTML代码，其中包含一个按钮btnMyButton 
Dim sHTML As String 
sHTML = "<P>This is some text.</P>" 
sHTML = sHTML & "<P>And here is a button.</P>" 
sHTML = sHTML & "<BUTTON ID=btnMyButton>" 
sHTML = sHTML & "Click this button.</BUTTON>" '将HTML代码写入浏览器 
WebBrowser1.Document.body.innerHTML = sHTML '将事件响应类连接到页面的按钮btnMyButton上 
Set cfForward = New clsForward 
cfForward.Set_Destination Me, "Some_Procedure" 
WebBrowser1.Document.All("btnMyButton").onclick = cfForward 
End Sub 向工程中添加一个Class Module，Class Module的Name属性设定为clsForward，在clsForward中添加以下代码： Option Explicit Dim oObject As Object 
Dim sMethod As String 
Dim bInstantiated As Boolean Private Sub Class_Initialize() 
bInstantiated = False 
End Sub Public Sub Set_Destination(oInObject As Object, sInMethod As String) 
Set oObject = oInObject 
sMethod = sInMethod 
bInstantiated = True 
End Sub Public Sub My_Default_Method() 
If bInstantiated Then 
CallByName oObject, sMethod, VbMethod 
End If 
End Sub 运行程序，点击Webbrowser中的“Click this button”按钮。程序就会弹出消息框提示“你点击了按钮.”