第一个按钮
<input type="submit" name="Submit" value="登录" class="btn3">


第二个按钮，“爱已欠费”是网名，不同的按钮是不同的，历遍不了，后面的（男）或者（女）才是关键字，不知道怎么历遍，有高手知道吗？


<a href="Browser.asx?url=p%3a%2f%2fmc%2fcgi-bin%2f_pasture_index%3fsid%3dAcowa5sLCb_BK07H9lbLb1-7%26g_ut%3d1%26B_UID%3d214024655%26%3d209769%26ame%3d%25E7%2588%25B1%25E5%25B7%25B2%25E6%25AC%25A0%25E8%25B4%25B9%26time%3d0">爱已欠费</a>（男）

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

第一个按钮，直接提交表单就是了。
不需要去管按钮。
        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

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

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

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

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

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

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

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

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