<pre>
<?
flush();
echo "<FORM Action='ИМЯ_ТЕКУЩЕЙ_СТРАНИЦЫ?act=go' METHOD='POST'>
//Вместо ИМЯ_ТЕКУЩЕЙ_СТРАНИЦЫ нужно ввести имя страницы,
//на которой находится скрипт
//от кого
<INPUT TYPE='TEXT' Name='from'>
//с какого майла
<INPUT TYPE='TEXT' Name='fromemail'>
//тема
<INPUT TYPE='TEXT' Name='subject'>
//номер аси
<INPUT TYPE='TEXT' Name='to'>
//сообщение
<INPUT TYPE='TEXT' Name='body'>";
if ( $act == 'go' )
{
$submit='Send Message'; // don't edit
$ref="http://wwp.icq.com/$to"; // don't edit
// формирование заголовка
$PostData=
"from=".urlencode($from)."&".
"fromemail=".urlencode($frommail)."&".
"subject=".urlencode($subject)."&".
"body=".urlencode($body)."&".
"to=".urlencode($to)."&".
"submit=".urlencode($submit);
$len=strlen($PostData);
$nn="\r\n";
$zapros=
"POST /scripts/WWPMsg.dll HTTP/1.0".$nn.
"Referer: $ref".$nn.
"Content-Type: application/x-www-form-urlencoded".$nn.
"Content-Length: $len".$nn.
"Host: www.icq.com".$nn.
"Accept: */*".$nn.
"Accept-Encoding: gzip, deflate".$nn.
"Connection: Keep-Alive".$nn.
"User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT)".$nn.
"".$nn.
"$PostData";
echo $zapros."\n\n-------------\n\n\n";
flush();
// открываем сокет и шлем заголовок
$fp = fsockopen("www.icq.com", 80, &$errno, &$errstr, 30);
if(!$fp) { print "$errstr ($errno)<br>\n"; exit; }
// для наглядности выводим заголовок ответа и страницу на экран
fputs($fp,$zapros);
print fgets($fp,20048);
fclose($fp);
}
?>