保存为 .hta 运行
代码如下:
<! doctypehtmlpublic "-// w3c // dtdhtml4.01transitional // en">
<html>
<head>
<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 = "ปกติ"
Navigable = "ใช่"
-
<scriptLanguage = "vbscript">
FunctionTransfert ()
dimfilename
filename = document.getElementById ("srcfile") ค่า
iflen (ชื่อไฟล์)> 0 แล้ว
dimoreq
'onerrorresumenext
'// 创建 xmlhttp 对象
setoreq = createObject ("msxml2.xmlhttp"))
oreq.open "get", "ไฟล์: //" & 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) <2 จากนั้น
s = "0" & s
endif
'kk = kk & s
kk (i) = s