webResponse对像转换方法

        Dim strUrl As String
        Dim intType As String
        strUrl = txtUrl.Text
        Dim myWebRequest As WebRequest = WebRequest.Create(strUrl)
        Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
        Dim stream As System.IO.Stream = myWebResponse.GetResponseStream()
        Dim sr As StreamReader = New StreamReader(stream, Encoding.Default)
        Dim respstr As String = sr.ReadToEnd()
        sr.Close()