16,554
社区成员
发帖
与我相关
我的任务
分享
Dim byteRequest1 As Byte() = Encoding.Default.GetBytes("synid=-1&sportid=1&oddsStyle=&dt=4&scope=1&fsynid=0")
Dim httpWebRequest1 As HttpWebRequest
Dim webResponse1 As HttpWebResponse
httpWebRequest1 = CType(WebRequest.Create(Me.urls(1) & "/webroot/restricted/oddsdisplay/Main1DataFrame.aspx"), HttpWebRequest)
'设置请求的SessionId
Dim co1 As CookieContainer = New CookieContainer()
co1.SetCookies(New Uri(Me.urls(1) & "/webroot/restricted/oddsdisplay/Main1DataFrame.aspx"), Me.cookies(1))
httpWebRequest1.CookieContainer = co1
httpWebRequest1.ContentType = "application/x-www-form-urlencoded"
httpWebRequest1.Accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"
'httpWebRequest.Referer = "http://" & Me.Url & "/hometop.aspx?ip=&p="
httpWebRequest1.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)"
httpWebRequest1.Method = "Post"
httpWebRequest1.Timeout = 2000
httpWebRequest1.ContentLength = byteRequest1.Length
httpWebRequest1.AllowAutoRedirect = False '是否自动重定向
httpWebRequest1.ServicePoint.Expect100Continue = False
Dim noCachePolicy As New HttpRequestCachePolicy(HttpRequestCacheLevel.NoCacheNoStore)
httpWebRequest1.CachePolicy = noCachePolicy
Dim stream1 As Stream
stream1 = httpWebRequest1.GetRequestStream()
stream1.Write(byteRequest1, 0, byteRequest1.Length)
stream1.Close()
webResponse1 = CType(httpWebRequest1.GetResponse(), HttpWebResponse)
Dim getdata1 As String = New StreamReader(webResponse1.GetResponseStream(), Encoding.UTF8).ReadToEnd()
Dim byteRequest1 As Byte() = Encoding.Default.GetBytes("synid=-1&sportid=1&oddsStyle=&dt=4&scope=1&fsynid=0")