Question

请问vb如何模拟点击点按钮

请问vb如何模拟点击点按钮，我想点击那个发送邮件的按钮
<tr>
<td align="right">
<button type="button" value="分组管理">联系人组管理</button>
</td>
<td>
<button type="button" value="联系人管理">联系人管理</button>
</td>
<td></td>
<td></td>
<td align="right">
<button type="button" value="发送邮件">发送短信</button>
</td>
</tr>

Answer 1

Private Sub Command1_Click() '攻击按钮
Dim Vdoc,i, S As String
On Error Resume Next
For i = 0 To WebBrowser1.Document.All.length - 1
Set Vdoc = WebBrowser1.Document.All(i)
If UCase(Vdoc.tagname) = "button" Then
S = Trim(Vdoc.innertext)
If s="发送邮件" Then
Vdoc.click
End If
End If
DoEvents
Next
End Sub

Answer 2

Private Sub Command1_Click()
For Each obj In WebBrowser1.Document.getelementsbytagname("button")
If obj.innertext = "发送短信" Then Print obj.Click
Next
End Sub

Answer 3

Call Button1.PerformClick()
vb2010代码
vb6.0没用过~