这是一个打码的网站,如下:www.captcha2cash.com,测试号:wxg001,密码:------
网页出验证码,我输入,回车刷新验证码
我想用VB实现,给个思路

解决方案 »

  1.   

    我自己写了个小软件了,实现了部分功能,但是还很麻烦,部分代码如下:          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
                              Set vTag = vDoc.All(i)
                              If vTag.Type = "text" Then
                               If Text1.Text = "" Then
                                 vTag.Value = "   "
                               Else
                                    vTag.Value = Text1.Text
                                    Text1.Text = ""
                                End If
                            ElseIf vTag.Type = "button" Then
                                      vTag.Click
                              End If
                      End If
              Next i
    Dim X, vTag
    Dim CtrlRange
    For Each X In WebBrowser1.Document.All
            If X.tagName = "IMG" Then
                 Set CtrlRange = WebBrowser1.Document.body.createControlRange()
                 CtrlRange.Add (X)
                 CtrlRange.execCommand ("Copy")
                 Set Image1.Picture = Clipboard.GetData
             End If
    Next
      

  2.   

    先把图片保存到本地,显示在PICTURE1上
    用POST