保存为 .hta 运行
代码如下:
<! Doctypehtmlpublic "- // w3c // dtdhtml4.01transitional // en">
<html>
<adal>
<Title> PackageFilev0.1 </Title>
<Metahttp-Equiv = "Content-Type" Content = "Text / Html; charSet = GB2312">
<HTA: application
Id = "packagefilev0.1"
ApplicationName = "packagefilev0.1"
Version = "0,1"
Scroll = "non"
Innerborder = "no"
ContextMenu = "Oui"
Légende = "Oui"
Icon = "non"
Showintaskbar = "Oui"
Singleinstance = "Oui"
Sysmenu = "Oui"
Maximiserbutton = "no"
Fenêtre = "normal"
Navigable = "Oui"
/>
<criptLanguage = "vbscript">
functionTransfert ()
dimfilename
filename = document.getElementById ("srcfile").
iflen (nom de fichier)> 0
dimoreq
'onerrorreumenext
'// 创建 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 (s) <2THEN
s = "0" & s
endire
'kk = kk & s
kk (i) = s