PrivateSub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load '在此处放置初始化页的用户代码 ' Initialize the WebRequest. Dim myRequest As WebRequest = WebRequest.Create("http://www.163.com") ' Return the response. Dim myResponse As WebResponse = myRequest.GetResponse() ' Code to use the WebResponse goes here. ' Close the response to free resources. Dim resStream As Stream = myResponse.GetResponseStream() Dim sr AsNew StreamReader(resStream, Encoding.UTF8) Dim str1 AsString= sr.ReadToEnd() myResponse.Close() TextBox1.Text = str1