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

GetFile.wsc

复制代码 代码如下:

 
 
   
   
     
     
     
     
       
     
     
       
     
   
   
     
   
   
   
  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(); 
} 
  ]]> 
   
  

test.hta

复制代码 代码如下:

 
 
URL: 
 
Referer: 
 
SaveTo: