? Error_reporting (E_ALL); set_time_limit (0); $ runtimes = 100; for ($ I = 0; $ I $ runtimes; $ I ++) {$ str = f_socket ("www.baidu.com", "/s? Wd = 10000 ". $ I); echo" textare
Error_reporting (E_ALL );
Set_time_limit (0 );
$ Runtimes = 100;
For ($ I = 0; $ I <$ runtimes; $ I)
{
$ Str = f_socket ('www .baidu.com ','/s? Wd = 10000 '. $ I );
Echo''. $ Str .'
';
}
Function f_socket ($ website, $ url)
{
$ Service_port = getservbyname ('WWW ', 'tcp ');
$ Address = gethostbyname ($ website );
$ Socket = socket_create (AF_INET, SOCK_STREAM, SOL_TCP );
If (false = ($ socket_result = socket_connect ($ socket, $ address, $ service_port )))
{
Echo ('socket _ CONNECT_ERROR: '. socket_strerror (socket_last_error ($ SOCKET )));
}
$ In = 'get'. $ url. 'HTTP/1.1 \ r \ n ';
$ In. = 'host: '. $ website.' \ r \ n ';
$ In. = 'connection: close \ r \ n \ r \ n ';
Socket_write ($ socket, $ in, strlen ($ in ));
$ Start_time = time ();
$ Str = '';
Do
{
If (false = ($ out = socket_read ($ socket, 8192 )))
{
Echo ('socket _ READ_ERROR: '. socket_strerror (socket_last_error ($ SOCKET )));
$ Str = '';
Break;
}
If (time ()-$ start_time> 1)
{
Echo ('socket _ READ_ERROR: Timeout !!! ');
$ Str = '';
Break;
}
$ Str. = $ out;
} While ($ out! = '');
Socket_close ($ socket );
Return $ str;
}
/*
Function f_socket ($ website, $ url)
{
$ Fp = fsockopen ($ website, 80, $ errno, $ errstr, 30 );
If (! $ Fp)
{
}
Else
{
$ Out = 'get'. $ url. 'HTTP/1.1 \ r \ n ';
$ Out. = 'host: '. $ website.' \ r \ n ';
$ Out. = 'connection: Close \ r \ n \ r \ n ';
Fwrite ($ fp, $ out );
$ Str = '';
$ Start_time = time ();
While (! Feof ($ fp ))
{
$ Str. = fread ($ fp, 8192 );
If (time ()-$ start_time> 1)
{
$ Str = '';
Echo 'timeout !!! ';
Break;
}
}
Return $ str;
}
}
*/
?>