VBA从受ddos保护的网站下载文件

Sub DownloadFileFromProtectedWebsite()
    Dim url As String
    Dim http As Object
    Dim fileStream As Object
    
    ' 设置下载文件的URL
    url = "https://example.com/file-to-download.txt"
    
    ' 创建HTTP请求对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    http.Open "GET", url, False
    http.send
    
    ' 创建文件流对象
    Set fileStream = CreateObject("ADODB.Stream")
    
    ' 设置文件流类型为二进制
    fileStream.Type = 1
    
    ' 打开文件流
    fileStream.Open
    
    ' 写入HTTP响应内容到文件流
    fileStream.Write http.responseBody
    
    ' 保存文件流到本地文件
    fileStream.SaveToFile "C:\path\to\save\file.txt"
    
    ' 关闭文件流
    fileStream.Close
    
    ' 释放对象
    Set fileStream = Nothing
    Set http = Nothing
    
    MsgBox "文件下载完成！"
End Sub