FORM上增加三个控件:两个Textbox1,一个Button
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w As New System.Net.WebClient
Dim sr As New System.IO.StreamReader(w.OpenRead(TextBox1.Text), System.Text.Encoding.Default)
' sr.CurrentEncoding.Convert(sr, sr.CurrentEncoding.GetEncodin)
Dim s As String = sr.ReadToEnd
sr.Close()
TextBox2.Text = s
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "http://www.baidu.com"
End Sub
End Class