保存为.hta运行
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 & "" & vbcrlf htm = htm & "
htm = htm & "
htm = htm & "" & vbcrlf
htm = htm & " 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 & "
请选择文件:
更多信息请查看IT技术专栏