Отправить сообщение на ICQ

Delphi , Интернет и Сети , ICQ

{ 
  You need 3 TEdits, 1 TMemo und 1 TClientSocket. 
  Set the  TClientsocket's Port to 80 and the Host to wwp.mirabilis.com. 
} 

var 
  Form1: TForm1; 
  csend: string; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  cSend := 'POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0' + chr(13) + chr(10); 
  cSend := cSend + 'Referer: http://wwp.mirabilis.com' + chr(13) + chr(10); 
  cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + chr(13) + chr(10); 
  cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10); 
  cSend := cSend + 'Host: wwp.mirabilis.com:80' + chr(13) + chr(10); 
  cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10); 
  cSend := cSend + 'Content-length:8000' + chr(13) + chr(10); 
  cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' + 
    chr(13) + chr(10) + chr(13) + chr(10); 
  cSend := cSend + 'from=' + edit1.Text + ' &fromemail=' + edit2.Text + 
    ' &fromicq:110206786' + ' &body=' + memo1.Text + ' &to=' + edit3.Text + '&Send='; 
  clientsocket1.Active := True; 
end; 

procedure TForm1.ClientSocket1Connect(Sender: TObject; 
  Socket: TCustomWinSocket); 
begin 
  clientsocket1.Socket.SendText(csend); 
  clientsocket1.Active := False; 
end;

Программа на Delphi, которая отправляет сообщение ICQ с помощью компонента TClientSocket для подключения к wwp.mirabilis.com по порту 80 и отправки запроса POST с необходимыми заголовками и параметрами.

Вот шаг за шагом, что код делает:

1. Форма содержит три компонента TEdit (edit1, edit2 и edit3) для ввода номера ICQ отправителя, электронной почты и номера ICQ получателя соответственно.
2. Есть также компонент TMemo (memo1) для ввода тела сообщения.
3. Когда событие Button1Click активируется, программа строит строку (cSend) с необходимыми заголовками и параметрами:
   • Запрос POST отправляется на http://wwp.icq.com/scripts/WWPMsg.dll
   • Заголовок Referer установлен в http://wwp.mirabilis.com
   • Заголовок User-Agent установлен в Mozilla/4.06 (Win95; I)
   • Заголовок Connection установлен в Keep-Alive
   • Заголовок Host установлен в wwp.mirabilis.com:80
   • Заголовок Content-type установлен в application/x-www-form-urlencoded
   • Заголовок Content-length установлен в 8000 (что может быть избыточным, но может требоваться сервером ICQ)
   • Заголовок Accept specifies acceptable types of content
4. Программа затем устанавливает свойство Active компонента TClientSocket (clientsocket1) в True, что устанавливает соединение с сервером.
5. В событии ClientSocket1Connect программа отправляет построенную строку (cSend) как текст с помощью метода Socket.SendText.
6. Наконец, программа устанавливает свойство Active компонента TClientSocket в False, что закрывает соединение.

Обратите внимание, что это код старый и может не работать с современными версиями ICQ или серверами. Кроме того, отправка сообщений ICQ пользователям без их согласия является спамом и может нарушать условия использования.

Отправка сообщения на ICQ - статья, в которой описывается код на Delphi для отправки сообщения на ICQ с помощью компонента TClientSocket и формирования HTTP-запроса к серверу ICQ.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ICQ ::