保存为.hta运行
代码如下:
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN">
<html>
<head>
<title>packagefilev0.1</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GB2312">
<HTA:APPLICATION
ID="packagefilev0.1"
APPLICATIONNAME="packagefilev0.1"
VERSION="0.1"
SCROLL="no"
INNERBORDER="no"
CONTEXTMENU="yes"
CAPTION="yes"
ICON="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
MAXIMIZEBUTTON="no"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
<SCRIPTLANGUAGE="VBScript">
functiontransfert()
dimfilename
filename=document.getElementById("srcFile").value
iflen(filename)>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