1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
_http = DirectCast(Net.HttpWebRequest.Create(url), Net.HttpWebRequest)
_http.KeepAlive = True
_http.AllowAutoRedirect = True
_http.Method = "GET"
_http.Headers.Clear()
Dim v As New System.Version(1, 1)
_http.ProtocolVersion = v
_http.Accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-ms-application, application/vnd.ms-xpsdocument, application/xaml+xml, application/x-ms-xbap, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"
_http.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, "fr")
_http.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, "gzip, deflate")
_http.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; WOW64; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.5.30729; .NET CLR 3.0.30618)" |
Partager