?
$host = ' pop.163.com ';
$port = 110;
$user = ' Hu Jintao ';
$password = ' Hu Jintao ';
if (!) ( $sock =fsockopen (gethostbyname ($host), $port, $errno, $errstr))
Exit ($errno. ': '. $errstr);
Set_socket_blocking ($sock, true);
$msg =fgets ($sock);
Echo $msg;
$command = "User". $user. " \ r \ n ";
Fwrite ($sock, $command);
$msg =fgets ($sock);
Echo $msg;
$command = "Pass". $password. " \ r \ n ";
Fwrite ($sock, $command);
$msg =fgets ($sock);
Echo $msg;
$command = "stat\r\n";
Fwrite ($sock, $command);
$msg =fgets ($sock);
Echo $msg;
$command = "list\r\n";
Fwrite ($sock, $command);
while (true)
{
$msg =fgets ($sock);
Echo $msg;
if (Preg_match ('/^\./', $msg))
Break
}
$command = "Retr 1\r\n";
Fwrite ($sock, $command);
while (true)
{
$msg =fgets ($sock);
Echo $msg;
if (Preg_match ('/^\. \ r \ n) $/', $msg))
Break
}
$command = "quit\r\n";
Fwrite ($sock, $command);
$msg =fgets ($sock);
Echo $msg;
?>