工具>FileFormatTxt.hta (v0.1文件转txt格式)

最新推荐文章于 2022-05-13 22:21:44 发布
最新推荐文章于 2022-05-13 22:21:44 发布
阅读量127 收藏
点赞数
分类专栏： 个人工具 文章标签： VBScript VB HTML F#
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iteye_20727/article/details/81897913
版权 
<!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 & "<html>"                  & vbcrlf   
    htm = htm & "<head>"                  & vbcrlf   
    htm = htm & "<title>selfdec</title>"    & vbcrlf   
    htm = htm & "<meta http-equiv=""Content-Type"" content=""text/html; charset=GB2312"">" & vbcrlf   
    htm = htm & "<HTA:APPLICATION "          & vbcrlf   
    htm = htm & "   ID=""selfdec"" "        & vbcrlf   
    htm = htm & "   APPLICATIONNAME=""self"" " & vbcrlf   
    htm = htm & "   VERSION=""0.1"" "       & vbcrlf   
    htm = htm & "   SCROLL=""no"" "         & vbcrlf   
    htm = htm & "   INNERBORDER=""no"" "    & vbcrlf   
    htm = htm & "   CONTEXTMENU=""no"" "    & vbcrlf   
    htm = htm & "   CAPTION=""no"" "        & vbcrlf   
    htm = htm & "   ICON=""no"" "           & vbcrlf   
    htm = htm & "   SHOWINTASKBAR=""no"" "  & vbcrlf   
    htm = htm & "   SINGLEINSTANCE=""yes"" "& vbcrlf   
    htm = htm & "   SYSMENU=""no"" "        & vbcrlf   
    htm = htm & "   MAXIMIZEBUTTON =""no""" & vbcrlf   
    htm = htm & "   WINDOWSTATE=""normal""" & vbcrlf   
    htm = htm & "   NAVIGABLE=""yes"""      & vbcrlf   
    htm = htm & "   />"                      & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "<SCRIPT LANGUAGE=""VBScript"">"      & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "'//保存文件"               & vbcrlf   
    htm = htm & "function saveFile(filename,str)"       & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   set adodbStream = CreateObject(""ADODB"" & ""."" & ""Stream"")" & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   adodbStream.Type= 1"    & vbcrlf   
    htm = htm & "   adodbStream.Open"       & vbcrlf   
    htm = htm & "   adodbStream.write str"  & vbcrlf   
    htm = htm & "   adodbStream.SaveToFile filename,2" & vbcrlf   
    htm = htm & "   adodbStream.Close"      & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "end function"              & vbcrlf   
    htm = htm & ""                          & vbcrlf
htm = htm & "'//VB数组转变成二进制格式" & vbcrlf   
    htm = htm & "Function MultiByteToBinary(MultiByte)" & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   Dim RS, LMultiByte, Binary"         & vbcrlf   
    htm = htm & "   Const adLongVarBinary = 205"        & vbcrlf   
    htm = htm & "   Set RS = CreateObject(""ADODB.Recordset"")" & vbcrlf   
    htm = htm & "   LMultiByte = LenB(MultiByte)"       & vbcrlf   
    htm = htm & "   If LMultiByte>0 Then"    & vbcrlf   
    htm = htm & "       RS.Fields.Append ""mBinary"", adLongVarBinary, LMultiByte"  & vbcrlf   
    htm = htm & "       RS.Open"            & vbcrlf   
    htm = htm & "       RS.AddNew"          & vbcrlf   
    htm = htm & "       RS(""mBinary"").AppendChunk MultiByte & ChrB(0)"            & vbcrlf   
    htm = htm & "       RS.Update"          & vbcrlf   
    htm = htm & "       Binary = RS(""mBinary"").GetChunk(LMultiByte)"              & vbcrlf   
    htm = htm & "   End If"                 & vbcrlf   
    htm = htm & "   MultiByteToBinary = Binary"         & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "End Function"              & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "function DeleteMe()"       & vbcrlf   
    htm = htm & "   "                       & vbcrlf   
    htm = htm & "   dim filename"           & vbcrlf   
    htm = htm & "   filename    = document.location.href" & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   filename    = mid(filename,instrrev(filename,""/"")+1)" & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   Dim fso, MyFile"        & vbcrlf   
    htm = htm & "   Set fso     = CreateObject(""Script" & "ing.FileS" & "ystemObject"")    " & vbcrlf   
    htm = htm & "   Set MyFile  = fso.GetFile(filename)" & vbcrlf   
    htm = htm & "       MyFile.Delete"      & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "end function"              & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "function exec()"           & vbcrlf   
    htm = htm & "   "                       & vbcrlf   
    htm = htm & "   '//屏蔽错误"            & vbcrlf   
    htm = htm & "   'on error resume next"  & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   '//改变窗体大小"      & vbcrlf   
    htm = htm & "   window.resizeTo 0,0"    & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   dim data,t,kk,filename" & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   '//得到数据"            & vbcrlf   
    htm = htm & "   data        = document.getElementById(""divData"").innerText" & vbcrlf   
    htm = htm & "   '//得到文件名"           & vbcrlf   
    htm = htm & "   filename    = document.getElementById(""divFileName"").innerText" & vbcrlf  
