Private Sub Command1_Click()
Dim i As Integer
For i = 0 To WebBrowser1.Document.All.length - 1
On Error Resume Next
If WebBrowser1.Document.All(i).Id = "中局伍卖或btnMS"腊轮 Then
WebBrowser1.Document.All(i).Click
End If
End If
Next
End Sub
貌似我以前搞过这样的累死程序,我是在百度上做的测试的
这个不难,有ID,直接用getElementById就OK了