个别网页关键的会话部分抓不下来，有经验的进来分析一下！

下面是一个抓问天网天气预报的函数，但用下面这个，“未找到城市”，关键的你想得到的城市天气预报信息没有，不知哪个环节出了问题，大家讨论一下吧！
Public Shared Function GetWeb2(ByVal strUrl As String) As String
        Dim city() As String = {"济南", "莱芜", "青岛", "淄博", "德州", "聊城", "菏泽", "泰安", "济宁", "临沂", "枣庄", "日照", "威海", "烟台", "东营", "潍坊", "滨州"}
        Dim i As Integer
        Dim strResult As String
        Try
            Dim uri As New uri(strUrl)
            Dim res As System.Net.HttpWebResponse
            Dim paramList As String = uri.Query
            Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(uri)
            req.Method = "GET"
            req.Connection = "KeepAlive"
            req.Accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*"
            req.Referer = "http://weather.tq121.com.cn/panel/index1.php?city=%B6%AB%D3%AA&submit=%CB%D1%CB%D1"
            req.AllowAutoRedirect = True
            req.ContentType = "application/x-www-form-urlencoded"
            req.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)"
            req.Headers.Add("Accept-Language", "zh-cn")
            Dim reserved() As Char = {"?", "=", "&"}
            Dim SomeBytes() As Byte
            Dim UrlEncoded As New System.Text.StringBuilder
            res = req.GetResponse()
            Dim ReceiveStream As System.IO.Stream = res.GetResponseStream()
            Dim encode As System.Text.Encoding = System.Text.Encoding.GetEncoding("gb2312")
            Dim sr As New System.IO.StreamReader(ReceiveStream, encode)
            strResult = sr.ReadToEnd()
        Catch e As Exception
            Console.WriteLine(e.ToString)        End Try        Return strResult    End Function