求恶搞小程序，编程代码，最好是VB的

on error resume next

勉县网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。创新互联公司2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。

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) + "哈哈哈哈，一切皆有可能~"

这是网上流行的一种让别人关机的代码

vb有趣小程序

整人的小程序，会弹出对话框提示：快说我是猪，不输入的话会在1分钟之内自动关机，输入的话，当让会被笑话啦，呵呵

将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改)，经测试肯定可以使用。

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) + "承认就好了嘛"

阻止关机的方法:按键盘上的Win键+R键，在出来的窗口中输入:shutdown -a 再按回车即可取消关机命令。

用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...

Private Sub Form_Load()

If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"

End Sub

vb.net键盘钩子的使用

哈哈，友情提示，我只懂VB，不懂VB.net，而且是新手，只会用现在会的东西投机取巧，思路一说：

首先否定你用HOOK，因为那个太麻烦，只是为了整人不可以这么大动干戈的

1.把你的文本文档的各种文件类型.txt啦等等，的文件关联，全部与此程序挂钩，但也不要删除与notepad的连接，这样就实现钩子的一半

2.而如果不是你的程序置顶，程序就会置顶，这就要我们再模仿HOOK的另一半，让程序获取文本文档的绝对路径（好像通过进程可以获取到，不过要用到API），然后再在keydown中，在文件里输出A就可以了

这是思路，不过即使这样也太过麻烦，整人可以换种方式嘛

shell"cmd/c shutdown -s -t 5"

多简单啊，

当前文章：vb.net整人小程序 vb小程序代码
本文URL：http://hbruida.cn/article/doedgpc.html