На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела "Наши Исходники"
Раздел предназначен для публикации различных исходников и программных решений (в виде исходных текстов), которые Вы считаете достойными внимания и/или интересными. Язык исходника значения не имеет. Это может быть C/C++, Pascal, Perl, PHP, C#, Foth, Prolog или любой другой существующий язык программирования. Единственный момент – в названии темы этот язык должен быть указан. Например, «[C++] Представление чисел в римской записи». Сам исходный текст должен содержаться в первом посте темы. Если исходник занимает не больше одного-двух экранов, то допустимо его публикация непосредственно в посте. Иначе исходный текст должен быть прикреплен к посту в виде архива. Кроме того, первый пост должен содержать:

- Информацию о платформе/компиляторе, для которых предназначен исходный текст (если эта информация существенна)
- Ссылку на оригинал и автора (если публикуется чужой исходный текст)
- Максимально подробное описание – какую задачу решает опубликованный исходный текст, и чем он интересен.

Плагиат крайне не приветствуется. Также не приветствуется публикация исходных текстов вирусов, крэков и т. п. информации. Это элементарно противозаконно.

Для быстрого поиска нужного исходника можно воспользоваться навигатором:
Быстрый поиск по разделу
  
> [Delphi] LostMessages, Альтернатива ICQ с открытым кодом
    LostMessages - экспериментальная разработка
    Это интернет-пейджер, альтернатива официальному клиенту ICQ. Основная философия данной альтернативы: быстрота и минимум интерфейса.

    user posted image

    Краткое описание

    Потерянные сообщения. Основой такого необычного названия послужил тот факт, что никакие данные из программы (полученные и отправленные сообщения, лог программы, uin и пароль) никуда не сохраняются.

    В программе ведется лог событий и оповещений, отображаемый в отдельном окне.
    Сообщения и лог программы можно сохранить через специальное меню (щелчок правой кнопкой мыши по полю, где находится лог программы или отправленные и полученные сообщения - сохранить).
    Для работы требуется всего лишь один исполняемый файл программы, который занимает около 245 кб на диске.

    Функции:

    Имеется поддержка прокси —подключения;

    Отсутствуют смайлы;

    Отправленные и полученные сообщения отображаются в одном окне - окне сообщений;

    Нет функции автоматического сохранения контакт-листа и полученных/отправленных сообщений

    Если вы хотите отослать кому-либо сообщение, нужно выделить его нить в контакт-листе, и писать сообщение в нижнем текстовом поле в окне сообщений, затем нажать alt+s;

    Нет звукового сопровождения событиям в программе (при получении/отправке сообщения);

    Временно отсутствует возможность авторизации и добавления, удаления контакта, однако есть возможность найти контакт по его uin и временно добавить в контакт-лист;

    Клиент не претендует на повседневное пользование, так как некоторые функции полноценного icq-клиента в нем отсутствуют.

    Если смотреть глобально -то это скорее "походная аська", т.к. для ее работы практически ничего (в т.ч. дополнительных файлов, настроек) не требуется.

    Для справки о командам необходимо ввести "man" в командной строке.

    Постоянно находится в трее.

    Выход из программы: 'x' в командной строке.


    Основные концепции при создании этой альтернативы, которыми я руководствовался:
    1) Наличие командной строки
    2) Ведение лога
    3) Простота
    4) Входящие и исходящие сообщения находятся в одном окне
    5) Нет ведения истории, сохранения списка контактов автоматически (но можно вручную сохранять лог и сообщения).
    6) Трансляция с анг->рус и наоборот (например, 'ghbdtn'='привет'), при нажатии alt+t;
    7) Быстрый поиск по контакт-листу (поле в окне сообщений, при вводе части ника этот ник ищется в списке и выделяется, после чего ему сразу можно писать )
    LM претендует на достойную альтернативу, но основы ICQ в программе заложены.
    Последнее обновление - убрано лишнее и добавлен ответ на авторизацию (экспериментально)

    Можете создавать ботов на этой основе, можете дорабатывать, если есть желание - исходники открыты. Только небольшая просьба - по возможности, сообщайте тут, когда внесете какие - либо изменения в данный клиент, выкладывайте его, чтобы кто-нибудь мог протестить прогу, или использовать.
    Написан на Delphi7
    Исполняемый файл - скачать
    Исходники - скачать
    Краткий мануал по использованию LM: скачать

    P.S.
    За авторизацию отвечают две процедуры :

    ICQClient1AuthRequest и ICQClient1AuthResponse : происходят соответственно когда собеседник запросил у вас авторизацию (ICQClient1AuthRequest) и при получении подтверждения "авторизуй меня" (ICQClient1AuthResponse).

    Примеры:

    ExpandedWrap disabled
      procedure ICQClient1AuthRequest
      var st: integer;
      List: TStringList;
      begin
      st:=messagedlg(UIN+' : Авторизовать?',mtCustom,[mbYes, mbNo],0);
      if st<>mrYes then exit;
      ICQClient1.SSLChangeStart(False);
      ICQClient1.SSLAddUser(0010, 0025, uin, 'Nick', '', False, False); //Add user(ID: 0025) to group(ID: 0010)
      List := TStringList.Create; //Create temporary list
      List.Add('0020');
      form1.ICQClient1.SSLUpdateGroup('group1', 0010, List);
      ICQClient1.SSLChangeEnd;


    ExpandedWrap disabled
      procedure ICQClient1AuthResponse
      CQClient1.SSLChangeStart(False);
      ICQClient1.SSLAddUser(0010, 0025, uin, 'Nick', '', False, False); //Add user(ID: 0025) to group(ID: 0010)
      ICQClient1.SSLChangeEnd;


    P.P.S.
    Вообще идея такова: берете основу, дорабатываете/изменяете, выкладываете. Если не лень.
    Свои мысли выкладывайте ниже ;) Буду отвечать на вопросы, если таковые имеются.
    Сообщение отредактировано: Flex Ferrum -
      Цитата Max @
      В принципе, как Linux

      так это же дельфи. а где код для линукс? хоть на лазарус портируй.
        Цитата niXman @
        так это же дельфи. а где код для линукс? хоть на лазарус портируй.

        Ладно, насчет linux переборщил, но выложил просто чтоб другие пользовались, например для создания ботов. Портировать, увы, пока времени нет.
          А чем TICQClient не устраивает ?

          пригодиться: http://oscar.asechka.ru/ (русски перевод протокола OSCAR)
            Цитата lytgeygen @
            А чем TICQClient не устраивает ?

            пригодиться: http://oscar.asechka.ru/ (русски перевод протокола OSCAR)

            ага, а ты исходник качал? он там лежит, если не заметил :)
            0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script Execution time: 0,0761 ]   [ 15 queries used ]   [ Generated: 22.04.21, 02:12 GMT ]