保存为 .hta 运行
代码如下:
<! Doctypehtmlpublic "-// w3c // dtdhtml4.01transitional // en">
<Html>
<head>
<title> packageFilev0.1 </title>
<metahttp-equiv = "konten-tipe" content = "text/html; charset = gb2312">
<HTA: Aplikasi
Id = "packageFilev0.1"
ApplicationName = "PackageFilev0.1"
Versi = "0.1"
Gulir = "tidak"
Batin = "tidak"
ContextMenu = "Ya"
Keterangan = "Ya"
Ikon = "tidak"
ShowInkBar = "ya"
SingleInstance = "Ya"
Sysmenu = "ya"
MaximizeButton = "Tidak"
WindowState = "Normal"
Navigable = "ya"
/>
<ScriptLanguage = "vbscript">
functionTransfert ()
Dimfilename
filename = document.geteLementById ("srcfile"). nilai
iflen (nama file)> 0then
dimoreq
'OnerRorresUMenext
'// 创建 xmlhttp 对象
setoreQ = createObject ("msxml2.xmlhttp")
oreq.open "get", "file: //" & fileName, false
Oreq.Send
ff = oreq.responseBody
Dimu, S, KK
u = lenb (ff)
redimkk (u-1)
fori = 0tou-1
s = hex (ascb (midb (ff, i+1,1))))
Iflen <) <2then
s = "0" & s
endif
'kk = kk & s
kk (i) = s