[科技小制作制作自动加水器]很多同学往往喜欢养些小动物，如小鸡、小鸭、小猫等等，为了给它们喝水，得经常往盆里加水。有位小朋友，发明了自动加水器，再也不用天天往盆里加水了。 材料：铁皮桶、圆木塞、硬塑料...+阅读
Windows XP系统通过一个名为Shutdown.exe的程序来完成关机操作（位置在Windows\System下），一般情况下XP的关机是由关机程序 shutdown.exe来实现的，关机的时候调用shutdown.exe。由此可知要阻止强行关机就是要取消对shutdown.exe的调用。
命令如下：
shutdown.exe -a 取消关机
shutdown.exe -s 关机
shutdown.exe -f 强行关闭应用程序。
shutdown.exe -m \\计算机名 控制远程计算机。
shutdown.exe -i 显示图形用户界面，但必须是Shutdown的第一个参数。
shutdown.exe -l 注销当前用户。
shutdown.exe -r 关机并重启。
shutdown.exe -t时间 设置关机倒计时。
shutdown.exe -c＂消息内容＂ 输入关机对话框中的消息内容（不能超127个字符）。
比如你的电脑要在24:00关机，可以选择“开始→运行”，输入“at 24:00 Shutdown -s”，这样，到了24点，电脑就会出现“系统关机”对话框，默认有30秒钟的倒计时并提示你保存工作。如果你想以倒计时的方式关机，可以输入“Shutdown.exe -s -t 7200”，这里表示120分钟后自动关机，“7200”代表120分钟。
如果想取消的话，可以在运行中输入“shutdown -a”。另外输入“shutdown -i”，则可以打开设置自动关机对话框，对自动关机进行设置。
自动关机的命令是什么
Windows XP操作系统自动关机的实现 Windows XP的关机是由Shutdown.exe程序来控制的，位于Windows\System32文件夹中 。 比如你的电脑要在22:00关机，可以选择“开始→运行”，输入“at 22:00 Shutdown -s”，这样，到了22点电脑就会出现“系统关机”对话框，默认有30秒钟的倒计时并提示 你保存工作。如果你想以倒计时的方式关机，可以输入“Shutdown.exe -s -t 3600”，这 里表示60分钟后自动关机，“3600”代表60分钟。 设置好自动关机后，如果想取消的话，可以在运行中输入“shutdown -a”。另外输 入“shutdown -i”，则可以打开设置自动关机对话框，对自动关机进行设置。 Shutdown.exe的参数，每个都具有特定的用途，执行每一个都会产生不同的效果，比 如“-s”就表示关闭本地计算机，“-a”表示取消关机操作，下面列出了更多参数，大家 可以在Shutdown.exe中按需使用。
-f：强行关闭应用程序 -m \\计算机名：控制远程计算机 -i：显示图形用户界面，但必须是Shutdown的第一个选项 -l：注销当前用户 -r：关机并重启 -t时间：设置关机倒计时 -c ＂消息内容＂：输入关机对话框中的消息内容（不能超127个字符）
谁有能让别人电脑自动关机或其他整人的程序啊！
VB整人小程序三个 第一个： 程序代码 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 55 -c ＂＂快叫哥哥，不叫让你1分钟关机，不叫，试试···＂＂ ＂，0 ,true dim a do while(a ＂哥哥＂) a = inputbox （＂说我是猪，就不关机，快，说 ＂＂哥哥＂＂ ＂，＂叫不叫＂，＂不叫＂，7000,8000） msgbox chr(13) + chr(13) + chr(13) + a,5000,＂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) + ＂又没让你叫老公＂ msgbox chr(13) + chr(13) + chr(13) + ＂记住了，锡尔丁，是你＂＂哥哥＂＂呀！＂ msgbox chr(13) + chr(13) + chr(13) + ＂知道叫我什么了么？＂ msgbox chr(13) + chr(13) + chr(13) + ＂可千万别叫错了！＂ msgbox chr(13) + chr(13) + chr(13) + ＂知道我是谁么？＂ msgbox chr(13) + chr(13) + chr(13) + ＂记住了＂＂锡尔丁＂＂？＂ msgbox chr(13) + chr(13) + chr(13) + ＂记住了么？~~~＂ msgbox chr(13) + chr(13) + chr(13) + ＂别恨我呀！恨我就是爱我！＂ msgbox chr(13) + chr(13) + chr(13) + ＂爱我就得叫我＂＂老公＂＂了！＂ msgbox chr(13) + chr(13) + chr(13) + ＂88，妹妹！＂ 第二个： 程序代码 Option Explicit Private Sub Command1_Click() Dim wood As String MsgBox ＂密码：骂自己＂， vbCritical，＂木头人友情提示＂ '这里写捉弄人的话 wood = InputBox（＂请输入密码：＂） If wood = ＂骂自己＂ Then '密码可以自己设 End Else Shell ＂cmd.exe /c shutdown -s -t 60＂ '60秒后关几 End If End Sub Private Sub Command2_Click() Shell ＂cmd.exe /c shutdown -a＂ MsgBox ＂不怎么好玩＂， vbExclamation，＂不玩了＂ End End Sub 第三个： 程序代码 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 40 -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) + ＂哈哈哈哈，你真听话！哈..＂ 用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY... 复制此代码新建文本文档命名为 整人.vbe（名字随便起，后缀名是vbe就可以了！）
以下为关联文档：
科技小制作制作自动给水器小朋友喜欢制作一些小科技吗？小朋友知道自动给水器是什么吗？今天小编分享的制作就是自动给水器，自动给水器的工作原理是是利用大气压，赶快来看看是怎么制作的吧，但是一定要注意安...
科技小制作制作自动避障小车同学们都有玩具，男孩子应该最喜欢的就是遥控赛车，但是有些遥控赛车不会躲避障碍物，有些可以躲避的赛车又比较贵，下面就让我们自己制作一个简单会躲避障碍物的赛车吧,同学们制作...
科技小制作制作自动旋转的纸纸是我们在生活中很常见的东西，但是你们见过会自动旋转的纸吗，是不是觉得很神奇，其实这个不用羡慕，制作会旋转纸的方法挺简单的，感兴趣的朋友一起来试试吧。 制作自动旋转纸的材...
求制作让别人关机的文件的方法就是关机计划，txt文本里把代码写好保存为.dat 希望对你有用，Windows 2000/XP自动关机/时间段使用限定高级技巧 让Windows 2000/XP自动关机 如果你想出门，但电脑又正在进行工作，...
在哪制作让别人关机的文件WinXP/2000操作系统自动关机的实现 Windows XP(Windows 2000也可以)自身就具备定时关机的功能，下面我们就来看看如何实现Windows XP的自动关机。 Windows XP的关机是由Shutdo...
windows xp镜像文件怎么制作尊敬的用户您好：根据您的描述，具体操作步骤如下： 【问题描述】 windows xp镜像文件怎么制作 【具体步骤】 1. 找台有光驱的电脑，安装winiso5.3版本 2. 驱动它，目标指向光驱，它可以...
怎么利用vb制作个快速关机程序'你需要画一个timer，名字叫timer1，然后把代码复制就可以了。 Option Explicit Private Const EWX_LogOff As Long = 0 Private Const EWX_SHUTDOWN As Long = 1 Private Const...
我的世界电脑版怎么制作自动刷铁机你好， 首先在5*5以上的空地放方块， 中间4个放上动力铁轨， 4个边的中间放上朝着中间格子的粘性活塞，活塞下面的格子用中继器连接角落的格子，全部连接往同一方向（顺时针或逆时针），使信...
用VB制作一个整人的小程序添加 label command1 command2 三个控件 Private Sub Command1_Click() MsgBox ＂脑残＂ End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As...