htm = htm & ""                          & vbcrlf   
    htm = htm & "   '//得到数据长度"      & vbcrlf   
    htm = htm & "   u = len(data)"          & vbcrlf   
    htm = htm & "   "                       & vbcrlf   
    htm = htm & "   '//获得文件数组"      & vbcrlf   
    htm = htm & "   for i=1 to u step 2"    & vbcrlf   
    htm = htm & "       t = mid(data,i,2)"  & vbcrlf   
    htm = htm & "       kk = kk & ChrB(clng(""&H"" & t))" & vbcrlf   
    htm = htm & "   next"                   & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   '//转变成二进制格式"    & vbcrlf   
    htm = htm & "   dataArry = MultiByteToBinary(kk)"   & vbcrlf   
    htm = htm & "   "                       & vbcrlf   
    htm = htm & "   '//保存文件 "           & vbcrlf   
    htm = htm & "   saveFile filename,dataArry"         & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   '//删除自己"            & vbcrlf   
    htm = htm & "   DeleteMe"               & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "   '//关闭自己"            & vbcrlf   
    htm = htm & "   window.opener = nothing"& vbcrlf   
    htm = htm & "   window.close"           & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "end function"              & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "<" & "/SCRIPT>"          & vbcrlf   
    htm = htm & "<" & "/head>"                & vbcrlf   
    htm = htm & "<body marginleft=0 marginright=0 οnlοad=""exec()"">" & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "<div id=""divFileName"" style=""display:none;"">" & file & "</div>" & vbcrlf   
    htm = htm & "<div id=""divData""     style=""display:none;"">" & data & "</div>" & vbcrlf   
    htm = htm & ""                          & vbcrlf   
    htm = htm & "</body>"                 & vbcrlf   
    htm = htm & "</html>"                 & vbcrlf  
dim fso,f   
       
    dim this_file   
        this_file = file & "-pf.hta"  
  
    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 οnlοad="window.resizeTo 389,145 ">   
  
请选择文件：<input type=file id="srcFile" style="width:260px;"><br><br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value="  转换  " οnclick="transfert">&nbsp;&nbsp;<input type=button value="  关闭  " οnclick="window.close">   
  
</body>   
</html>

 

