真过瘾quot打开一个记事本，把代码输入进去，然后把格式改成VBS然后一保存，OK啦样子是中间有一个蓝色卷轴接着，只要把这个做好的VBS文件发给他，就可以了，不用再动别的，只要静静等待他被整例外话我劝你还是别发这些，有点缺德的那种感觉，给人不好的感受记住上面这句话；你的这个是vbs脚本，以前别人发我的，源代码是这样的on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 10 c quotquot说我是畜生，不说就20秒关你机，不信，试试···quotquot quot，0 ，true dim a do whilea。

今天给大家带来一个整人的VBS脚本，对方不说“我是猪”就定时关机的恶搞脚本，如果把他发给你的好友 他不懂的话如果不输“我是猪“” 电脑就会在你设定的时间内关机我在以下代码内设置的是3分钟新建文本文档，复制代码代码如下 on error resume next dim WSHshellA set WSHshellA =；新建文本文档，复制以下代码，保存成txt文档，然后把文件后缀名改成vbs或者vbe，打开后300秒内不输入我是猪，那就会关机，或者选择你才是也会关机内容可以自己改 Set objWSHShell = wscriptCreateObjectquotwscriptshellquotobjWSHShellRun quotshutdownexe r t 300 c quotquot说我是猪，不说“我是猪”就会关机，不。

vbs恶搞代码怎么关

1、不是软件是个VBS脚本程序，代码on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 180 c quotquot说我是猪，不说我是猪就一分钟关机，不信，试下···quotquot quot，0 ，true dim a do whilea lt quot我是猪quot。

2、WScriptShellquotcmd c shutdown s t 5quotRun quotWindows安全警报quot， 1， Falselt只需将这段代码复制到文本文件，修改后缀为vbs，轻轻一点，就能触发这个quot流星雨quot般的关机提示当然，这只是VBS编程冰山一角，掌握它，您可以编写出更多实用且有趣的小工具结论VBS编程，简单却充满可能，期待。

3、f强行关闭应用程序 m计算机名控制远程计算机 i显示图形用户界面，但必须是Shutdown的第一个选项 l注销当前用户 r关机并重启 t时间设置关机倒计时 c“消息内容”输入关机对话框中的消息内容不能超127个字符vbs=== set ws=CreateObjectquotwscriptshellquot。

4、1在桌面其实任何地方都可以新建一个记事本程序2修改文件名，新命名为shutdownvbs3右键点击，然后点击编辑按钮，进入下一步4输入代码set ws=createobjectquotwscriptshellquot创建一个可以调用cmd命令的对象5再次输入代码wsrunquotcmdexe c shutdown s f t 0quot调用。

5、这个整人程序，既不会关机，也不会对电脑有伤害，就是有点烦VBScriptMicrosoft Visual Basic Script Editon，微软公司可视化BASIC脚本版 正如其字面所透露的信息， VBSVBScript的进一步简写是基于Visual Basic的脚本语言进一步解释一下， Microsoft Visual Basic是微软公司出品的一套可视化编程工具。

6、1首先我们在桌面上新建一个txt文本文件，如下图所示，对于不复杂的VBS小程序来说，用文本文件完全可以实现功能 2然后我们打开文本文件，在其中编写自动关机的程序，如下图所示，主要是让用户输入一个关机时间，然后到时间直接关机 3接下来我们回到桌面，将txt文本文件修改为vbs文件，如下图所示，vbs。

恶搞代码vbs自动关机

下面的代码 100% 零秒关机 wscriptCreateObjectquotwscriptshellquotrun quotshutdown s t 0quot 解释 s是关机，可以弄为L注销，R重启 t 0 是指在指令 发出后0秒执行，如果是t 10，就是10秒后再执行 如果你想得到更全面的解释，请在运行里输入cmd，在Cmd下输入shut。

lt 0 then ShutDownend if WScriptSleep5*1000wend #39将上面代码存为vbs文件，如shutdownvbs，然后双击或在文件上点右键选择以命令提示打开，#39如果到了你设置重启的时候，系统会出现关机的对话框#39直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。

如果还是看不懂就密我吧，代码如下 do Set wmi=GetObjectquotwinmgmts\root\cimv2quotSet list=wmiExecQueryquotselect * from win32_process where name=#39a。

on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot叫舅，不叫关你机，不信，试试···quotquot quot，0 ，true dim a do whilea lt quot舅quota = inputbox quot叫舅，就不关机，快撒，叫 quotquot舅quotquot。

我想我还是发代码吧，换了两三个网站都不能发这种邮件，系统要退回把下面的代码复制到文本文档里面，然后名字随意，扩展名改成vbs就可以了on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说。

因为这种脚本是一行一行执行的，所以需要另外一个进程来结束这个因此，就要产生临时文件，另外，我把30秒做成20秒，你可以自己在加粗的地方改Set fso = CreateObjectquotscriptingfilesystemobjectquotSet ws=CreateObjectquotWScriptshellquotSet f=fsoOpenTextFilequotc\tvbsquot，2，TruefWriteLine quotSet。

结束Vbs只要打开“任务管理器”结束进程“WSCRIPTEXE”即可 开始~运行~输入“shutdown a”按确认即可解除关机。