exe转换16进制的html保存的hta实现代码.pdf

代码如下 : lt;!doctype html public -//w3c//dtd html 4.01 transitional//engt; lt;htmlgt; lt;headgt; lt;titlegt;package file v0.1lt;/titlegt; lt;meta http-equiv=content-type content=text/html; charset=gb2312gt; lt;hta:application 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 /gt; lt;script language=vbscriptgt; function transfert() dim filename filename = document.getelementbyid(srcfile).value if len(filename)gt;0 then dim oreq on error resume next //创建 xmlhttp 对象 set oreq = createobject(msxml2.xmlhttp) oreq.open get,file:\\ amp; 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)lt;2 then s = 0 amp; s end if kk = kk amp; 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 amp; data dim fso,f dim this_file this_file = file amp; -pf.htm set fso = createobject(scripting.filesystemobject) set f = fso.opentextfile(this_file, 2, true) f.write htm msgbox 生成文件 amp; this_file amp; 成功！ ,64,生成 end function lt;/scriptgt; lt;/headgt; lt;body marginleft=0 marginright=0 onload=window.resizeto 389,145 gt; 请选择文件： lt;input type=file id=srcfile style=width:260px;gt;[br][br] lt;input type=button value= 转换 onclick=transfertgt; lt;input type=button value= 关 闭 onclick=window.closegt; lt;/bodygt; lt;/htmlgt;