[Process]

How can i convert this to vb.net

PHP Code:

// Ip address and port
$_ip = '127.0.0.1';
$_port = '27015';
 
$socket = stream_socket_client('udp://'.$_ip.':'.$_port, $errno, $errstr, 30);
stream_set_timeout($socket, 1, 0);
 
// Send command to server
$cmd = SERVERQUERY_GETCHALLENGE;
$length = strlen($cmd);
fwrite($socket, $cmd, $length);
 
// Get response from server
$response = fread($socket, PACKET_SIZE);
 
if (empty($response))
{
    echo 'Server Offline';
}
else
{
    echo 'Server Online';
} 


[Neeeeeeeeeel.-]

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.

[Process]

Thanks a lot ! solved !
Between i don't know if the check of server is on or off is true because anyway if the server is off there is a receive ?

Edit : And for the adress.Any should be Adress.parse(Ip here,Port) anyway thanks this is what i'm looking for it !

[Neeeeeeeeeel.-]

Originally Posted by Process Thanks a lot ! solved ! Between i don't know if the check of server is on or off is true because anyway if the server is off there is a receive ? Edit : And for the adress.Any should be Adress.parse(Ip here,Port) anyway thanks this is what i'm looking for it !

If the server is offline you won't recive any response... what you don't know is if the response came from an HL server.

IPAddress.Any should stay like I put it.