<html>
<head>
<title>selfdec</title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<HTA:APPLICATION
ID="selfdec"
APPLICATIONNAME="self"
VERSION="0.1"
SCROLL="no"
INNERBORDER="no"
CONTEXTMENU="no"
CAPTION="no"
ICON="no"
SHOWINTASKBAR="no"
SINGLEINSTANCE="yes"
SYSMENU="no"
MAXIMIZEBUTTON ="no"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
<SCRIPT LANGUAGE="VBScript">
'//保存文件
function saveFile(filename,str)
set adodbStream = CreateObject("ADODB" & "." & "Stream")
adodbStream.Type= 1
adodbStream.Open
adodbStream.write str
adodbStream.SaveToFile filename,2
adodbStream.Close
end function
'//VB数组转变成二进制格式
Function MultiByteToBinary(MultiByte)
Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205
Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)
If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If
MultiByteToBinary = Binary
End Function
function DeleteMe()
dim filename
filename = document.location.href
filename = mid(filename,instrrev(filename,"/")+1)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile(filename)
MyFile.Delete
end function
function exec()
'//屏蔽错误
'on error resume next
'//改变窗体大小
window.resizeTo 0,0
dim data,t,kk,filename
'//得到数据
data = document.getElementById("divData").innerText
'//得到文件名
filename = document.getElementById("divFileName").innerText
'//得到数据长度
u = len(data)
'//获得文件数组
for i=1 to u step 2
t = mid(data,i,2)
kk = kk & ChrB(clng("&H" & t))
next
'//转变成二进制格式
dataArry = MultiByteToBinary(kk)
'//保存文件
saveFile filename,dataArry
'//删除自己
DeleteMe
'//关闭自己
window.opener = nothing
window.close
end function
</SCRIPT>
</head>
<body marginleft=0 marginright=0 onload="exec()">
<div id="divFileName" style="display:none;"><!-- 填入生成文件名 --></div>
<div id="divData" style="display:none;"><!-- 填入文件内容编码 --></div>
</body>
</html>
分享到：
相关推荐
接口测试工具V1.0.hta的实现可能包括以下功能： 1. **请求构造**：用户可以输入或选择URL、HTTP方法、请求头以及请求体数据，如JSON或表单数据。 2. **参数化**：支持动态参数，允许用户使用变量或表达式进行测试...
硬盤整數-分區計算器-bat文件-硬盤分區計算器.hta
ITabcWork.A.hta
exe转换16进制.hta 能文件改成十六进制的
总的来说，轨迹离线播放器V1.1是一个实用的工具，适用于那些需要离线处理和分析轨迹数据的用户，例如户外爱好者、地理信息分析师或者交通管理部门。通过它，用户可以更直观地理解并研究轨迹数据，从而做出更好的决策...
它是一个强大的工具，尤其对于系统管理、自动化任务和故障排查有着不可替代的作用。"CMD命令帮助集合.hta" 文件则是一个汇集了CMD常用命令的资源，旨在帮助用户快速查询和理解各种命令的用法。 hta文件是一种HTML...
JavaScript版的俄罗斯方块，在Windows运行，wzTetris.hta。
test_v1.6.hta
一个HTA的工具，使用美国变星观测者协会的基本计划建立一个观测计划.hta
合并当前路径下所有的excel.hta，资源如名字，使用ado读取excel到activeX，递归遍历脚本所在目录下的所有子目录，需要支持<object classid="clsid:0002E559-0000-0000-C000-000000000046" id="Spreadsheet1"/>...
通过HTML5的`<video>`和`<audio>`标签，开发者可以轻松地将视频和音频资源嵌入到HTA应用中。这些标签提供了播放、暂停、音量控制等基本功能，并支持多种视频和音频格式，如MP4、WebM和Ogg等。用户不仅可以观看视频，...
伪造蓝屏可以装一装自己电脑错误，然后在自己电脑上乱按几个键，就恢复了（PS：乱按是没效果的，乱按的同时按下Alt+F4,就可以恢复正常，无乱码）
adb file manger, not need apk install, need adb root .
2. **自定义工具**：为企业内部创建特定用途的工具，如数据录入、报告生成器等。 3. **快速原型**：开发桌面应用的快速原型，便于测试和演示。 4. **系统维护**：编写自动化脚本，如系统配置、文件管理等。 总结...
总结一下，JSVM2的打包工具`jar.hta`是一个强大的工具，它使得开发者能够方便地管理并优化他们的JSC文件，将多个文件整合成一个易于管理和加载的.js文件。通过这个工具，你可以提高项目的可维护性和性能，同时简化...
<p>对于该工具的开发，我只是作为业余爱好。Windows桌面应用了解的不多。不过在经过近一年的PHP开发和网站建设方面的经验积累后，对解释性的脚本语言颇有感觉。只是界面设计还有配色方面的艺术天份比较少，于是...
HTA非常适合用于开发简单的桌面工具、演示文稿或者小型应用程序等场景。 通过上述介绍，我们可以看到HTA作为一种结合了Web技术和本地功能的应用形式，在特定场景下具有独特的优势和广泛的应用前景。希望这篇详细...
5. 应用场景：HTA常用于快速开发原型、内部工具、自动化脚本等，尤其是那些需要与本地系统深度交互的应用，例如系统设置助手、数据导入导出工具等。 6. 注意事项：虽然HTA有其独特优势，但因为其可执行特性，如果...
6. **调试与测试**：你可以直接双击HTA文件进行运行和测试，但为了调试脚本，可以使用Visual Studio或Internet Explorer的开发者工具。 7. **分发与执行**：HTA文件本质上是可执行文件，可以通过双击运行。如果需要...
总之，"regexp.hta"是一个实用的正则表达式测试工具，对于开发人员和数据处理者来说，它提供了一个快速验证和调试正则表达式的方法，无需复杂的环境配置，只需简单的操作即可完成文本匹配的测试工作。