Sub a()
Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
With xmlhttp
.Option(6) = 0
'http://www.88ms88.com/Main/Sports/
.Open "GET", "http://mkt4.88ms88.com/UnderOver_data.aspx?Market=l&Sport=1&DT=&RT=W&CT=&Game=0&OrderBy=0&OddsType=2&k22906659=v22907371", False
.setRequestHeader "Cookie", "userIPCountry=CN; selectedLanguage=zh-CN; __utma=1.68218912.1336660042.1336710382.1336738044.9; __utmz=1.1336660042.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); DispVer=3; OddsType_12BETMEMUUS01004=2; MiniKey=max; __utma=1.68218912.1336660042.1336710382.1336738044.9; __utmz=1.1336660042.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmb=1.2.10.1336738044; __utmc=1; ASP.NET_SessionId=mpvmqo55b00xpy55cowopbmn; __utmb=1.3.10.1336738044; __utmc=1"
.setRequestHeader "Referer", "http://mkt4.88ms88.com/UnderOver.aspx?Market=t"
.setRequestHeader "Connection", "Keep-alive"
.SEND
tt = .responsetext
'With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '调试用，数据放入剪贴板
' .SetText tt
' .PutInClipboard
'End With
If tt = "" Then Msgbox“Error"：Exit Sub
End With
Set xmlhttp = Nothing
End Sub
给个测试的代码，实际用的时候红色部分需要换成当前可用链接的值，Cookie可能也要换掉，测试发现Cookie类似="ASP.NET_SessionId=dtaecs45adobog45lzebju55"就行。用Httpfox抓就可以
|
