Home > Developer > JavaScript
GetFile. wsc
Copy codeThe Code is as follows:
<? 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
Copy codeThe Code is as follows:
<Html> 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 = "Download" onclick = "GetFile ()">
</Body>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
