请教一个PC端下载的问题 [复制链接]

PC端 怎么可以实现下载网络图片，还有视频 以下代码好像成功过，但是后面发现不行。
// 保存网络视频
Function 保存文件视频(文件链接, 保存路径)

保存文件视频 = false

' 创建HTTP请求对象

Dim http

Set http = CreateObject("Microsoft.XMLHTTP")



' 发送GET请求

http.Open "GET", 文件链接, False

http.Send



' 检查HTTP响应状态

If http.Status = 200 Then

' 创建文件系统对象

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")


' 创建或打开文件以保存视频

Dim file

Set file = fso.OpenTextFile(保存路径, 2, True)



' 将视频内容写入文件

file.Write(http.ResponseBody)



' 关闭文件

file.Close



' 输出成功消息

SaveVideo = true

Else

' 输出错误消息

MsgBox "无法下载视频文件。HTTP状态码: " & http.Status

End If



' 清理对象

Set file = Nothing

Set fso = Nothing

Set http = Nothing
End Function