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>