WebBrowser 控件获取网页按钮问题

Question

我用WebBrowser控件打开一个网页
网页上有多个按钮 按钮ID的值是不定的 但都是数字
我想要的效果是点击网页上的某个按钮后 VB能获取到相应的ID值
<button onClick="" Class="AAAA" name="AAAA" id="1">按钮</button>
<button onClick="" Class="AAAA" name="AAAA" id="2">按钮</button>
<button onClick="" Class="BBBB" name="BBBB" id="3">按钮</button>
<button onClick="" Class="BBBB" name="BBBB" id="4">按钮</button>我知道这样可以获取指定ID的按钮值 但是不知道 我要的要求可不可以实现 请高手指点
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If pDisp Is Me.WebBrowser1.Object And URL <> "" Then
        Set m_sButtonInHTML = Me.WebBrowser1.Document.getElementById("AAA")
    End If
End SubPrivate Function m_ButtonInHTML_onclick() As Boolean
  MsgBox Me.WebBrowser1.Document.getElementById("AAA")
End Function

Answer 1

dim withevents m_sButtonInHTML  as ...
还有pDisp Is Me.WebBrowser1.Object And URL <> "" ＝＞pDisp Is Me.WebBrowser1.Object And URL <> "about:blank" 

Answer 2

byID

Answer 3

<button onClick="" Class="AAAA" name="AAAA" id="1">按钮</button>
<button onClick="location.replace(this.id);" Class="AAAA" name="AAAA" id="2">按钮</button>
<button onClick="location.replace(this.id);" Class="BBBB" name="BBBB" id="3">按钮</button>
<button onClick="location.replace(this.id);" Class="BBBB" name="BBBB" id="4">按钮</button>然后在beforenavigation2事件里面
msgbox url
'cancel = true

Answer 4

<a href="#2">按钮</a> 这样也行啊