Maybe something like this:
PHP Code:
Dim udpClient As New UdpClient(27015)
udpClient.Connect("127.0.0.1", 27015);
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(Chr(255) + Chr(255) + Chr(255) + Chr(255) + "TSource Engine Query")
udpClient.Send(sendBytes, sendBytes.Length)
Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
udpClient.ReceiveTimeout = 5
Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)
If returnData.ToString() = "" Then
Console.WriteLine("Server offline")
Else
Console.WriteLine("Server online")
EndIf
udpClient.Close()
I did not test it... it may have some silly sintax errors because I did not use vb.NET IDE and I have not been using it for a long time.
__________________