以下代码保存成 hta 文件 ， 可生成 js 和 vbs 下载者
代码如下::
<Hta: Anwendung
Id = "xmldown"
Caption = "Ja"
Scroll = "auto"
Border = "keine"
BORDERSYLE = "statisch"
SingleInInstance = "Ja"
maximizeButton = "nein"
Border = "Nein"
icon = "dxdiag.exe">
<script Language = VBS>
Sub window_onload
window.Resizeto Bildschirm.WIDTH/1.6, Bildschirm.Height/3
Fenster.Moveto 200.200
Ende sub
Sub createxml (Pfad, Datei)
Setzen Sie objstream = CreateObject ("adodb.stream")
objstream.type = 1
objstream.open ()
objstream.loadfromfile (Pfad)
objstream.position = 0
Setzen Sie xmldoc = createObject ("microsoft.xmldom").
Xmldoc.async = false
Setzen Sie root = xmldoc.createprocessingInstruction ("xml", "Version = '1.0' coding = 'utf-8'").
Xmldoc.appendchild (root)
Xmldoc.appendchild (xmldoc.createelement ("root"))
Setzen Sie xFile = xmldoc.selectsinglenode ("// root"). AppendChild (xmldoc.createelement ("Datei"))
Setzen Sie 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 (Datei)
Setzen Sie xmldoc = nichts
Stammestelle = nichts
Setzen Sie Objstream = nichts
Ende sub
Funktion X (OBJ)
Setzen Sie x = document.getElementById (OBJ)
Endfunktion
Funktion findFile (str)
Setzen Sie fso = createObject ("scripting.filesystemObject").
Wenn fso.FileExists (STR) dann
findFile = true
Anders
findFile = false
Ende wenn
Endfunktion
Funktion jsdown ()
Setzen Sie fso = createObject ("scripting.filesystemObject").
mit fso.opentextFile ((createObject ("wscript.shell")). CurrentDirectory & "/jsdown.js", 2, True)
.Write X ("JSDown"). Wert
enden mit
Endfunktion
Funktion vbsdown ()
Setzen Sie fso = createObject ("scripting.filesystemObject").
mit fso.opentextFile ((createObject ("wscript.shell")). CurrentDirectory & "/vbsdown.vbs", 2, true)
.Write X ("VBSdown"). Wert
enden mit
Endfunktion
</script>
<body>
<h4> 1. 生成下载用的 xml 文件 </h4>
选择下载的 exe 文件 ： <Eingabe type = Dateiname = "Datei1" id = "Datei1" size = "20">
保存路径 <Eingabe type = text name = "path" id = "pathname" value = "c:/down.xml" size = "20">
<input type = "button" value = "生成 xml 文件" onclick = 'vbs: createxml x ("Datei1"). Wert, x ("Pathname"). Wert: wenn findFile (x ("pathname"). value) = true dann dann msgbox ("生成成功 ， 请传到某个空间 请传到某个空间"): x ("url"). InnerHtm = "). InnerHtm ="). InnerHtm = "). InnerHtm ="). color = rot> 生成成功 ， 请传到某个空间 </font> "'> <br>
<h4> 2. 生成下载者 </h4>
<button onclick = 'vbs: jsdown (): wenn findFile ("jsdown.js") = th dann dann msgbox "生成成功": x ("url"). InnerHtml = "用法是 cscript jsdown.js xmlurl SavePath"'> 生成 JS 下载者 </button> <button> <button ungenclick = 'VBSdown (): ") VBSD. = true dann dann msgbox "生成成功": x ("url"). innerHtml = "<font color = blau> 用法是 cscript vbdown.js xmlurl SavePath </font>" '> 生成 VBS 下载者 </button