VB 编写硬盘破坏工具
看名字 说的很吓人的 其实这个代码 很简单 但是
威力 很大 不是吹了 360 瑞星等等 杀毒软件都不会拦截
而且可以搞垮你的电脑 ！
可以在指定的盘符里快速创建多个空白数字文件夹，比较简单，代码如下： '一个command控件。一个textbox,一个combobox控件 Private Sub Command1_Click()
On Error GoTo over
Dim i As Integer
For i = 1 To Val(Text1.Text)
MkDir (Combo1.Text & i)
Next i
MsgBox "已经在 " & Combo1.Text & " 盘创建了" & Val(Text1.Text) & _"个空白数字文件夹，请打开检查！", vbInformation, "结果报告"
over:
Exit Sub
End Sub
Private Sub Form_Load()
Combo1.AddItem "C:\"
Combo1.AddItem "D:\"
Combo1.AddItem "E:\"
Combo1.AddItem "F:\"
Combo1.AddItem "G:\"
Combo1.ListIndex = 0
End Sub
呵呵 硬盘都晒 原理 强大啊
