OCR 验证码通过 VBA
OCR Captcha through VBA
我一直在尝试访问网站和 OCR 验证码。
但是这个验证码部分我不知道如何进行。
谁能帮我解决这个问题?
1. Access website
2. Donwload captcha image (?)
3. OCR it
感谢任何帮助。
可以使用 Microsoft.XMLHTTP
对象从 Web 下载文件:
Dim myURL As String
myURL = "http://www.somesite.com/captcha.png"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send
myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile ("C:\captcha.png")
oStream.Close
End If
摘录自 here
但是,为了 运行 在刚刚下载的图像上进行 OCR,您需要使用 ActiveX 组件,
谷歌搜索后,我想出了 this component,但我还没有找到任何免费的东西。
我一直在尝试访问网站和 OCR 验证码。 但是这个验证码部分我不知道如何进行。
谁能帮我解决这个问题?
1. Access website
2. Donwload captcha image (?)
3. OCR it
感谢任何帮助。
可以使用 Microsoft.XMLHTTP
对象从 Web 下载文件:
Dim myURL As String
myURL = "http://www.somesite.com/captcha.png"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send
myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile ("C:\captcha.png")
oStream.Close
End If
摘录自 here
但是,为了 运行 在刚刚下载的图像上进行 OCR,您需要使用 ActiveX 组件,
谷歌搜索后,我想出了 this component,但我还没有找到任何免费的东西。