VB 如何单击网页中的按钮
展开全部
用VB的WebBrowser控件
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set doc = WebBrowser1.Document
Dim i As Integer '设置一个长度未知变量
For i = 0 To doc.All.length - 1 '给i赋值
If UCase$(doc.All(i).tagname) = "INPUT" Then '寻找input部分
Set Item = doc.All(i)
If Item.Type = "text" Then '在input部分里寻找type为text
item.value=text1.text '为该输入框赋值
ElseIf Item.Type = "submit" Then '寻找提交的按钮
Item.Click '单击提交按钮拉~
End If
End If
Next i
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set doc = WebBrowser1.Document
Dim i As Integer '设置一个长度未知变量
For i = 0 To doc.All.length - 1 '给i赋值
If UCase$(doc.All(i).tagname) = "INPUT" Then '寻找input部分
Set Item = doc.All(i)
If Item.Type = "text" Then '在input部分里寻找type为text
item.value=text1.text '为该输入框赋值
ElseIf Item.Type = "submit" Then '寻找提交的按钮
Item.Click '单击提交按钮拉~
End If
End If
Next i
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
微测检测5.10
2023-05-10 广告
您好！建议咨 深圳市微测检测有限公司，已建立起十余个专业实验室，企业通过微测检测就可以获得一站式的测试与认 证解决方案；(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量），认证遇...
点击进入详情页
本回答由微测检测5.10提供
展开全部
单击（Click）属于事件。所谓事件（Event）是由VB预先设置好的、能够被对象识别的动作，如DblClick（双击）、Load（装入）、MouseMove（移动鼠标）、Change（改变）。
事件是对象对外部操作的响应，如在执行程序时，单击命令按钮会产生一个Click事件。如需命令按钮响应Click事件，就把完成Click事件功能的代码写到Click事件的过程中，与事件一一对应。
事件过程的形式如下：
Private Sub 对象_事件名（）
…………（事件过程代码）
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
