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"; $pf = fsockopen($serveur, 80, $erreur, $errstr, 60); if( ! fp ) { echo " $errstr $erreur
\n"; } else { $out = "HEAD / HTTP/1.0\r\n\r\n"; $out .= "Host: $serveur\r\n"; $out .= "Connection: Close\r\n\r\n"; echo "

out: $out

\n

"; fwrite($pf, $out); while ( ! feof($pf) ) { $in = fgets($pf, 255); echo "in: $in
\n"; } fclose($pf); echo "socket fermée

\n"; } ?>