FunctionQuick_refresh()
Dimcookies,arrAsVariant,XMLAsObject,sAsString
SetXML=CreateObject("WinHttp.WinHttpRequest.5.1")'("Msxml2.XMLHTTP.5.0")
WithXML
'获取COOKIE-START
.Open"GET","http://data.shishicai.cn/cqssc/haoma/",False
.Send
cookies=Split(.getallResponseHeaders(),"Set-Cookie:")
Fori=LBound(cookies)+1ToUBound(cookies)
ckvalue=IIf(ckvalue="",Split(cookies(i),";")(0),ckvalue+";"+Split(cookies(i),";")(0))
Next
'获取COOKIE-END
.Open"POST","http://data.shishicai.cn/handler/kuaikai/data.ashx",False
.setRequestHeader"Referer","http://data.shishicai.cn/cqssc/haoma/"
.setRequestHeader"Content-Type","application/x-www-form-urlencoded"
.setRequestHeader"Cookie",ckvalue
.Send"lottery=4&date=0001-01-01"
lotsdata=Replace(Split(Split(.responsetext,"[")(1),"]")(0),"""","")
arr=Split(lotsdata,",")
Fori=LBound(arr)ToUBound(arr)
s=arr(i)&";"
Next
EndWith
EndFunction
分 -->
|