Imports System.Net    Private Sub down(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            Dim Mstr_Url As String = "http://www.dangdang.com/product/9192/9192135.shtml"
            Dim Mstr_Local_Path As String = "web.htm"
            Dim Mobj_WebClient As New WebClient
            Mobj_WebClient.DownloadFile(Mstr_Url, Mstr_Local_Path)            Dim Mstr As String
            Dim Mobj_sr As StreamReader = File.OpenText(Mstr_Local_Path)
            Mstr = Mobj_sr.ReadToEnd()
            Mobj_sr.Close()
            Me.TextBox1.Text = Mstr            MessageBox.Show("文件下载并保存到:" & Mstr_Local_Path, "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Application.Exit()
        End Try
    End Sub