Untitled

   Public Function GetURLActual(ByVal Url As String) As String
      Const PacketLen As Integer = 2048
      Dim tempString As String
      Dim tempreq As HttpWebRequest = HttpWebRequest.Create(Url)
      Dim exLength As Integer = 0
      Dim pl As Integer = PacketLen
      Dim bts(2048) As Byte
      tempreq.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322"
      tempreq.Headers.Add("Accept-Encoding", "gzip")
      Dim j As WebResponse
      j = tempreq.GetResponse()
      Dim gZL As IO.Stream
      If InStr(j.Headers.ToString, "gzip", CompareMethod.Text) Then
         gZL = New GZip.GZipInputStream(j.GetResponseStream)
         'TODO: check the header and make sure gzip is in it?
      Else
         gZL = j.GetResponseStream
      End If
      While pl > 0
         pl = gZL.Read(bts, exLength, pl)
         exLength = exLength + pl
         ReDim Preserve bts(exLength + PacketLen - 1)
      End While
      ReDim Preserve bts(exLength - 1)
      gZL.Close()
      tempString = Encoding.Default.GetString(bts)
      WriteCache(Url, tempString)
      Return tempString
   End Function