vb中如何点击网页按钮
我想用commond1点击代码中“我要留言”按钮，并且将text内容一起输入进去，现在text内容已经可以输入了，但是不能点击我要留言按钮，下面使用我的代码：OnErro...
我想用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？ 展开
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？ 展开
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
