因为PPBC的防盗链，尝试用vba的对象来解决，顺便复习一下。。。

最新推荐文章于 2023-01-09 16:55:08 发布

画芷香

最新推荐文章于 2023-01-09 16:55:08 发布

阅读量6.1k

点赞数 1

分类专栏： vba

本文链接：https://blog.csdn.net/hzx3739/article/details/50322505

版权

vba 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种解决PPBC网站防盗链问题的方法，通过使用WinHTTP对象而非XMLHTTP对象并设置referer头来成功获取受保护的图片资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

由于PPBC的防盗链，从其他网站打开图片链接：

http://img.plantphoto.cn/image2/b/351969.jpg

你不会看到图片的真是内容，此时需要设置referer

当尝试添加referer之后还是没用。

后来发现使用的是xmlhttp对象，而xmlhttp设置referer是无效的，于是改用winhttp对象，成功。

Sub test()
For i = 1 To 10
a = "http://www.plantphoto.cn"
a2 = Cells(i, 1).Value  'http://img.plantphoto.cn/image2/b/351969.jpg
Set ie = CreateObject("WinHttp.WinHttpRequest.5.1")
ie.Open "GET", a2, False
ie.setRequestHeader "Referer", a
ie.Send

With CreateObject("ADODB.Stream")
.Type = 1
.Open
.write ie.Responsebody
.savetofile ThisWorkbook.Path & "\" & i & ".jpg", 2
.Close
End With
'Set ie = Nothing
Next
MsgBox "over"
End Sub