求教PHP改易语言

graywolf · 发表于 2014-8-1 18:03:50

<?php

      function QueryMinecraft( $IP, $Port = 25565, $Timeout = 2 )
      {

            $Socket = Socket_Create( AF_INET, SOCK_STREAM, SOL_TCP );
            Socket_Set_Option( $Socket, SOL_SOCKET, SO_SNDTIMEO, array( 'sec' => (int)$Timeout, 'usec' => 0 ) );
            Socket_Set_Option( $Socket, SOL_SOCKET, SO_RCVTIMEO, array( 'sec' => (int)$Timeout, 'usec' => 0 ) );
            if( $Socket === FALSE || @Socket_Connect( $Socket, $IP, (int)$Port ) === FALSE )
            {
                     return FALSE;
            }
            Socket_Send( $Socket, "\xFE\x01", 2, 0 );
            $Len = Socket_Recv( $Socket, $Data, 512, 0 );
            Socket_Close( $Socket );
            if( $Len < 4 || $Data[ 0 ] !== "\xFF" )
            {
                     return FALSE;
            }
            $Data = SubStr( $Data, 3 );
            $Data = iconv( 'UTF-16BE', 'UTF-8', $Data );
            if( $Data[ 1 ] === "\xA7" && $Data[ 2 ] === "\x31" )
            {
                     $Data = Explode( "\x00", $Data );
                     return Array(
                              'HostName' => $Data[ 3 ],
                              'Players' => IntVal( $Data[ 4 ] ),
                              'MaxPlayers' => IntVal( $Data[ 5 ] ),
                              'Protocol' => IntVal( $Data[ 1 ] ),
                              'Version' => $Data[ 2 ],
                     );
            }
            $Data = Explode( "\xA7", $Data );
            return Array(
                     'HostName' => SubStr( $Data[ 0 ], 0, -1 ),
                     'Players' => isset( $Data[ 1 ] ) ? IntVal( $Data[ 1 ] ) : 0,
                     'MaxPlayers' => isset( $Data[ 2 ] ) ? IntVal( $Data[ 2 ] ) : 0,
                     'Protocol' => 0,
                     'Version' => '1.3',
            );
      }
$array = QueryMinecraft("123456789",123456);

$servername = $array['HostName']
$maxplayers = $array['MaxPlayers']
$onlineplayers = $array['Players']
$serverversion = $array['Version']

echo "服务器玩家：" . $onlineplayers . '/' . $maxplayers

?>

补充内容 (2014-8-1 19:30):
就是把这PHP代码用易语言写出来