[psh96]

Привет всем!
Скажите пожалуиста как зделать:
1. Загрузить контакты всех пользователей в combobox
2. Зделать так что если пришло любое сообщение то ответить что-либо и ответ должен быть на все сообщения одинаковый.

[PESTS]

Сообщение от psh96

Привет всем!
Скажите пожалуиста как зделать:
1. Загрузить контакты всех пользователей в combobox

Код:

procedure TForm1.ICQClientServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem; 
  Full_Contact:boolean;
begin
  if Full_Contact then
  begin
    Full_Contact:=False;
    ComboBox1.Clear;
  end;
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
      begin
        UserInfo := PUINEntry(SrvContactList.Items[i])^;
        if UserInfo.CType = 0 then
          begin
            ComboBox1.Items.Add(IntToStr(UserInfo.UIN));
            GetMem(UINNickItem, SizeOf(UINNickItem^));
          end;
      end;
   ICQClient.DestroyUINList(SrvContactList);
end;

Сообщение от psh96

2. Зделать так что если пришло любое сообщение то ответить что-либо и ответ должен быть на все сообщения одинаковый.

Код:

procedure TForm1.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
 LogFile: TextFile;
begin
  ICQClient.SendMessage(StrToInt(UIN),'Привет');
end;

Admin: Где теги? При рецедиве бан!

[psh96]

Спасибо!!! только скажите пожалуиста вот что:
Допустим я записал строки в memo1:

Привет
Как дела?
Пока

И как зделать чтоб он отпраклял эти сообщения вразброс.
Если пришло сообщение то он ответил
Привет
Второе сообщение
Пока
Третье
Как дела?

[psh96]

Сообщение от psh96

Спасибо!!! только скажите пожалуиста вот что:
Допустим я записал строки в memo1:

И как зделать чтоб он отпраклял эти сообщения вразброс.
Если пришло сообщение то он ответил
Привет
Второе сообщение
Пока
Третье сообщение
Как дела?

И как зделать чтоб сообщение которое отправил бот добавить в listbox

[PESTS]

Сообщение от psh96

И как зделать чтоб он отпраклял эти сообщения вразброс.
Если пришло сообщение то он ответил
Привет
Второе сообщение
Пока
Третье
Как дела?

Код:

ICQClient.SendMessage(StrToInt(UIN),Memo1.Lines.Names[n]);
n - номер строки

--------------------------------------------------------------------------------

Сообщение от psh96

И как зделать чтоб сообщение которое отправил бот добавить в listbox

Код:

ICQClient.SendMessage(StrToInt(UIN),Memo1.Lines.Names[n]);
ListBox1.Items.Add(Memo1.Lines.Names[n]);

--------------------------------------------------------------------------------

Сообщение от Admin

Admin: Где теги? При рецедиве бан!

Извеняюсь.....

ЗЫ: Если ты собрался бота писать с твоими знаниями, лучше не заморачивайся! Наберайся знаний пока

[AlexTheC0d3r]

погугли ac0d3_b0t

чтобы разные сообщения отправлял, в номере сообщения добавь функцию randomize вместо прямого указания номера строки

[Casper-Hacker]

1) Исходник на эту тему!
2) Бот исходник