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()
