VS2010旗舰版VB.NET版本爬虫爬取图片代码

Imports System.Net

Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
’ 获取文本框中的 URL
Dim imageUrl As String = TextBox1.Text

    ' 调用下载图片的方法
    Try
        DownloadImage(imageUrl)
        MessageBox.Show("图片下载成功！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MessageBox.Show("下载失败: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

Private Sub DownloadImage(ByVal url As String)
    ' 指定保存图片的路径
    Dim saveFilePath As String = "C:\Users\Administrator\Desktop\爬虫爬取图片\爬虫爬取图片\bin\Debug\1.jpg"

    ' 创建网络客户端
    Using client As New WebClient()
        ' 创建目录，如果不存在的话
        Dim directory As String = System.IO.Path.GetDirectoryName(saveFilePath)
        If Not System.IO.Directory.Exists(directory) Then
            System.IO.Directory.CreateDirectory(directory)
        End If

        ' 下载图片并保存
        client.DownloadFile(url, saveFilePath)
    End Using
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    TextBox1.Text = "https://img0.baidu.com/it/u=3770148107,3711347534&fm=253&fmt=auto&app=138&f=JPEG?w=500&h=313"

End Sub

End Class