hta实现的二进制文件转换为文本

2024-08-26 00:15:47

字体：大中小

来源：转载

供稿：网友

保存为.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)

上一篇：hta实现的涂鸦效果

下一篇：创建一个在标题栏中没有“关闭”按钮的 HTA