Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO


Public Class Form1
    Inherits System.Windows.Forms.Form

' rconPassword is the password to login for admin control
    Dim sPass As String = "/rcon login rconPassword"
' sv_hostname is the variable on the server that has text im trying to receive    
Dim hostName As String = "sv_hostname"

' multi-line textbox named txtBox1 for sending the information to, to read
Private Sub txt(ByVal Text As String)
        txtBox1.AppendText(Text & vbCrLf)
        txtBox1.ScrollToCaret()
    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        
        Dim udpClient As New UdpClient(12345)
        Try
            ' Not the real ip address or port number
            udpClient.Connect("123.45.67.89", 12345)

            ' Here i try to send the login attempt and hostname request
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(sPass & hostName)


            udpClient.Send(sendBytes, sendBytes.Length)

            
            Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)

            
            Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
            Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

          
            txt("Hostname: " + returnData.ToString())
            
            udpClient.Close()


        Catch ex As Exception
            txt(ex.ToString())
        End Try
    End Sub
End Class

Hostname: disconnect

Imports System.Net.Sockets
Imports System.Text
Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim udpClient As New UdpClient(11000)

        Try
            udpClient.Connect("193.47.83.222", "28934")

            Dim sendBytes As [Byte]() = Encoding.UTF8.GetBytes("/rcon login rconpassword")

            udpClient.Send(sendBytes, sendBytes.Length)

            Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)

            Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
            Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

            ' Which one of these two hosts responded?
            TextBox1.Text = (("This is the message you received " + _
                                          returnData.ToString()))
            TextBox1.Text = TextBox1.Text & vbCrLf & (("This message was sent from " + _
                                         RemoteIpEndPoint.Address.ToString() + _
                                         " on their port number " + _
                                         RemoteIpEndPoint.Port.ToString()))
            udpClient.Close()
        Catch ex As Exception
            Console.WriteLine(e.ToString())
        End Try
    End Sub
End Class

Public Class Form1
    Private Sub btnCONNECT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCONNECT.Click
        Dim client As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Dgram, Net.Sockets.ProtocolType.Udp)
        Dim command As String = "ÿÿÿÿrcon" & txtPASS.Text & " say Is this working?"
        Dim sendBuffer() As Byte = System.Text.Encoding.UTF8.GetBytes(command)
        Dim receivedReply As Boolean
        Dim availableBytes As Integer

        client.Connect(txtIP.Text, txtPORT.Text)
        client.Send(sendBuffer, sendBuffer.Length, Net.Sockets.SocketFlags.None)

        Do
            availableBytes = client.Available
            If (availableBytes > 0) Then
                Dim receiveBuffer(availableBytes - 1) As Byte
                client.Receive(receiveBuffer, availableBytes, Net.Sockets.SocketFlags.None)
                MessageBox.Show(System.Text.Encoding.UTF8.GetString(receiveBuffer))
                receivedReply = True
            End If
        Loop Until receivedReply
    End Sub
End Class