Winhttp5.1如何抓取一段验证码

williamsmile

目标：使用winhttp5.1编程抓取https://frontier.nanch.95306.cn/gateway/hydzsw/Dzsw/security/jcaptcha.jpg验证码信息
测试情况：使用xmlhttp可以很方便的获得回应，但winhttp5.1获取不到，由于需要后期想使用cookie，所以要使用winhttp5.1。
Winhttp5.1代码如下，请高手帮忙指点下：
    Dim picAry() As Byte
   Set Xml = CreateObject("WinHttp.WinHttpRequest.5.1")
     '设置连接或发送超时参数
    WinHttp.setTimeOuts 20000, 20000, 20000, 60000   '0表示无限制
    Xml.Open "GET", "https://frontier.nanch.95306.cn/gateway/hydzsw/Dzsw/security/jcaptcha.jpg", True
    Xml.setRequestHeader "Cache-Control", "no-cache"
    Xml.setRequestHeader "If-Modified-Since", "0"
    Xml.Send
    picAry = Xml.responseBody
    '保存验证码图片文件
    Call WriteBinary(ThisWorkbook.Path & "\verycode.gif", picAry)
以下是使用xmlhttp成功获取图片的代码：
    Xml.Open "GET", "https://frontier.nanch.12306.cn/gateway/hydzsw/Dzsw/security/jcaptcha.jpg", True
    Xml.setRequestHeader "Cache-Control", "no-cache"
    Xml.setRequestHeader "If-Modified-Since", "0"
    Xml.Send
    Do Until Xml.ReadyState = 4
           DoEvents
    Loop
    picAry = Xml.responseBody
    '保存验证码图片文件
    Call WriteBinary(ThisWorkbook.Path & "\verycode.gif", picAry)

pythonzhang143

通常使用winhttp抓地址，剩下的交给xmlhttp解决。

话说vba有没有比较好的识别验证码的library？ 现在都要手工辨识或者外调python。

williamsmile

不知道怎么结贴，问题已经解决了。
其实是https在网页跳转时惹的惹，
设置option(6)=13056即可解决，
贴出来大家分享下。

williamsmile

建什么子模？求方法。
我只想知道为什么winhttp5.1得不到图片，求高手指点解决方法。

xuzong

需要建子模比对，还有复杂的算法，估计没有人会帮你

williamsmile

补充，winhttp5.1段代码获取不到图片。