用VB产生随机任意大小文件挤满硬盘

最新推荐文章于 2021-05-18 17:33:46 发布
最新推荐文章于 2021-05-18 17:33:46 发布
阅读量858 收藏
点赞数
分类专栏： VB 文章标签： vb random qq c 360
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/cncco/article/details/678923
版权

Private Sub Form_Load()

On Error Resume Next

For h = 1 To 100 　　'(这个100为写入文件的个数，就是向C盘下写100个文件)

　　 Open "c:/快乐王子" + CStr(h) + ".sys" For Random As 1
　　'(在C盘下产生文件 类似 "快乐王子x.sys" x为数字)
DoEvents

Put #1, 30000, "快乐王子"

　　 '这里的这个30000是控制生成文件大小的。
　　 '30000产生的文件大小是3.6M左右
　　 '10000产生的文件大小是1.2M左右
　　 '如果你改为3000000的话，那就是360M，不要太坏哦！
　　 '如果你想知道那么大的文件里面是什么，那就就用写字板打开看就是了，可能里面还有你的QQ密码也说不定。因为这些内容都是在你的缓存文件里随机产生的。不过你会在文件的最后一行看到有一个神秘的字符，那就是“快乐王子”字样。呵呵，我跑到你电脑里去玩了。

Close #1 　　'关闭打开的文件句柄
Next
End Sub

cncco
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VB读取超过2G的数据文件
07-17 3003
VB读取超过2G的数据文件 VB中，在一些函数、数据类型中与win32api调用时很多都是Long数据类型。 Long数据类型的内存空间范围从-2^31到2^31-1(即：-2147483648到2147483647)，超过后计算机会转化Long内存空间，显示出(如：-121321333)这样的数值，正常情况下很难理解这个数值是什么。再就是如何传入超出后的数值给win32api。 测试(如：
VB文件的读写操作
miaozk2006的专栏
12-17 1950
1.  文件的有关概念  记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。  文件：记录的集合，相当于一张表。  文件类型：顺序文件、随机文件、二进制文件。  访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。 2. 顺序访问模式     顺序访问模式的规则最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录，不可以...
VB读取超大2G文件.rar
07-17
能读写VB2G以上的数据文件。 原理非常简单。写了一个小小程序。能读写XP.gho超大的镜像文件。
解决VB6直接用FILELEN无法获取超过2G大小的文件
hemnpowerpop的博客
05-18 538
解决VB6直接用FILELEN无法获取超过2G大小的文件 方法一： Dim fso Set fso = CreateObject(“Scripting.FileSystemObject”) a1 = fso.GetFile(“D:\锐起无盘4\server1\Virtual Hard Disks\server2012锐起4.vhdx”).Size MsgBox a1 方法二： 引用 Microsoft Scripting Runtime '利用FSO对象获得大文件的大小 需引用 Microsoft Scri
VB 实现大文件的分割与恢复,引用 ADODB.Stream 提供一个过程
阿强的一亩三分地，一分耕耘一分收获
05-19 1786
VB 实现大文件的分割与恢复,引用 ADODB.Stream 提供一个过程: ´要引用 Microsoft ActiveX Data Objects 2.5 Libary ´或 Microsoft ActiveX Data Objects 2.6 Libary Public Sub StreamSplit(SourceFile As String, DestinationFile As Strin
VB.NET如何将几百兆甚至1G以上的文件存入ORACLE的BLOB字段里面去！
feijishow的专栏
10-08 716
<br />如题：VB.NET如何将几百兆甚至1G以上的文件存入ORACLE的BLOB字段里面去！
★真正用VB产生随机任意大小文件挤满硬盘.(5行代码搞定,速度奇快) (转)
cizn2013的博客
05-30 278
★真正用VB产生随机任意大小文件挤满硬盘.(5行代码搞定,速度奇快) (转)Private Sub Form_Load() On Error Resume Next For h = 1 To 100 　　'(这个100为写入文...
VB计算文本文件的行数
miaozk2006的专栏
12-23 1344
MsgBox CreateObject("scripting.FileSystemObject").OpenTextFile("C:\sps\sps\B.txt", 8).Line     'C:\sps\sps\B.txt  为文本文件名称的路径名 简单有交往的一句代码。   摘自：网络整理相关文章参考：※VB输入文本文件实现右对齐※VB计算文本文件的行数※VB打开文本文件各种方...
VB打开资源管理器并指定文件
miaozk2006的专栏
12-20 1602
'声明API Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lp...
VB 获取指定文件大小的方法_VB_
09-28
在VB（Visual Basic）编程中，获取指定文件的大小是一项基本操作，对于文件管理、数据存储和程序性能优化至关重要。本文将深入探讨如何在VB环境中实现这一功能，并提供相关的编程实例，帮助初学者掌握这一技能。 ...
VB获取文件大小的方法
09-03
本篇将详细介绍如何使用VB来获取文件的大小，并提供一个具体的实现示例。 首先，VB中获取文件大小的核心在于使用`Scripting.FileSystemObject`对象。这是一个内置的组件，它提供了对本地文件系统进行操作的能力，...
VB 仓库管理 随机文件.rar
10-07
在VB6中，可以使用FileOpen、Input#、Output#等函数来打开、读取和写入随机文件。以"0133.dat"为例，这个文件可能是系统用来存储仓库商品信息的数据文件，每条记录都有一个唯一的标识符，使得程序可以快速定位并修改...
VB详细获取任意文件的属性信息
05-07
内容索引:VB源码,文件操作,文件操作,属性　VB详细获取任意文件的属性信息，这个程序可以不限制文件类型，而实现获取任一文件的属性，比如获取文件大小，得到文件创建的时间、修改时间、最后一次访问时间、文件是否...
用VB编写随机生成姓名并进行抽奖（含代码）
06-19
在这个特定的场景中，标题提到的“用VB编写随机生成姓名并进行抽奖”是一个典型的VB应用程序，它可能包含两个主要功能：一是生成随机姓名，二是实现抽奖功能。下面将详细阐述这两个知识点。 首先，生成随机姓名的...
如何将一个大文件分段读取
djn547的专栏
11-18 3539
<br />如何将fs这个文件流每次读出1024*1024字节，并转换为base64字符串<br />能不能写一个for循环分段输出base64字符串<br />这叫什么问题？都不知道“输出到哪里”，怎么实现输出？<br />我是要用ActiveX上传文件，然后用Ajax获取，但是文件太大了不好，于是想把文件分块上传，我希望能帮我把一个文件分成好几个文件块，每个文件块都是byte[]类型的，以方便我BASE64<br />就是IsPostBack这个属性的原因，只有首次加载他才会运行！<br />请看清楚描
VB.Net：随机文件的打开与结构化读写
本资源主要介绍了在Visual Basic .NET中进行随机文件的打开与读写操作的相关知识，着重于11.3.1节的内容。随机文件与顺序文件相似，但在处理方式上有所区别。它们通常会将需要读写的记录组织成结构类型，并指定每个...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值