我原来是用这个方法的，当然不行：

        Dim URL As New Uri(TextBox1.Text)
        Dim Req As Net.HttpWebRequest
        Req = Net.HttpWebRequest.Create(URL)
        Dim Resp As Net.HttpWebResponse

        Try
            Dim netStream As IO.StreamReader
            Resp = Req.GetResponse
            netStream = New IO.StreamReader(Resp.GetResponseStream, System.Text.Encoding.Default)
            HTML = netStream.ReadToEnd
        Catch exc As Exception
            MsgBox(exc.Message)
        End Try

我想这和套接字有关，不知道怎样实现？谢谢！