保存为 .hta 运行
代码如下::
<! DocTypEHtmlPublic "-// w3c // dtdhtml4.01Transitional // en">
<html>
<kopf>
<title> packageFilev0.1 </title>
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312">
<Hta: Anwendung
Id = "packageFilev0.1"
ApplicationName = "packageFilev0.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"
/>
<Scriptuanguage = "vbscript">
Funktionstransfert ()
Dimfilename
Dateiname = document.getElementById ("srcFile"). Wert
iflen (Dateiname)> 0Then
Dimoreq
'onErrorresumenext
'// 创建 xmlhttp 对象
setoreq = createObject ("msxml2.xmlhttp"))
oreq.open "get", "," Datei: // "& Dateiname, false
oreq.Send
ff = oreq.responseBody
Dimu, S, Kk
u = lenb (ff)
redimkk (u-1)
fei = 0tou-1
S = Hex (ASCB (MIDB (FF, I+1,1)))
iflen (s) <2then
S = "0" & s
Endif
'kk = kk & s
kk (i) = s