能，不过打开网页的速度很一般，穷举的话，时间上估计会遥遥无期吧。

先解决效验码在说吧

但是我的数范围很小，能教个方法么，谢谢

没有验证码。谢谢回复

用webbrowser控件

这里是一个自动登录Gmail邮箱的代码。
添加一个webbrowser控件、一个按钮和2个textbox控件，name属性分别为：wb、command1、text1、text1。text1填用户名、text2填密码（你当然可以用你生成的字符串代替text1.text）

Dim flag As Boolean

Private Sub Command1_Click()
Dim vDoc, vTag
    Dim i As Integer
    If flag = False Then
        MsgBox "请稍等。。。"
        Exit Sub
    End If
    Set vDoc = Wb.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
                'List1.AddItem vTag.Name
                Select Case vTag.Name
                    Case "Email"
                        vTag.Value = Text1.Text
                    Case "Passwd"
                        vTag.Value = Text2.Text
                End Select
            ElseIf vTag.Type = "submit" Then
                vTag.Click
            End If
        End If
    Next i

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim URL As String
On Error Resume Next
URL = "http://mail.google.com"
Wb.Navigate URL
End Sub


Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
flag = True
End Sub

要在时间和性能上做权衡
一般没有人愿意在一个一面等上几十秒钟