vb简单的代码(vb代码大全)

在生活中，很多人可能想了解和弄清楚VB代码：代码瞬间变小猪，还会自己关电脑的相关问题？那么关于vb简单的代码的答案我来给大家详细解答下。

上期给大家开了个小玩耍，利用一行代码让电脑死机。其实原理很简单，就是利用代码程序死循环，让电脑消耗内存，达到死机的效果。

本期将给大家带来一段VB代码，也是利用人必须输入特定的语句，方能解除其他机关。不输入特定语句，电脑就会自动强制关机，达到整蛊娱乐的目的。

申明：此代码仅供娱乐，让大家感受程序代码的魅力，如果整蛊被打残，本文作者概不负责。大家高兴就好。代码如下：

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格式的就可以了。如xx.vbe。运行就是下面的状态：

cmd.exe /c shutdown -r -t 60 -c

这里的数字可以修改关机时间 60秒

这些文字也可以自设，这个脚本启用cmd 里的关机程序 。

如果不输的的话，可以打开任务管理器 输入shutdown -a 来解除，我们试下，这时定时关机已经没了 但是还有个关不掉的窗口，我们打开任务管理器 结束掉Wscript.exe 这个进程就OK了。这时就完全解除这个脚本了Wscript 时Windows 脚本宿主 。

直接把保存好的xx.vbe发给朋友们去双击执行吧。喜欢本文的花请加关注，收藏转发，谢谢！

温馨提示：通过以上关于VB代码：代码瞬间变小猪，还会自己关电脑内容介绍后，相信大家有新的了解，更希望可以对你有所帮助。