几个hta实用小程序的代码

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

1、exe转换16进制的html保存的hta3CICATIONID="packagefilev0.1HAPPLICATIONNAME=npackagefilevO.LVERSION=H0.1nSCROLLfo”INNERB

2、ORDER=Hno”CONTEXTMENU=”yes”CAPTION=”yes”ICON=”no”SHOWINTASKBAR=nyes”SINGLEINSTANCE=”yes”SYSMENU=”yes”MAXIMIZEBUTTON=nnoHWINDOWSTATE^normar*NAVIGABLE=”yes”/>LANGUAGE=”VBScript”〉functiontransfert()dimfilenamefilename=document.getElementByld(”srcFile”).valueiflen(filename)>0t

3、hendimoReq'onerrorresumenext7/创建XMLHTTP对彖setoReq=CreateObject('*MSXML2.XMLHTTP”)oReq.open”get”,"fileame,falseoReq.sendff=oReq.responseBodydimu,s,kku=lenb(ff)redimkk(u-1)fori=0tou-1s=hex(ascb(midb(ff,i+1,1)))iflensendif*kk=kk(i)=snextmakefilenamejoin(kk；Hf)elsedocument.getE

4、lementByld('fsrcFilen).focusmsgbox”请选择要压缩的文件”,16,”提示”endifendfunctionfunctionmake(filename,data)dimhtm,filefile=mid(filename,instrrev(filename/V)+1)htmdatadimfso,fdimthis_filethis_f”・pf.htm”Setfso=CreateObject(MScripting.FileSystemObject")Setf=fso.OpenTextFile(this_file,2,

5、True)f.WritehtmmsgboxH生成文件成功!“,64,”生成“endfunctionRIPT>inleft=Omarginright=Oonload=Hwindow.resizeTo389,145,f>请选择文件：ype=fileid="srcFileHstyle="width:260px;">[br][br]ype=buttonvalue=H转换Honclick=Htraputtype=buttonvalue』关闭”onclick=Hwindow.closeH>hta定时关机重启实现

6、代码html>equiv=Hcontent-type'1content=ntext/html;charset=gb2312H>tle>—个用于定时重启或关闭计算机的小工具，适用于Windows2Kitle>pplicationid=”WTimer”maximizebutton=HNo,fminimizebutton=lfYesnsingleinstance=nYesHcontextmenu=HYesHsysmenu=nYesnversion=f,1.0flinnerborder=ftNoHcaption=”Yes”showintaskbar

7、=nYes”Normalborder=fHINormalborderstyle=l,flapplicationname=HWindowsTimer11icon=HTimerlco.icoH/>tyletype=,ftext/cssH>■■9pt*{font-family:CourierNew,Arial5Sans-serif;font-size:;}body{overflow-y:hidden;}diva:link,diva:visited{text-decoration:none;color:#000}diva:hover{text-de

8、coration:underline;color:#fOO}#footerinfo{width:100%;display:table;margin-top:5px;}#left{