vba 验证码识别问题

cnzm

查了各种各样的资料始终不能解决这个问题，有没有办法把验证码先另存到本地再来识别呢？



详见附件
验证码问题.rar (47.15 KB, 下载次数: 192)

2012-12-3 01:22 上传

点击文件名下载附件

liucqa

不要用IE，用xmlhttp做就可以先下载后识别了

另外，你的那个DLL是识别准确率是多少呀？

cnzm

那个dll 识别率99% 是人工打码的

下面是调用的dll

cnzm

改成这种方式 下载图片也不行哦

1. Sub 下载图片()
   
2.     Dim nUrl As String, localFilename As String
   
3.     Dim XmlHttp As Object, ayrHttpBody() As Byte
   
4. 
   
5.     nUrl = "http://shcainfo.miitbeian.gov.cn/captcha.jpg"
   
6.    ' localFilename = ThisWorkbook.Path & Application.PathSeparator & "myimg.gif"
   
7. 
   
8. 
   
9.     Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
   
10.     XmlHttp.Open "GET", nUrl, True       '异步下载
    
11.     XmlHttp.send
    
12. 
    
13.     Do Until XmlHttp.readyState = 4
    
14.         DoEvents
    
15.     Loop
    
16.    
    
17.     Dim nPicture As Picture
    
18. 
    
19.     Set nPicture = LoadNetPicture(tbxURL.Value)
    
20.    
    
21.     If XmlHttp.Status = 200 Then
    
22.         ayrHttpBody() = XmlHttp.responseBody
    
23.         Open "C:\test.bmp" For Binary As #1
    
24.         Put #1, , ayrHttpBody()
    
25.         Close #1
    
26.         MsgBox "成功"
    
27.         UserForm1.Image1.Picture = LoadPicture("C:\test.bmp")
    
28.     Else
    
29.         MsgBox "失败"
    
30.     End If
    
31.     Set XmlHttp = Nothing
    
32. End Sub

复制代码

之前是用这种方式下载图片

1. Private Sub Pic()
   
2. Dim nPicture As Picture
   
3. 
   
4.     Set nPicture = LoadNetPicture(tbxURL.Value)                                              '将图片下载到对象
   
5.     If Not nPicture Is Nothing Then
   
6.         SavePicture nPicture, "C:\test.bmp"    '保存到硬盘
   
7.         UserForm1.Image1.Picture = nPicture
   
8.     Else
   
9.         UserForm1.tbxURL.Value = "链接地址错误，不能获取图片"
   
10.     End If
    
11. End Sub

复制代码

liucqa

http://club.excelhome.net/thread-896608-1-1.html

引子玄

Sub 图片IE提取()

With CreateObject("InternetExplorer.Application")
        .Visible = False
        .Navigate "http://img03.taobaocdn.com/bao/uploaded/i3/T165IBXfhbXXX_gKA0_035057.jpg_310x310.jpg"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        
      a = .Document.All.tags("body")(0).outerhtml
     
      Call makelog(a, "C:\Documents and Settings\Administrator\桌面\本地COOKIE", "xls") '注意:红色部分是相对路径
      
         ActiveWorkbook.FollowHyperlink Address:= _
        "file:///C:/Documents%20and%20Settings/Administrator/桌面/本地COOKIE/log.xls", _
        NewWindow:=False, AddHistory:=True
    Windows("log.xls").Activate
    ActiveSheet.Shapes("Picture 1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("间接QT法.xls").Activate    '注意:兰色部分是相对名称,放本代码的工作簿命名
    Range("A1").Select
    ActiveSheet.Paste
    Windows("log.xls").Activate
    Application.WindowState = xlMinimized
    ActiveWindow.Close
        
  End With
  
End Sub
Private Sub makelog(inputed_string, log_path, filetype)
   Dim objFSO, logfile, logtext, log_folder
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   On Error Resume Next
   Set log_folder = objFSO.CreateFolder(log_path)
   If objFSO.FileExists(log_path & "\log." & filetype) = 0 Then
       Set logfile = objFSO.CreateTextFile(log_path & "\log." & filetype, True, -1)
   End If
   Set log_folder = Nothing
   Set logfile = Nothing
   Set logtext = objFSO.OpenTextFile(log_path & "\log." & filetype, 2, True, -1)
   logtext.Write inputed_string
   logtext.Close
   Set objFSO = Nothing
End Sub

longatdream

一定要把这个问题解决了啊，识别，菜鸟开始啊

引子玄

cnzm 发表于 2012-12-4 16:36
改成这种方式 下载图片也不行哦
之前是用这种方式下载图片

http://shcainfo.miitbeian.gov.cn/captcha.jpg
URL本身就打不开,又如何提取图片呢?

引子玄

引子玄 发表于 2012-12-17 22:15

URL本身就打不开,又如何提取图片呢?

俺甚至怀疑这个链条
http://shcainfo.miitbeian.gov.cn/captcha.jpg
是否有木马?

因为刚才在试图打开这个链条的时候,电脑一塌糊涂.只好重启

引子玄

引子玄 发表于 2012-12-17 22:38
俺甚至怀疑这个链条
http://shcainfo.miitbeian.gov.cn/captcha.jpg
是否有木马?

果然中了阴招!