保存为 .hta 运行
代码如下:
<! doctypehtmlpublic "-// w3c // dtdhtml4.01trantional // en">
<html>
<head>
<title> packagefilev0.1 </itlem>
<metahttp-equiv = "content-type" content = "text/html ؛ charset = gb2312">
<hta: التطبيق
id = "packagefilev0.1"
ApplicationName = "packagefilev0.1"
الإصدار = "0.1"
Scroll = "لا"
innerborder = "لا"
ContextMenu = "نعم"
Caption = "نعم"
أيقونة = "لا"
ShowIntaskBar = "نعم"
SingleInstance = "نعم"
sysmenu = "نعم"
MailasizedButton = "لا"
WindowState = "Normal"
sevigable = "نعم"
/>
<scriptLanguage = "vbscript">
FunctionTransfert ()
dimfilename
filename = document.getElementById ("srcfile"). القيمة
iflen (اسم الملف)> 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