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

由于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.SendWith 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

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

活动时长计算尝试用Lambada 实现责任链的代码优化
文章目录活动时长计算尝试用Lambada 实现责任链的代码优化原流程原代码主控流程计算标准费率时长子过程电访和面访活动计算标准费率时长路演活动计算标准费率时长问卷活动计算标准费率时长 ...
单机十万并发HLS直播服务器的防盗链技术
单机十万并发HLS直播服务器的防盗链技术本文主要介绍基于HLS直播服务器的十万并发防盗链实现录制切片服务器 HTTP 服务器 (nginx) LuaLib 录制切片服务器录制切片服务器负责把直播 ...
PHP防盗链的基本思想防盗链的设置方法
盗链是指服务提供商自己不提供服务的内容,通过技术手段绕过其它有利益的最终用户界面(如广告),直接在自己的网站上向最终用户提供其它服务提供商的服务内容,骗取最终用户的浏览和点击率.受益者不提供资源或提供 ...
ATS中开启Refer防盗链功能
ATS默认提供了对Referer头的http request的防盗链功能,主要应用于图片,对视频等会使用级别更高的防盗链功能,比如事先约定好key,采用md5或HMAC-Sha1算法加密等. 在rem ...
Linux-LNMP(静态元素不记录日志和过期时间，防盗链，解析php，代理，支持ssl)
Linux-LNMP-Nginx配置二静态文件不记录日志和过期时间 Nginx防盗链 Nginx访问控制 Nginx解析php相关配置 Nginx代理 Nginx负载均衡 SSL原理生成SSL密钥 ...
Nginx防盗链，Nginx访问控制， Nginx解析php相关配置， Nginx代理
2019独角兽企业重金招聘Python工程师标准>>> Nginx防盗链 Nginx防盗链配置需要与不记录日志和过期时间结合在一起,因为都用到了location. 打开配置文件,注释 ...
Asp.net下实现隐藏真实下载地址（可以实现简单的防盗链）
现在随着FlashGet和xunlei等下载工具的日益普及,下载网站的一些下载地址都能直接被捕获到,,但是有些时候为了防盗链或权限限制不想对地址进行暴露,对于Asp.net下的防盗链有很多方法,我这里 ...
Nginx+keepalived 实现高可用，防盗链及动静分离配置
一.Nginx Rewrite 规则 1. Nginx rewrite规则 Rewrite规则含义就是某个URL重写成特定的URL(类似于Redirect),从某种意义上说为了美观或者对搜索引擎友好, ...
nginx rewrite重写与防盗链配置
nginx rewrite重写规则与防盗链配置方法时间:2016-02-04 15:16:58来源:网络导读:nginx rewrite重写规则与防盗链配置方法,rewrite规则格式中flag标 ...

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

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

最新文章

热门文章