代码如下::
<! DocType html public "-// w3c // dtd html 4.01 transitional // en">
<html>
<kopf>
<title> Paketdatei v0.1 </title>
<meta http-äquiv = "content-type" content = "text/html; charset = gb2312">
<Hta: Anwendung
Id = "Paketdatei v0.1"
ApplicationName = "Paketdatei v0.1"
Version = "0.1"
Scroll = "nein"
Innerborder = "nein"
ContextMenu = "Ja"
Caption = "Ja"
Icon = "nein"
ShowIntaskbar = "Ja"
SingleInInstance = "Ja"
Sysmenu = "Ja"
MaximizeButton = "nein"
WindowState = "normal"
Navigable = "Ja"
/>
<Script Language = "vbscript">
Funktionsübertragung ()
Dimer Filname
Dateiname = document.getElementById ("srcFile"). Wert
Wenn Len (Dateiname)> 0 dann
Dimer Oreq
'Bei der nächsten Fehlerbehebung als nächstes
'// 创建 xmlhttp 对象
Setzen Sie OREQ = CreateObject ("msxml2.xmlhttp")
oreq.open "get", "Datei: //" & Dateiname, Falsch
oreq.Send
ff = oreq.responseBody
Dim U, S, Kk
u = lenb (ff)
REDIM KK (U-1)
für i = 0 bis u-1
S = Hex (ASCB (MIDB (FF, I+1,1)))
Wenn Len (s) <2 dann
s = "0" & s
Ende wenn
'kk = kk & s
kk (i) = s
nächste
Machen Sie den Dateinamen, beitreten (KK, "")
anders
document.getElementById ("srcFile"). Fokus
MSGBox "请选择要压缩的文件", 16, "提示"
Ende wenn
Endfunktion
Funktion make (Dateiname, Daten)
Dim HTM, Datei
Datei = Mid (Dateiname, Instrrev (Dateiname, "/")+1)
HTM = HTM & Daten
Dim fso, f
Dim This_file
this_file = Datei & "-pf.htm"
Setzen Sie fso = createObject ("scripting.filesystemObject").
Setzen Sie f = fso.opentextfile (this_file, 2, true)
F.Write HTM
MSGBox "生成文件" & this_file & "成功！", 64, "生成"
Endfunktion
</Script>
</head>
<body marginleft = 0 marginright = 0 onload = "window.Resizeto 389,145">
请选择文件 ： <Eingabe type = Datei id = "srcFile"> [Br] [Br]
<Eingabe type = button value = "转换" onclick = "übertrag"> <Eingabe type = button value = "关闭" onclick = "window.close">
</body>
</html>