足球游戏_中国足彩网¥体育资讯$

exe转换16进制的html保存的hta实现代码
来源:易贤网 阅读:1652 次 日期:2014-08-12 17:07:19
温馨提示:易贤网小编为您整理了“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=gbk">

<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>

中国足彩网信息请查看IT技术专栏

中国足彩网信息请查看脚本栏目
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标