保存为 .hta 运行
代码如下:
<! DOCTYPEHTMLPublic "-// w3c // dtdhtml4.01transitional // en">
<html>
<Evista>
<title> paquetefilev0.1 </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<HTA: aplicación
Id = "paquetefilev0.1"
ApplicationName = "PAGACEFILEV0.1"
Versión = "0.1"
Scroll = "No"
InnerBorder = "no"
ContextMenu = "Sí"
Subtítulos = "Sí"
Icon = "no"
ShowInTaskBar = "Sí"
SingleInstance = "Sí"
Sysmenu = "sí"
MaximizeButton = "no"
WindowState = "Normal"
Navegable = "Sí"
/>
<ScriptLanguage = "vBscript">
FunctionTransfert ()
nombre de dimfilenia
filename = document.getElementById ("srcfile"). valor
iflen (nombre de archivo)> 0
dimoreq
'OnerrorResumEnext
'// 创建 xmlhttp 对象
setoreq = createObject ("msxml2.xmlhttp")
Oreq.open "Get", "archivo: //" y nombre de archivo, falso
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" y S
endif
'kk = kk & s
kk (i) = s