Server: Counter-Strike Source (players - maps)

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
 
        Try
            Dim udpClient As New UdpClient(55777) 'Мой порт на который я прошу дать ответ (с него локально и уйдёт).
            udpClient.Connect("255.255.255.255", 27015) 'Куда на какой порт
 
 
            ' Отправляет сообщение для хоста, к которому вы подключены.
            'Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes("privet kot!")
            Dim sendBytes 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"} 'Задаём содержимое массива вручную
 
            udpClient.Send(sendBytes, sendBytes.Length) 'Отправляем данные
 
            udpClient.Close() 'Закрываем сокет
 
 
        Catch ex As Exception
            TextBox3.Text = (ex.ToString())
        End Try
 
    End Sub
 
End Class

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