获取网页内容的时候 有的时候返回的是GZIP压缩的
Dim wbres As HttpWebResponse = wbr.GetResponse()
Dim html As String
Dim compressStream As Stream = Nothing
Dim streamReader As StreamReader
If wbres.ContentEncoding.ToLower.Contains("gzip") Then
compressStream = New GZipStream(wbres.GetResponseStream(), CompressionMode.Decompress)
streamReader = New StreamReader(compressStream)
html = streamReader.ReadToEnd()
compressStream.Close()
streamReader.Close()
ElseIf wbres.ContentEncoding.ToLower.Contains("deflate") Then
compressStream = New DeflateStream(wbres.GetResponseStream(), CompressionMode.Decompress)
streamReader = New StreamReader(compressStream)
html = streamReader.ReadToEnd()
compressStream.Close()
streamReader.Close()
Else
streamReader = New StreamReader(wbres.GetResponseStream())
html = streamReader.ReadToEnd()
streamReader.Close()
End If