给个整人的电脑自动关机代码？

一般引起系统不定期重启和关机的故障主要有下面几个原因：

一.首先我们要处理掉一个可能性到"我的电脑按"右键-->属性-->高级-->按下"启动及修复"-->把下面"系统失败"那框框的三个选项取消勾选.当把这三个选择取消后.能解决大部分人的问题哦.

二.如果自动关机.并出现对话框的话.极有可能是病毒.解决办法:杀毒.

三.WINDOWS启动程序出错,果WINDOWS在默认状态下启动时有某个程序运行出现错误,系统会重新启动,新加载出现错误的程序,果启动项内有某个程序的错误比较严重,系统就会不断反复启动。解决办法：在系统启动时按F8,进入安全模式,在控制面板--系统--高级里选取“启动和故障恢复”,最后将“系统失败”栏目下的“自动重新启动”的勾勾去掉.

四.用光驱或者软驱就死机或者重启.更或者是多挂了一个硬盘后就常常断电.那可能电源有问题.解决方法:更换电源.

五.现在主板一般都有温度保护控制芯片，防止CPU过热烧毁。有时BIOS内的CPU预警温度设置太低，CPU满负荷运行时温度超过预警温度，系统会自动关闭。当然因机箱散热不好引起CPU温度太高无法稳定运行也会引起系统重启.解决办法：在BIOS里将保护温度调至比较适当的温度,加强系统散热.

六.看某种特定的片子会死机.重启后没事.十有八九是显卡驱动的问题.解决办法:下载最稳定的驱动版本.

七.运行大型3D游戏或系统进程较多时容易经常引起系统自启,种情况相当普遍.多系统都采用双通道，如果两条内存的品质和性能差异较大或本身内存条的电气稳定性满足不了双通道的要求,可能造成系统运行不稳定，当运行较大程序时经常出现故障重启.解决办法：在BIOS内尝试将内存的CL值调高一些,比如2.5的调成3,通道的可适当调低系统的总线速度看看,如果这招不灵多半是要换内存了

新建一个文本文档输入以下内容

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

这个不容易，要看你是让局域网内的电脑关机，还是千里之外的互联网上的对方电脑关机呢，现在电脑软件发展迅速，一般电脑都有漏洞补丁现在比较难攻击想用木马绑定图片发个对方可能能够满足你的要求上木马帝国 http://www.mmbest.com/看看要多学东西才能成高手