网络编程 
首页 > 网络编程 > 浏览文章

通过修改referer下载文件的方法

(编辑:jimmy 日期: 2025/12/13 浏览:3 次 )
GetFile.wsc
复制代码 代码如下:
<?xml version="1.0" encoding="gb2312"?> 
<component> 
  <?component error="true" debug="true"?> 
  <public> 
    <property name="Referer" /> 
    <property name="Content" /> 
    <property name="Data" /> 
    <method name="GetFile"> 
      <parameter name="URL" /> 
    </method> 
    <method name="Save"> 
      <parameter name="Path" /> 
    </method> 
  </public> 
  <implements type="Behavior"> 
    <event name="ondowncomplete" /> 
  </implements> 
  <object progid="Microsoft.XmlHttp" id="Http" /> 
  <script language="javascript"> 
  <![CDATA[ 
var Referer, Content, Data; 
var Stream = new ActiveXObject("ADODB.Stream"); 
Stream.Type = 1; 
function onReady() 

  if(Http.readyState == 4) 
  { 
    Content = Http.responseText; 
    Data = Http.responseBody; 
    fireEvent("ondowncomplete"); 
    Http.abort(); 
  } 

function GetFile(URL) 

  Http.onreadystatechange = onReady; 
  Http.open("GET", URL, true, "", ""); 
  if(Referer) Http.setRequestHeader("Referer", Referer); 
  Http.send(null); 

function Save(Path) 

  Stream.Open(); 
  Stream.Write(Data); 
  Stream.SaveToFile(Path, 2); 
  Stream.Close(); 

  ]]> 
  </script> 
</component>  

test.hta
复制代码 代码如下:
<html><head><script> 
var Down = document.createElement("Comment"); 
document.lastChild.lastChild.appendChild(Down); 
Down.style.behavior="url(GetFile.wsc)"; 
Down.ondowncomplete = function() 

  //document.write(Down.Content); 
  Down.Save(SaveTo.value); 
  Go.disabled=0; 
  alert("OK"); 

function GetFile() 

  Go.disabled = 1; 
  Down.Referer = Referer.value; 
  Down.GetFile(URL.value); 

</script> 
</head><body> 
URL: <input id="URL" size="50" value="http://www.booksky.biz/SendFile.aspx?FileID=15531"><br> 
Referer: <input name="Referer" size="40" value="http://www.booksky.biz"><br> 
SaveTo: <input name="SaveTo" size="40" value="D:\Test.gif"><br> 
<input id="Go" type=button value="下载" onclick="GetFile()"> 
</body></html> 
上一篇:不会死机的js 格式代码
下一篇:JS启动应用程序的一个简单例子
一句话新闻
微软与英特尔等合作伙伴联合定义“AI PC”:键盘需配有Copilot物理按键
几个月来,英特尔、微软、AMD和其它厂商都在共同推动“AI PC”的想法,朝着更多的AI功能迈进。在近日,英特尔在台北举行的开发者活动中,也宣布了关于AI PC加速计划、新的PC开发者计划和独立硬件供应商计划。
在此次发布会上,英特尔还发布了全新的全新的酷睿Ultra Meteor Lake NUC开发套件,以及联合微软等合作伙伴联合定义“AI PC”的定义标准。
友情链接:杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网 网站地图 SiteMap