[ Новые сообщения · Участники · Правила форума · Поиск · RSS ] []
  • Страница 1 из 1
  • 1
Модератор форума: TeRRoR, Jaguar09, natiQ  
Пишем скрипт отсылки сообщений в ICQ

Дата: Вторник, 03.03.2009, 21:36 | Сообщение # 1
CS_Nakz

.:Designer:.
Группа: V.I.P
Сообщений: 211
« 9 »
Статус:
Это программа отсылает сообщение на Асю. Можно легко переделать в программу отправки сообщений на пейджер (например через page.gate.ru), SMS и другое
Code
<?

     flush();

     // поля надо заполнить
     $from='Dmitry Borodin';
     $fromemail='ваше_мыло@php.spb.ru';
     $subject='сабж';
     $to='00000000';  // <-- номер. (Уверен, что кто-нить не догадается :-)
     $body='само сообщение';

     $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="rn";
     $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: wwp.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."nn-------------nnn";
     flush();

     // открываем сокет и шлем заголовок
     $fp = fsockopen("wwp.icq.com", 80, &$errno, &$errstr, 30);
     if(!$fp) { print "$errstr ($errno)<br>n"; exit; }

     // для наглядности выводим заголовок ответа и страницу на экран
     fputs($fp,$zapros);
     print fgets($fp,20048);
     fclose($fp);

?>
  • Страница 1 из 1
  • 1
Поиск: