Board logo

标题: 保存远程图片到本地(已解决) [打印本页]
作者: chinanic    时间: 2007-4-9 05:02     标题: 保存远程图片到本地(已解决)

  1. Public Function GetRealData(strURL)
  2.    dim xmlHttp
  3.    set xmlHttp=server.createobject("MSXML2.XMLHTTP")
  4.    xmlHttp.open "GET",strURL,false
  5.    xmlHttp.send
  6.    if xmlHttp.readystate<>4 then
  7.           exit function
  8.    end if
  9.    GetRealData=xmlhttp.responsebody
  10.    set xmlHttp=nothing
  11. End Function
复制代码
如果地址是这种形式就能得到数据：
http://bbs.thysea.com/images/smilies/13.gif
像下面这种形式的地址就得不到数据。
http://www.booksky.biz/SendFile.aspx?FileID=7658


求解，谢谢先！

[ 本帖最后由 坏的刚刚好 于 2007-6-15 22:15 编辑 ]
作者: chinanic    时间: 2007-4-9 05:53

MLGBD，仔细一看，原来是防盗链的。。。
作者: 左人男    时间: 2007-4-9 15:12

MLGBD
这个什么意思？
作者: windfree    时间: 2007-4-9 16:56

不是很明白，估计是两者连接方式的不同把，前者图片直接发放在网上，后者则规定必须在特定网页下才能打开。
xmlHttp.open "GET",          （这表示如果xmlHttp开者，则能打开连接）
strURL,false                       （这表示如果直接以strURL方式，则失败）
以上纯属个人看法（本人无制作网站经验及足够的相关知识）所以竟供参考。
作者: 黑色叶子    时间: 2007-4-9 17:24

防盗连并非什么高技术,也没什么多大必要
作者: chinanic    时间: 2007-4-9 22:07

唉，那网站用了防盗链，用XMLHTTP不行，但用FLASHGET下载，郁闷啊。。
作者: chinanic    时间: 2007-4-10 05:52

用VB做个组件，
用Microsoft Internet Transfer 控件，结果是不行。。

用Winsock，貌似行，不断试验中。。
作者: chinanic    时间: 2007-5-7 07:04

用winsock成功做了一个下载器。但组件编程不支持Winsock控件。。。只能用WinsockAPI试试。



欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/) Powered by Discuz! 7.2