exe转换16进制的html保存的hta实现代码(excel如何转换16进制)原创

随心笔谈9个月前发布 admin
73 0

package file v0.1

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”

/>

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

请选择文件:[br][br]

© 版权声明

相关文章