Connexion TCP/IP\n"; /* Lit le port du service WWW. */ $service_port = getservbyname('www', 'tcp'); /* Lit l'adresse IP du serveur de destination */ $address = gethostbyname($serveur); echo "

gethostbyname pour $serveur retourne '$address'

\n"; /* Cree une socket TCP/IP. */ $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP); if ($socket === false) { echo "socket_create() a échoué : raison : " . socket_strerror(socket_last_error()) . "
\n"; } else { echo "socket_create OK.

\n"; } echo "

Essai de connexion à '$address' sur le port '$service_port'...
"; $result = socket_connect($socket, $address, $service_port); if ($socket === false) { echo "socket_connect() a échoué : raison : ($result) " . socket_strerror(socket_last_error($socket)) . "
\n"; } else { echo "socket_connect OK.
\n"; } $out = "HEAD / HTTP/1.0\r\n\r\n"; $out .= "Host: $serveur\r\n"; $out .= "Connection: Close\r\n\r\n"; $in = ''; echo "Envoi de la requête :
"; echo "$out
"; socket_write($socket, $out, strlen($out)); echo "socket_write OK.

\n"; echo "Lire la réponse :
\n"; while ($in = socket_read($socket, 2048)) { echo $in; } echo "
Fermeture de la socket... "; socket_close($socket); echo "socket_close OK.
\n"; ?>