что может быть проще
качай компонент TCiqClient
подключайся
ICQClient1.UIN:=StrToInt(EDIT1.Text); //УИН
ICQClient1.Password:=EDIT2.Text; //ПАРОЛЬ
ICQClient1.Login();Логинимся к серверу
if ICQClient1.LoggedIn then //ЕСЛИ СОЕДИНЕНИЕ УСТАНОВЛЕНО
begin
icqclient1.SendMessage(123456789), ''+ memo2.Text +'' );
//отправляем сообщение 123456789 ЭТО УИН КОМУ НАПИСАТЬ В МЕМО2 ТЕКСТ СООБЩЕНИЯ
END;
|