16,554
社区成员
发帖
与我相关
我的任务
分享
dim yzm() as byte
a:
Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
sUrl = "http://www.picatown.com/captcha.php"
xmlhttp.Option(6) = True
xmlhttp.SetTimeouts 0, 0, 0, 0
xmlhttp.Open "GET", sUrl, True
xmlhttp.SetRequestHeader "Host", "www.picatown.com"
xmlhttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:52.0) Gecko/20100101 Firefox/52.0"
xmlhttp.SetRequestHeader "Accept", "*/*"
xmlhttp.SetRequestHeader "Accept-Language", "zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3"
xmlhttp.SetRequestHeader "Referer", "http://www.picatown.com/"
xmlhttp.SetRequestHeader "Connection", "keep-alive"
xmlhttp.SetRequestHeader "Cache-Control", "max-age=0"
'xmlHttp.setRequestHeader "Accept-Encoding","gzip, deflate"
xmlhttp.SetRequestHeader "If-Modified-Since", "0"
xmlhttp.Send
xmlhttp.WaitForResponse
yzm = xmlhttp.ResponseBody
s = xmlhttp.GetAllResponseHeaders
xmlhttp.Abort: Set xmlhttp = Nothing
GoTo a