保存为 .hta 运行
代码如下:
<!
<html>
<head>
<title> PackageFilev0.1 </ititle>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<HTA: Aplicação
Id = "PackageFilev0.1"
ApplicationName = "PackageFilev0.1"
Versão = "0.1"
Scroll = "não"
INNERBORDER = "NÃO"
Contextmenu = "sim"
Legenda = "Sim"
Icon = "não"
ShowIssaskbar = "Sim"
SingleInstance = "Sim"
Sysmenu = "sim"
MaximizeButton = "não"
Windowstate = "Normal"
Navegável = "sim"
/>
<ScriptLanguage = "vBScript">
functionTransfert ()
Dimfilename
FileName = document.getElementById ("srcfile")
iflen (nome do arquivo)> 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 (s) <2Then
s = "0" & s
endif
'KK = KK & S.
kk (i) = s