Imports System.IO
Imports System.Net

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DownloadFile()
    End Sub
    Sub DownloadFile()

        Dim destPath As String = "C:\image36.png"
        Dim url As String = ""
        Dim request As HttpWebRequest = HttpWebRequest.Create(url)
        request.Method = "GET"
        request.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate
        Using response As HttpWebResponse = request.GetResponse()
            Using stream As Stream = response.GetResponseStream()
                Using fileStream As New FileStream(destPath, FileMode.Create)
                    stream.CopyTo(fileStream) '使用了 CopyTo 方法，这是在 .NET Framework 4.0 及更高版本中引入的 System.IO.Stream 类的方法。如果你使用的是较早版本的 .NET Framework，或者 CopyTo 方法未被识别，你可以手动实现流的复制功能。
                End Using
            End Using
        End Using
    End Sub
End Class

Imports System.IO
Imports System.Net

Public Class Form1
    Private WithEvents webClient As New System.Net.WebClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DownloadFile()
    End Sub

    Sub DownloadFile()
        Dim destPath As String = "C:\image3.png"
        Dim url As String = ""
        Dim imageData As Byte() = webClient.DownloadData(url)
        File.WriteAllBytes(destPath, imageData)
    End Sub
End Class

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*7=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情