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

exe转换16进制的html保存的hta !DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.01 Transitional//EN html head titlepackage 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) 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 /SCRIPT /head body marginleft=0 marginright=0 onload=window.resizeTo 389,145 请选择文件：input type=file id=srcFile style=width:260px;[br][br] input type=button value= 转换 onclick=transfert input type=button value= 关闭 onclick=window.close /body /html hta 定时关机重启实现代码 html head meta http-equiv=content-type content=text/html;charset=gb2312 title一个用于定时重启或关闭计算机的小工具，适用于Windows 2K/XP/2003 /title hta:application id=WTimer maximizebutton=No minimizebutton=Yes singleinstance=Yes contextmenu=Yes sysmenu=Yes version=1.0 innerborder=No caption=Yes showintaskbar=Yes border=Normal borderstyle=Normal applicationname=Windows Timer icon=TimerIco.ico /