| 标题 | exe转换16进制的html保存的hta实现代码 |
| 内容 | 代码如下: <!doctype html public -//w3c//dtd html 4.01 transitional//en> <html> <head> <title>package file v0.1</title> <meta http-equiv=content-type content=text/html; charset=gb2312> <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 /> <script language=vbscript> 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 </script> </head> <body marginleft=0 marginright=0 onload=window.resizeto 389,145 > 请选择文件：<input type=file id=srcfile style=width:260px;>[br][br] <input type=button value= 转换 onclick=transfert> <input type=button value= 关闭 onclick=window.close> </body> </html> |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。