保存為.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