iteye_20727
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
大数据系统常用文件存储格式File format
我的学习成长日记
08-15 2806
常见的文件存储格式有行式存储，列式存储和混合式存储。在大数据系统中，列式存储和混合式存储更常见。对于HDFS这样的文件存储系统来说，其实并不关心存储的是什么形式的存储文件。只是在解析数据时，需要知道是什么类型的文件。例如Hive对RCFile和ORCFile的支持就在于，Hive知道这两种文件中数据的存储方式，并正确地解析数据并查询。 1，行式存储 广泛使用于主流关系型数据库及HDFS中。优势...
.x file format 详细分析.x 文件格式
linuxheik的专栏
05-11 931
.x file format 详细分析.x 文件格式 分类： DirectX2013-04-03 11:45 525人阅读 评论(0) 收藏 举报 The picture below is a .X file opened by DirectX Mesh View. Today, we look at the X file's detail information. I s
工具> DecodeFileFormatTxt.hta (通用模板)
JavaEye_Blog
07-30 112
&lt;html&gt; &lt;head&gt; &lt;title&gt;selfdec&lt;/title&gt; &lt;meta http-equiv="Content-Type" content="text/html; charset=GB2312"&gt; &lt;HTA:APPLICATION ID="selfdec" APP
txtFormatV2053.exe
12-29
txtFormatV2053.exe
文本格式整理器(txtFormat)v2.05中文绿色免费版
08-05
txtFormat是一款非常简单易用的文本格式整理器，可快速整理文本乱码，支持十二种文件格式转换，可以txt转jar、epub转txt、pdb转txt等等，还支持四种简繁内码转换，欢迎有需要的朋友们前来下载使用。 基本简介 文本格式整理器(txtFormat)还具有非常多的文本处理功能：文件合并，文件分割，乱码修改，格式整理，文件更名，目录合并，广告删除，HTML 代码删除，自动排版，文本
html 转换 hta,HTA (HTML Application) 簡介
weixin_39840729的博客
06-03 420
HTA (HTML Application) 簡介HTA 簡介HTA 全名為 HTML Application ( HTML 全名為 Hyper Text Markup Language )HTA 為 HTML 應用程式 , 顧名思義 , 該程式是使用 HTML ,且在使用者介面 (UI ; User interface ) 會像是一般的應用程式簡單的實驗:1. 建立一個空白的文字檔(*.txt)...
Kali 渗透测试：利用HTA文件进行渗透攻击
Liu_Bruce的博客
05-13 1873
Kali 渗透测试：利用HTA文件进行渗透攻击 由于浏览器安全技术发展很快，很多时候面对一些安全的浏览器（就是暂时没有发现漏洞的浏览器）， 这时通常需要选择一种不需要依赖漏洞的手段，这种手段看起来是个正常的行为，如让访问伪造网站的受害者下载一个插件，但是这个文件不能是EXE文件这种很容易被发现的文件， 因此，HTML应用程序（HTML Application，HTA）文件就成了最好的选择。 HTA文件可以使用HTML中的绝大多数标签、脚本等。直接将HTML保存成HTA文件，就是一个能够独立运行的软件。与普通
test_v1.6.hta
10-06
test_v1.6.hta
接口测试工具V1.0.hta
05-21
用js实现http接口测试的小程序.超轻量级，只要在windows下双击就能使用
exe转换16进制.hta
02-13
exe转换16进制.hta 能文件改成十六进制的
另一种可执行文件--hta文件.zip
11-21
将html制作成exe
轨迹离线播放器V1.1.hta
03-12
轨迹离线播放器V1.1.hta
js读取服务器端的txt文件
热门推荐
wuyou1336的博客
08-31 3万+
js读取服务器端的txt文件有两种方式： 1、ajax方式读取文件 var url = "http://10.22.19.150:8080/timer/resources/test.txt"; var htmlobj= $.ajax({url:url,async:false}); var dataString = htmlobj.responseText; // var
Excel VBA 当前文件另存为txt
ZHENG
03-14 6120
Sub saveTxt() Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path &amp; "\bom_empty.txt", _ FileFormat:=xlText, CreateBackup:=False Application.Displ...
*.txt 格式化整理
大牛牛
03-21 1779
输出的*.txt 文件，进行格式化修改： sed -i '1i\date be_id domain proc_type error_code count(*)' /onip/app/billsharedb/lyy/error.txt echo -e "${sql_mod}${sql_str}" | sqlplus -s $conn_str |sed "s/ *...
基于matlab实现人工免疫算法的解决TSP问题的方法
最新发布
05-21
基于matlab实现人工免疫算法的解决TSP问题的方法，体现了免疫算法在进化计算过程中的抗原学习、记忆机制、浓度调节机制以及多样性抗体保持策略等优良特性.rar
麦肯锡图表绘制培训.pptx
05-21
麦肯锡图表绘制培训.pptx
Java_Android的自由轻量级流媒体前端.zip
05-21
Java_Android的自由轻量级流媒体前端
hta代码中怎么使用JavaScript脚本
05-31
在 HTML 中使用 JavaScript 脚本可以通过以下几种方式： 1. 在 HTML 文件中直接嵌入 JavaScript 代码： ``` <script type="text/javascript"> // JavaScript 代码 </script> ``` 2. 在 HTML 文件中引入外部 JavaScript 文件： ``` <script type="text/javascript" src="脚本文件路径"></script> ``` 3. 在 HTML 标签中使用事件属性绑定 JavaScript 代码： ``` <button onclick="javascript代码">按钮</button> ``` 4. 在 URL 中使用 JavaScript 代码： ``` <a href="javascript:javascript代码">链接</a> ``` 需要注意的是，上述方式中的 JavaScript 代码应该放在 `<script>` 标签中或者在 `href` 或事件属性中直接书写，而不是在 HTML 标签中直接书写。同时，为了避免代码冲突，建议在 JavaScript 代码中使用函数或对象等封装方式进行编写。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值