Question

vb中如何点击网页按钮

我想用commond1点击代码中“我要留言”按钮，并且将text内容一起输入进去，现在text内容已经可以输入了，但是不能点击我要留言按钮，下面使用我的代码：
On Error Resume Next
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
vTag.Value = Text1 '这个是输入到用户名中得值
End If
If vTag.Type = "topassword" Then
vTag.Value = "123456" '这个是输入到密码框中的值
End If
If vTag.Name = "g" Then
vTag.Click
End If
End If
Next i
求大神详细讲解
如何点击command2就在软件界面显示sid？

Answer 1

 If vTag.Type = "submit" Then
                    vTag.Click
End If

按上边的改一下就能点按钮了

至于显示sid

Print webBrowser1.document.getelementbyname("sid").value

写在command2事件里就行了

追问

我试过了不可以的.可以回答我的第二个问题吗？
如何点击command2就在软件界面显示sid？

追答

点击不行，是不是页面里还有其他submit

If vTag.Type = "submit" And vTag.Value= "我要留言" Then
                    vTag.Click
End If

追问

显示sid那个为什么提示：实时错误，要求对象424