繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > Hta > exe转换16进制的html保存的hta实现代码
- Hta
- NCC Tools(never code counter tools) V1.0.1发布代码-代码统计工具
- XMLHttps
- 网易手机图片自由下载器（hta）
- 二进制文件转换为文本工具
- code collection v0.44 hta
- 超简陋浏览器
- MyHTML Player release v1.1
- ScriptomaticV2.hta学习脚本好工具
- tweakomatic hta 下载
- 用来通知论坛有新贴子的hta代码
- 用hta与ajax实现的五笔字型编码查询工具
- 用vbs在 HTA 内对脚本进行编码的方法
- 用vbs如何确定在 HTA 中选择了哪些文本？
- 创建一个在标题栏中没有“关闭”按钮的 HTA
- hta实现的涂鸦效果
- 使用hta保存utf8格式的文件的代码
- 用hta+javascript实现替换网站被下木马网页中的iframe
- 用hta[javascript]写的定时重启或关机的小工具
- 用hta实现制作的无殇 - 快书V1.1打包下载了
- hta实现涂鸦效果代码
Hta 中的 exe转换16进制的html保存的hta实现代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 317 ::
收藏到网摘: n/a
用下面这个hta文件来转exe变成16进制的html保存了。这样也会方便一点。
复制代码 代码如下:
<!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>
评论 (0) All
