[原创]一段用perl做的自动关机代码.

[这个贴子最后由damnyou在 2004/11/20 11:51pm 第 1 次编辑] #!perl #Code By Xtiger -->>www.Xtiger.net&&www.thysea.com 2004.11.19 my $time; my $hour; my $xxx; my $h; my $x; my $g=shift; if ($g<=0) { print "[Err]请输入关机时间(格式如 20:13):"; my $g=; chomp($g); shut(); } else{ shut(); } sub shut { ($h,$x) = split /\:/, $g; while() { open (T,"time /t|") or print "[Err]不能获取系统时间!";#通过系统命令获取系统时间 read(T,$time,25); ($hour,$xxx) = split /\:/, $time; #获得当前时间 if($hour>=$h && $xxx>=$x) #判断当前时间 { system("shutdown /s /c 系统被设定在$g关闭,请保存退出! /t 30"); #时间到$g关机并给出提示 exit; } close T; #关闭句柄 print "还没到$g\n"; sleep(5) } } ################################## 以前睡觉的时候想开着机子下一些大东西(晚上速度快).可问题是下载完后机子不会自己关.本来一些程序可以设置为下载完后自动关机,但在WIN2003不行. 所以自己动手写了个简单的脚本. 没有什么太复杂的东西,只不过是循环检测当前的时间,其中使用了两个系统命令. time /t <---获得当前时间 shutdown /s /c /t <---关机的系统命令 以上代码可以随意copy使用.注明作者和出处即可!!

编译了一下,给大家.
  希望带给大家一点儿方便

忍不住又简化了一下 #!perl -w use Win32; print "[Err]请输入在多少分钟后关机:"; my $g=; chomp($g); my $start_t=time(); while() { my $end_t=time(); my $t=($end_t-$start_t)/60; if($t>$g or $t==$g) #判断当前时间 { Win32::InitiateSystemShutdown(undef,"系统被设定在$g时关机,请保存退出",15,undef,1); #时间到$g关机并给出提示 exit; } my $s=$g*60-$end_t+$start_t; print "系统将在$s秒后关机\n"; system("TITLE [注意!]系统将在$s秒后关闭"); sleep(5); } 发誓再也不改了!

好的 偶再试一下,谢谢楼主

[这个贴子最后由damnyou在 2004/11/26 06:35pm 第 2 次编辑] 不好意思,出了点儿错,我改一下. #!perl -w use Win32; my $g=@ARGV; my $start_t; my $t; my $e; my $s; if (@ARGV<=0) { print "[Err]请输入在多少分钟后关机:"; my $g=; chomp($g); shut($g); } sub shut { my $e=shift; $start_t=time(); while() { my $end_t=time(); my $t=($end_t-$start_t)/60; if($t>$e or $t==$e) #判断当前时间 { Win32::InitiateSystemShutdown(undef,"系统被设定在$e时关机,请保存退出",15,undef,1); #时间到$e关机并给出提示 exit; } $s=$e*60-$end_t+$start_t; print "系统将在$s秒后关机\n"; system("TITLE [注意!]系统将在$s秒后关闭"); sleep(5); } } 就这个样子了,以后不再改了.太菜了,不好意思

呵呵`~很好玩的样子`~学习`

HOHO.谢谢楼主,收藏了!

   今天再学习了一下
   一句就可以关机了
perl -MWin32 -e"Win32::InitiateSystemShutdown(undef,"Bye",15,undef,1);"