代码如下：
<！doctype html公共” - // W3C // DTD HTML 4.01 Transitional // en>
<html>
<头>
<title>包装文件v0.1 </title>
<meta http-equiv =“ content-type” content =“ text/html; charset = gb2312”>
<hta：应用程序
id =“软件包文件v0.1”
applicationName =“软件包文件v0.1”
版本=“ 0.1”
滚动=“否”
innerborder =“否”
contextMenu =“是”
字幕=“是”
图标=“否”
ShowIntaskBar =“是”
singleSinstance =“是”
sysmenu =“是”
最大化布顿=“否”
WindowState =“正常”
导航=“是”
/>
<脚本语言=“ vbscript”>
函数转移（）
DIM文件名
filename = document.getElementById（“ srcfile”）。值
如果Len（文件名）> 0
昏暗的Oreq
'错误简历下一步
'//创建xmlhttp对象
set oreq = createObject（“ msxml2.xmlhttp”）
oreq.open“ get”，“ file：//”＆fileName，false
Oreq.Send
ff = oreq.responsebody
Dim U，S，KK
u = lenb（ff）
Redim KK（U-1）
对于i = 0到U-1
s = hex（ASCB（MIDB（ff，i+1,1）））））
如果len（s）<2
S =“ 0”＆S
如果结束
'kk = kk＆s
kk（i）= s
下一个
制作文件名，加入（KK，“”）
别的
document.getElementById（“ srcfile”）。焦点
msgbox“请选择要压缩的文件”，16，“提示”
如果结束
结束功能
功能制作（文件名，数据）
昏暗的HTM，文件
file = mid（filename，instrrev（文件名，“/”）+1）
htm = htm＆data
Dim FSO，f
dim this_file
this_file = file＆“ -pf.htm”
set fso = createObject（“ scripting.filesystemobject”）
设置f = fso.opentextfile（this_file，2，true）
F.Write HTM
msgbox“生成文件”＆this_file＆“ 成功！”，64，“生成”
结束功能
</script>
</head>
<车身marginleft = 0 marginright = 0 onload =“ window.resizeto 389,145”>
：<input type = file id =“ srcfile”> [br] [br]
<input type = button value =“转换”
</body>
</html>