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