Server: Counter-Strike Source (players - maps) - Visual Basic .NET - Ответ 603896

Imports System.Net
Imports System.Text ' для System.Text.Encoding.ASCII.GetBytes("privet kot!")
Imports System.Net.Sockets ' для Dim udpClient As New UdpClient(55777)
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim Message As [Byte]() = {"255", "255", "255", "255", "84", "83", "111", "117", "114", "99", "101", "32", "69", "110", "103", "105", "110", "101", "32", "81", "117", "101", "114", "121", "0"} 'Задаём содержимое массива вручную
 
        Dim endPoint As New IPEndPoint(IPAddress.Parse("192.168.0.58"), 27015)
 
        Dim client As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        client.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReceiveTimeout, 6000)
 
        client.SendTo(Message, endPoint)
 
        Dim sBuffer(1400) As Byte
        Try
            client.ReceiveFrom(sBuffer, endPoint)
 
            TextBox2.Text = System.Text.Encoding.ASCII.GetString(sBuffer)
            TextBox3.Text = endPoint.Address.ToString() 'Так получим IP моя фишка
        Catch ex As SocketException
            MsgBox("Failed to receive response on " + vbCrLf & ex.Message)
        End Try
 
 
    End Sub
 
End Class