GetFile. WSC
CopyCode The 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 the Code the code is as follows:
URL:
Referer:
saveto:
