VB6.0 WebBrowser1 怎么点击这2个按钮？ - 编程论坛

#2

风吹过b2013-03-27 16:09

第一个按钮，直接提交表单就是了。
不需要去管按钮。
        Set vDoc = WebBrowser1.Document                             '取对象
        For i = 0 To vDoc.All.length - 1                            '遍类对象
        If UCase(vDoc.All(i).tagName) = "INPUT" Then                    '输入域
            Set vTag = vDoc.All(i)
            If vTag.Type = "text" Or vTag.Type = "password" Then        '为用户输入及密码区
                Select Case LCase(vTag.Name)
                    Case 用户域                                     '填用户名
                        vTag.Value = 用户名
                    Case 密码域                                     '填密码
                        vTag.Value = 密码
                End Select
            ElseIf vTag.Type = "submit" Then                        '提交
                vTag.Click
            End If
        End If
        Next i

第二个按钮，遍类所有的链接，然后找到包含 Browser.asx 这个网址的链接，然后转到就是了。
没给出具体的网址，无法具体分析。

With WebBrowser1.Document
        For i = 0 To .links.length - 1
             if instr(1,.links(i),"")>0 then
                 '对 .links(i) 进行处理
             end if
        Next i
End With

#3

f39812922013-03-27 16:54

回复 2楼风吹过b

版主你用的.net是哪个版本的？哪里下载？我还在用老旧的 VB6.0版呀
你给的方法在VB6.0上有点问题

[ 本帖最后由 f3981292 于 2013-3-27 17:24 编辑 ]

#4

f39812922013-03-27 17:49

回复 2楼风吹过b

就是第一个按钮，如果页面上有两个相同的按钮，那么就点击最后一个，第一个没有被点击

#5

风吹过b2013-03-28 08:23

ElseIf vTag.Type = "submit" Then                        '提交
                vTag.Click
            End If

只点击提交那个按钮，如果网页上有二个按钮，那么有一个按钮肯定不是提交按钮。
这种情况下，你要找到那个按钮的 JS 代码或连接，然后直接执行就是了，不用去点按钮。

当然，你去点按钮也行，好像按钮也是属于 input 类型的，你找到 input 里找一找。

#6

f39812922013-03-28 10:00

真的有两个相同的登录按钮，http://221.179.9.18:8080/bpss/index.jsp 这是移动公司的登陆页，上面两个登录就是

#7

f39812922014-01-11 13:25

Private Sub 下一步_Click()
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 = "submit" And vTag.Value = "下一步" Then '找到确定按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了
End If
End If
Next i
End Sub