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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货