保存为 .hta 运行
代码如下:
<! 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"
Scroll = "Нет"
Innerborder = "Нет"
Contextmenu = "Да"
Подпись = "Да"
Icon = "Нет"
Showintaskbar = "Да"
SingleInstance = "Да"
Sysmenu = "Да"
MaximizeButton = "Нет"
WindowState = "Нормальный"
Навигал = "Да"
/>
<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 (ы) <2Then
S = "0" & s
эндиф
'kk = kk & s
kk (i) = s