VB.NET代码

eenny820

能用VB.NET写一个对接宝塔文件夹的内容下载列表的下载的代码吗 ？

milaoshu1020

只是下载文件列表吗?有没有测试地址?

eenny820

milaoshu1020 发表于 2024-4-25 22:56
只是下载文件列表吗?有没有测试地址?

没有哦，我自己有一宝塔面板，里面有些文件，需要通过VB.NET读取，服务器里面的东西，并且支持下载呢？没接触过这方面的知识。

eenny820

eenny820 发表于 2024-4-26 00:33
没有哦，我自己有一宝塔面板，里面有些文件，需要通过VB.NET读取，服务器里面的东西，并且支持下载呢？没 ...

换句话说，就是想从服务器获取文件信息，并下载，或者通过某网盘列表，获取内容。

milaoshu1020

当然可以。你可以使用VB.NET编写一个程序，通过HTTP请求来获取宝塔文件夹的内容列表，并将其解析成可供下载的链接列表。以下是一个简单的示例代码：

```vb
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions

Module Module1

    Sub Main()
        ' 宝塔文件夹的URL
        Dim folderUrl As String = "https://your-bt-panel.com/files/your-folder/"

        ' 获取文件夹内容列表
        Dim fileList As List(Of String) = GetFileList(folderUrl)

        ' 下载文件
        For Each fileUrl As String In fileList
            DownloadFile(fileUrl)
        Next

        Console.WriteLine("下载完成！")
    End Sub

    Function GetFileList(ByVal folderUrl As String) As List(Of String)
        Dim fileList As New List(Of String)()

        ' 发起HTTP请求
        Dim request As HttpWebRequest = CType(WebRequest.Create(folderUrl), HttpWebRequest)
        request.Method = "GET"

        Try
            ' 获取响应
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Dim reader As New StreamReader(response.GetResponseStream())
            Dim html As String = reader.ReadToEnd()

            ' 使用正则表达式匹配文件链接
            Dim regex As New Regex("<a href=""(.*?)"".*?>.*?</a>")
            Dim matches As MatchCollection = regex.Matches(html)

            For Each match As Match In matches
                Dim fileUrl As String = match.Groups(1).Value
                ' 过滤掉上级目录链接和当前目录链接
                If Not fileUrl.StartsWith("../") AndAlso Not fileUrl = "./" Then
                    fileList.Add(folderUrl + fileUrl)
                End If
            Next

            reader.Close()
            response.Close()
        Catch ex As Exception
            Console.WriteLine("获取文件列表时发生错误： " & ex.Message)
        End Try

        Return fileList
    End Function

    Sub DownloadFile(ByVal fileUrl As String)
        Dim fileName As String = Path.GetFileName(fileUrl)
        Dim localPath As String = "C:\Downloads\" + fileName ' 保存到本地的路径

        Dim client As New WebClient()
        Try
            client.DownloadFile(fileUrl, localPath)
            Console.WriteLine("已下载文件: " & fileName)
        Catch ex As Exception
            Console.WriteLine("下载文件时发生错误： " & ex.Message)
        End Try
    End Sub

End Module
```

请替换代码中的 `your-bt-panel.com` 为你的宝塔面板域名，`your-folder` 为你要下载的文件夹路径。

请注意，此代码仅供参考，并且可能需要根据你的实际情况进行修改和调整。

eenny820

milaoshu1020 发表于 2024-4-26 07:35
当然可以。你可以使用VB.NET编写一个程序，通过HTTP请求来获取宝塔文件夹的内容列表，并将其解析成可供下载 ...

谢谢。我先试试