十六进制格式转为html,exe转换16进制的html保存的hta实现代码.pdf

代码如下 :

//w3c//dtd html 4.01 transitional//en>

package file v0.1

id=package file v0.1

applicationname=package file v0.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

/>

function transfert()

dim filename

filename = document.getelementbyid(srcfile).value

if len(filename)>0 then

dim oreq

'on error resume next

'//创建 xmlhttp 对象

set oreq = createobject(msxml2.xmlhttp)

oreq.open get,file:\\ & filename,false

oreq.send

ff = oreq.responsebody

dim u,s,kk

u = lenb(ff)

redim kk(u-1)

for i=0 to u-1

s = hex(ascb(midb(ff,i+1,1)))

if len(s)<2 then

s = 0 & s

end if

'kk = kk & s

kk(i) = s

next

make filename,join(kk,)

else

document.getelementbyid(srcfile).focus

msgbox 请选择要压缩的文件 ,16,提示

end if

end function

function make(filename,data)

dim htm,file

file = mid(filename,instrrev(filename,\)+1)

htm = htm & data

dim fso,f

dim this_file

this_file = file & -pf.htm

set fso = createobject(scripting.filesystemobject)

set f = fso.opentextfile(this_file, 2, true)

f.write htm

msgbox 生成文件 & this_file & 成功！ ,64,生成

end function

请选择文件： [br][br]

闭 οnclick=window.close>