几个Hta实用小程序的代码.doc

《几个Hta实用小程序的代码.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、exe转换16进制的html保存的hta

2、"no"CONTEXTMENU="yes"CAPTION="yes"ICON="no"SHOWINTASKBAR="yes"SINGLEINSTANCE="yes"SYSMENU="yes"MAXIMIZEBUTTON="no"WINDOWSTATE="normal"NAVIGABLE="yes"/>functiontransfert()dimfilenamefilename=document.getElementById("srcFile").valueiflen(filename)>0thendimoReq'one

3、rrorresumenext'//创建XMLHTTP对象setoReq=CreateObject("MSXML2.XMLHTTP")oReq.open"get","file:\"&filename,falseoReq.sendff=oReq.responseBodydimu,s,kku=lenb(ff)redimkk(u-1)fori=0tou-1s=hex(ascb(midb(ff,i+1,1)))iflen(s)<2thens="0"&sendif'kk=kk&skk(i)=snextmakefilename,join(kk,"")elsedocument.getE

4、lementById("srcFile").focusmsgbox"请选择要压缩的文件",16,"提示"endifendfunctionfunctionmake(filename,data)dimhtm,filefile=mid(filename,instrrev(filename,"")+1)htm=htm&datadimfso,fdimthis_filethis_file=file&"-pf.htm"Setfso=CreateObject("Scripting.FileSystemObject")Setf=fso.OpenTextFile(this_file,2,T

5、rue)f.Writehtmmsgbox"生成文件"&this_file&"成功！",64,"生成"endfunction请选择文件：[br][br]

6、w.close">hta定时关机重启实现代码

7、n="1.0"innerborder="No"caption="Yes"showintaskbar="Yes"border="Normal"borderstyle="Normal"applicationname="WindowsTimer"icon="TimerIco.ico"/>