R语言利用RCurl下载验证码图片

这里有一个网站的验证码图片需要给定的header才能正常显示, ?token=prrX73LtmN_63uEcKh0a2Z1opo1ZgdcBJ 如果你直接打开它的话，会发现没有任何图案，因此通过普通的get是不能够实现的，必须要加上header的参数来获取验证码图。 代码很简单，如下：

library(RCurl)myHttpheader <- c( “Accept”=”image/webp,*/*;q=0.8”, “Accept-Encoding”=”gzip,deflate,sdch”, “Accept-Language”=”zh-CN,zh;q=0.8”, “Cache-Control”=”no-cache”, “Connection”=”keep-alive”, “Pragma”=”no-cache”, “Referer”=”http://bbs.shangdu.com/s/regform.htm”, “User-Agent”=”Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.124 Safari/537.36”)png <- getBinaryURL(“http://push.shangdu.com/regcode.php?token=prrX73LtmN_63uEcKh0a2Z1opo1ZgdcBJ”,httpheader=myHttpheader)writeBin(png, con = “C:/123.png”) #保存图片shell.exec(tf) #显示图片

，不知道来年，会不会开出一地的记忆和忧愁。