一个用于定时重启或关闭计算机的小工具,适用于Windows2K/XP/2003
<!--
/*-------------------------------------------------------------------------------
Description:一个用于定时重启或关闭计算机的小工具,适用于Windows 2K/XP/2003
Author:十一狼
Email:112183883@163.com
QQ:112183883
WebSite:http://www.w3cg.net/
-------------------------------------------------------------------------------*/
-->
<html>
<head>
<title>♀Windows系统计时器♀</title>
<meta http-equiv="content-type" content="text/html;charset=gb2312">


<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"
/>


<Style type="text/css">
<!--
* { font-family:Courier New,Arial,Sans-serif;font-size:9pt; }
body { overflow-y:hidden; }
div a:link, div a:visited { text-decoration:none;color:#000 }
div a:hover { text-decoration:underline;color:#f00 }
#footerinfo { width:100%;display:table;margin-top:5px; }
#left { float:left;width:70%; }
#right { float:right;width:29%;text-align:right;margin-right:1px; }
-->
</Style>


<Script Language="JavaScript">
<!--


$bl_Sleep=false;


function getObject($obj) {
 return(document.getElementById($obj));
}


String.prototype.parseInt=function() {
 return(parseInt(this));
}


function getRadioVal($name) {
 $oEms=document.getElementsByName($name);
 for ($i=0;$i<$oEms.length;$i++) {
 if ($oEms[$i].checked) { return($oEms[$i].value); }
 }
}


function isDeclared($varName) {
 return(typeof($varName)!="undefined");
}


function chStatus($name,$status) {
 $ooEms=document.getElementsByName($name);
 for ($a=0;$a<$ooEms.length;$a++) {
 $ooEms[$a].disabled=$status;
 }
}


function window.onload() {
 $sWidth=window.screen.width;
 $sHeight=window.screen.height;
 $aWidth=400;
 $aHeight=185;
 window.resizeTo($aWidth,$aHeight);
 window.moveTo(($sWidth-$aWidth)/2,($sHeight-$aHeight)/2);
 document.bgColor="#d4d0c8";
 getObject("StopButton").disabled=true;
 getObject("left").innerHTML="提示:请选择您想要使用的功能!";
}


function Timer_Quit() {
 window.close();
}


function Timer_Kernel() {
 if ($bl_Sleep) {
 if (isDeclared($time) && isDeclared($mod_time) && isDeclared($operation)) {
 if ($time>0) {
 $Oper_str="";
 $Hint_str="";
 $Titl_str="";
 if ($operation=="rWin") { 
 $Oper_str="<span style="color:red">提示:系统计时重能已启用,请注意保存!</span>"; 
 }
 else { 
 $Oper_str="<span style="color:red">提示:系统计时关闭功能已启用,请注意保存!</span>"; 
 }
 if ($mod_time=="mod_minute") {
 $tMinute=($time/60).toString().parseInt();
 $tSecond=$time%60;
 if ($tMinute!=0) {
 if ($tSecond<10) {
 $tSecond="0"+$tSecond;
 }
 $Titl_str="剩余时间:"+$tMinute+"分"+$tSecond+"秒";
 }
 else {
 $Titl_str="剩余时间:"+$tSecond+"秒";
 } 
 }
 else {
 $Titl_str="剩余时间:"+$time+"秒";
 }
 getObject("left").innerHTML=$Oper_str;
 document.title=$Titl_str;
 $time=$time-1;
 $o=setTimeout("Timer_Kernel()",1000);
 }
 else {
 $Flag="";
 if ($operation=="rWin") {
 $Flag=6; //6为重启操作系统
 }
 else {
 $Flag=1; //1为关闭操作系统
 }
 OperateWin32($Flag);
 getObject("left").innerHTML="<span style="color:red">提示:正在执行预定操作!</span>";
 document.title="正在执行预定操作";
 }
 }
 }
}


function Timer_Stop() {
 $bl_Sleep=false;
 if (isDeclared($o)) { clearTimeout($o); }
 getObject("time").disabled=false;
 getObject("mod_time").disabled=false;
 chStatus("operation",false);
 getObject("StartButton").disabled=false;
 getObject("StopButton").disabled=true;
 getObject("left").innerHTML="提示:请选择您想要使用的功能!";
 document.title="♀Windows系统计时器♀";
}


function Timer_Start() {
 $bl_Sleep=true;
 $nowTime="";
 $time=getObject("time").value;
 $mod_time=getObject("mod_time").value;
 $operation=getRadioVal("operation");
 if (isNaN($time) || $time=="") {
 alert("请正确设定一个时间值! ");
 getObject("time").select();
 return;
 }
 else {
 $time=$time.parseInt();
 if ($mod_time=="mod_minute") { $time=$time*60; } 
 }
 getObject("time").disabled=true;
 getObject("mod_time").disabled=true;
 chStatus("operation",true);
 getObject("StartButton").disabled=true;
 getObject("StopButton").disabled=false;
 Timer_Kernel();
}


function OperateWin32($DownFlag) {
 $OS_Pro=GetObject("WinMgmts:{(shutdown)}//./root/cimv2").ExecQuery("select * from win32_operatingsystem where primary=true");
 for ($e=new Enumerator($OS_Pro);!$e.atEnd();$e.moveNext()) {
 $getProcess=$e.item()
 $getProcess.win32shutdown($DownFlag);
 }
}


function ResponseKeyPress() {
 if (event.keyCode==13) { event.keyCode=9; }
}


//-->
</Script>
</head>


<body>
 <fieldset>
 <table width="100%" border="1" cellpadding="4" cellspacing="3">
 <form name="form1">
 <tr>
 <td width="25%">设定时间:</td>
 <td width="75%"><input type="text" name="time" size="20" value="" onkeypress="ResponseKeyPress()" /> 
 <select name="mod_time">
 <option value="mod_minute">分钟</option>
 <option value="mod_second">秒钟</option>
 </select>
 </td>
 </tr>
 <tr>
 <td>功能选择:</td>
 <td>
 <input type="radio" name="operation" value="rWin" checked="checked" />重启
 <input type="radio" name="operation" value="cWin" />关机
 </td>
 </tr>
 <tr>
 <td colspan="2" style="text-align:right">
 <input type="button" name="StartButton" value=" 应用 " onclick="Timer_Start()" />
 <input type="button" name="StopButton" value=" 取消 " onclick="Timer_Stop()" />
 <input type="button" name="ExitButton" value=" 退出 " onclick="Timer_Quit()" />
 </td>
 </tr>
 </form>
 </table>
 </fieldset>
</body>
</html> 
windowtimer.rar
最新资讯
微信小游戏月活用户超5亿 单品月流水超20亿元

微信小游戏月活用户超

今日在2021微信公开课上,微信公开课讲师Togo透露,2020年
恒生科技指数涨4%港交所市值达6500亿港元 快手最快1月26日招股

恒生科技指数涨4%港交

周二港股,恒生科技指数飙升3%,报9399.850点,创下指数历史
互联网存款业务遭整顿 部分平台已主动“下线”相关产品

互联网存款业务遭整顿

近日,央行、银保监会联合发布《关于规范商业银行通过互
优衣库将启动应用支付功能Uniqlo Pay 母公司迅销集团开发

优衣库将启动应用支付

优衣库的运营商,日(J)本(P)时尚巨头迅销集团(Fast Retailing)将
免税业务敲定后,王府井要合并老牌百货,下一个轮到谁?

免税业务敲定后,王府井

财联社1月19日讯,新年伊始,王府井动作频频,继官宣开展海
威马汽车:智能无人驾驶汽车W6量产下线 2021布局换电

威马汽车:智能无人驾驶

威马汽车今天宣布智能无人驾驶汽车威马W6正式量产下线
最新文章
HTA编辑HOST文件的脚本

HTA编辑HOST文件的脚

一个修改HOST文件的小工具,利用FSO实现,代码比较长,功能
学习正则帮手笨狼正则练习器

学习正则帮手笨狼正则

把下面的文件保存为hta文件,运行即可
hta实现的笨狼XSLT练习器

hta实现的笨狼XSLT练

学习XSLT的朋友,用这个小工具不错
hta实现的定时关机小程序

hta实现的定时关机小

这个小程序使用hta写的,用了vbscript代码实现,喜欢的朋
用来通知论坛有新贴子的hta代码

用来通知论坛有新贴子

做了个用来通知论坛有新贴子的hta把下面的代码copy到
用vbs如何确定在 HTA 中选择了哪些文本?

用vbs如何确定在 HTA

问:您好,脚本专家!如何确定在HTA中选择了哪些文本?--DO答: