vb 6 实现网页自动填写自动提交功能

最新推荐文章于 2021-08-04 02:30:30 发布

lhfeng

最新推荐文章于 2021-08-04 02:30:30 发布

阅读量5k

点赞数

分类专栏：程序开发文章标签： vb webbrowser integer object input command

本文链接：https://blog.csdn.net/lhfeng/article/details/2798515

版权

这篇博客展示了如何使用VB6的WebBrowser控件实现网页表单的自动填写和提交功能。通过监听DocumentComplete事件，检测并修改input标签的值，包括用户名、密码和验证码，并模拟点击提交按钮，完成自动提交过程。

摘要由CSDN通过智能技术生成

Private Sub Command1_Click()
WebBrowser1.navigate "http://www.a.com/index.htm"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = "" Then
Exit Sub
End If
WebBrowser2.navigate "http://www.a.com?randomflag=" & Time()
End Sub

Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser2.LocationURL = "" Then
   Exit Sub
End If
Dim WebText As String
    WebText = pDisp.document.body.innerText
    WebText = Trim(WebText)
    Debug.Print WebText
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标签