EXCEL VBA WinHttp获取验证码图片

EXCEL VBA 　WinHttp获取验证码图片

 

Private Sub CommandButton1_Click()
    Dim arr() As Byte
    On Error Resume Next
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://202.97.135.173/Sehup/invseek/web.jsp", False
        .setRequestHeader "Connection", "Keep-Alive"
        .Send

        .Open "GET", "http://202.97.135.173/Sehup/invseek/CheckCode", False
        .setRequestHeader "Referer", "http://202.97.135.173/Sehup/invseek/web.jsp"
        .setRequestHeader "Connection", "Keep-Alive"
        .Send
        arr = .responseBody

        Open "D:\图片1.gif" For Binary As #1
        Put #1, , arr
        Close #1

        ActiveSheet.Cells(2, 2).Select
        Set s = ActiveSheet.Pictures.Insert("D:\图片1.gif")
        s.ShapeRange.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
        s.Shap