保存为.hta运行
代码如下：
<！doctypehtmlpublic“ - // w3c // dtdhtml4.01transitional // en>
<html>
<头>
<title> packagefilev0.1 </title>
<metahttp-equiv =“ content-type” content =“ text/html; charset = gb2312”>
<hta：应用程序
id =“ packagefilev0.1”
applicationName =“ packagefilev0.1”
版本=“ 0.1”
滚动=“否”
innerborder =“否”
contextMenu =“是”
字幕=“是”
图标=“否”
ShowIntaskBar =“是”
singleSinstance =“是”
sysmenu =“是”
最大化布顿=“否”
WindowState =“正常”
导航=“是”
/>
<ScriptLanguage =“ VBScript”>
functionTransfert（）
dimfilename
filename = document.getElementById（“ srcfile”）。值
iflen（filename）> 0
Dimoreq
'Onerresumenext
'//创建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）<2
s =“ 0”＆s
Endif
'kk = kk＆s
kk（i）= s