保存为 .hta ta
代码如下 :
<! 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 = "예"
SingleInstance = "예"
sysmenu = "예"
maximizebutton = "no"
Windowstate = "정상"
Navigable = "예"
/>
<scriptLanguage = "vbscript">
functiontransfert ()
Dimfilename
filename = document.getElementById ( "srcfile"). 값
iflen (filename)> 0then
디모레크
'onerrorresumenext
'// m 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 = 16 진수 (ASCB (MIDB (FF, I+1,1)))
iflen (s) <2then
s = "0"& s
endif
'KK = KK & S
kk (i) = s