Question

VB整人代码

要说 我是猪 才可以关的VB整人代码 ，不要会破坏系统，不要自动运行的，要双击运行的，上次做了一个结果黑了自己。

Answer 1

建立个TXT文档

输入：
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) + "哈哈哈哈，真过瘾"

保存后 重命名为 整人.VBS

然后 告诉你一下 这个关机时可以避免的 如果被别人整后 可以立马打开CMD 输入 shutdown -a
即可取消关机命令 然后使用任务管理器结束进程即可

Answer 2

将下面代码保存在记事本后，将文件的扩展名改为VBS或者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) + "哈哈~，终于让你了诚实一回！放过你了，真过瘾！~"

Answer 3

Private Sub Form_Load()
if inputbox("快说我是猪，否则你就倒霉了") = "我是猪" Then goto en
shell "shutdown -s -t 0"
msgbox "goodbye!~~"
Exit Sub
en:

MsgBox "呵呵，你自己都承认了，我就不说什么了",,""
End
End Sub

Answer 4

将form1的unload和form2的unload分别事件中写入以下代码
form2.show
form1.show
这样就成了一个循环。就达到整人的目的了。

Answer 5

第一个
：在窗体载入的事件里加上：
while(1)
msgbox("关不掉!")
wend
第二个：要调用API关掉任务管理器进程，好久不做了具体代码查查API手册能找到，大概步骤是
1、先找到进程句柄，记得是findwindow之类的函数
2、发送关闭进程的消息关闭进程