ICQ - форум. Всё про ICQ.  

Вернуться   ICQ - форум. Всё про ICQ. > Мастерская > Программирование

Программирование C / C++ / Visual C++ / Delphi / Visual Basic / ASM / Windows / Pascal

 
 
Опции темы Рейтинг: Рейтинг темы: голосов - 29, средняя оценка - 4.48.
Старый 28.05.2007, 06:59   #1
Участник
 
Регистрация: 06.08.2006
Сообщений: 243

ICQ: 272727765

Репутация: 406
По умолчанию TICQClient - исправления, дополнения и прочее

В этой теме будут выкладываться исправления и дополнения к компоненту TICQClient от Кобана для Delphi.


Компонент, актуально работающий на 13.08.2010
скачать: TICQClient
Пример работы с компонентом:
скачать: СheatICQ
Официальный хелп от coban2k
скачать: TICQClientHelp.rar



==============================

Оригинальный компонент (с демо): скачать


Компонент с работающими прокси и кодировками скачать тут


Компонент от Romen'a (с демо):
- движок на ICQ
- к архиве есть все необходимые модули (для WSocket'a от ICS 1.4, плюс из RxLib несколько модулей)
- из компонента убрано все "лишнее"
скачать

Демки делались в Turbo Delphi 2006, поэтому если вы будете собирать их под Delphi 7 и ниже не забудте в насткойках проекта указать пути, иначе среда не найдет эти модули и будет ругаться на их отсутствие.



1) Project -> Options
2) Закладка Directories/Conditionals
3) -> Units output directory: Units
-> Search path: ICQClient

Последний раз редактировалось DjFly; 04.02.2012 в 20:23.
Sax-mmS вне форума  
Плюсанули Sax-mmS — 3 :
Старый 23.09.2011, 18:48   #1151
Участник
 
Регистрация: 23.09.2011
Сообщений: 6

Репутация: 1
По умолчанию

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

Последний раз редактировалось hacker_007; 23.09.2011 в 18:50.
hacker_007 вне форума  
Старый 23.09.2011, 19:49   #1152
Супер Модератор
 
Аватар для DjFly
 
Регистрация: 07.07.2007
Сообщений: 845

По умолчанию

hacker_007, все так говорят, мы привыкли
DjFly вне форума  
Старый 23.09.2011, 20:38   #1153
Участник
 
Регистрация: 23.09.2011
Сообщений: 6

Репутация: 1
По умолчанию

Могу исходник кинуть хоспди... Я не жадный
hacker_007 вне форума  
Старый 24.09.2011, 11:06   #1154
Участник
 
Регистрация: 23.09.2011
Сообщений: 6

Репутация: 1
По умолчанию

Ну чё, ребят, кто поможет?

Добавлено через 4 часа 28 минут
Блин, ребят это последний этап в написании хак бота... Мне осталось только это... Кто поможет, тому дам исходник своей проги без проблем.

Последний раз редактировалось hacker_007; 24.09.2011 в 15:35. Причина: Добавлено сообщение
hacker_007 вне форума  
Старый 26.09.2011, 16:06   #1155
Участник
 
Регистрация: 23.09.2011
Сообщений: 6

Репутация: 1
По умолчанию

Эх вы... Жлобики.

Цитата:
//Отправка запроса
procedure TForm1.Timer4Timer(Sender: TObject);
begin
icqclient1.RequestContactList;
end;

//Получение листа в memo
procedure TForm1.ICQClient1ServerListRec v(Sender: TObject;
SrvContactList: TList);
var
UserInfo: TUINEntry;
i:integer;
begin
timer4.Enabled:=false;
if SrvContactList.Count > 0 then
for i := 0 to SrvContactList.Count - 1 do
begin
UserInfo := PUINEntry(SrvContactList.Items[i])^;
if userinfo.CType=0 then
listbox1.items.Add(inttostr(us erinfo.UIN));
END;
ICQClient1.DestroyUinlist(SrvC ontactlist);
end;

//Отправка сообщения
procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer2.Enabled:=true;
if listbox1.ItemIndex<>listbox1.I tems.Count-1 then
Begin
icqclient1.SendMessage(strtoin t(listbox1.Items[i]),'Программа запущена!!!' + #13#10 + 'Пишите !help для помощи.');
listbox1.ItemIndex:=i;
inc(i);
end
else
begin
timer2.Enabled:=false;
i:=0;
end;
end;
hacker_007 вне форума  
Старый 27.09.2011, 13:46   #1156
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

hacker_007, всё верно. Только всем это сообщение не отправится ;)
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Старый 27.09.2011, 15:57   #1157
Участник
 
Регистрация: 23.09.2011
Сообщений: 6

Репутация: 1
По умолчанию

Странно... А почему? У меня просто работает...
hacker_007 вне форума  
Старый 26.11.2011, 11:05   #1158
Участник
 
Регистрация: 26.11.2011
Сообщений: 1

Репутация: 1
По умолчанию

как быть с mail авторизацией?
многие уже пользуются мейл агентами, где вместо UIN используется авторизация по ящику.
Panzer вне форума  
Старый 20.12.2011, 11:09   #1159
Участник
 
Регистрация: 19.12.2011
Сообщений: 2

Репутация: 1
По умолчанию

есть код:
Код:
var 
i: integer
begin
....
...
if msg='лалала' then
  icqclient1.SendMessage(strtoint(UIN), Memo2.Lines.Strings[i]);
end;
но он отправляет только определенную строку, подскажите что изменить чтобы отправлял всё что находится в memo2?
Derevo вне форума  
Старый 20.12.2011, 11:57   #1160
Участник
 
Аватар для yxu
 
Регистрация: 17.11.2006
Сообщений: 153

ICQ: 8070080

Репутация: 302
По умолчанию

memo2.text
__________________
Лучший ICQ софт и не только - http://ухич.рф
Онлайн чекеры - http://ухич.рф/checkers (Снова в строю :)
yxu вне форума  
Плюсанул yxu :
Старый 20.12.2011, 12:57   #1161
Участник
 
Регистрация: 19.12.2011
Сообщений: 2

Репутация: 1
По умолчанию

я проде так прописывал первый раз и не вышло почему-то
попробуем еще раз

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

Последний раз редактировалось Derevo; 20.12.2011 в 15:06. Причина: Добавлено сообщение
Derevo вне форума  
Старый 24.01.2012, 20:04   #1162
Участник
 
Регистрация: 24.01.2012
Сообщений: 1

Репутация: 1
По умолчанию

Добрый день.Использую компонент TICQClient.
Появился вопрос.Как узнать авторизован у меня в контакт листе пользователь или нет?
Контакт лист получаю с помощью RequestContactList() и обрабатываю в OnServerListRecv.
Заранее благодарю.
Modlator290 вне форума  
Старый 03.02.2012, 16:08   #1163
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

Modlator290, FEEDBAG_ATTR_PENDING = 102; // Требует авторизации.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Старый 21.02.2012, 22:11   #1164
Участник
 
Аватар для deadline
 
Регистрация: 14.02.2012
Сообщений: 72

ICQ: 490087

Репутация: 102
Bimoid
По умолчанию

подскажите максимальное кол-во символов исходящео/входящего сообщения в ticq?
deadline вне форума  
3 пользователя(ей) минусанули это сообщение:
Старый 21.02.2012, 22:35   #1165
Модератор
 
Регистрация: 21.06.2010
Сообщений: 67

ICQ: 380081222

Репутация: 228
Bimoid Twitter
По умолчанию

deadline, из FAQ по TICQClient:
Цитата:
Question:
Are there some limits on message length?

Answer:
450 chars for offline message
7000 chars for online & direct connection messages
__________________
В свободное время автор LearnbyHeart.
Пользователь Bimoid.
MichaelD вне форума  
Плюсанул MichaelD :
Старый 21.02.2012, 23:41   #1166
Участник
 
Аватар для deadline
 
Регистрация: 14.02.2012
Сообщений: 72

ICQ: 490087

Репутация: 102
Bimoid
По умолчанию

не актуально уже, но спасибо
сейчас на все сообщения по 450 смвл
deadline вне форума  
3 пользователя(ей) минусанули это сообщение:
Старый 21.02.2012, 23:42   #1167
Участник
 
Аватар для kaleostra
 
Регистрация: 09.01.2005
Сообщений: 525

ICQ: 577388

Репутация: 1607
По умолчанию

Цитата:
Сообщение от deadline Посмотреть сообщение
не актуально уже, но спасибо
сейчас на все сообщения по 450 смвл
Бред
__________________
ботов уже нету :))
kaleostra вне форума  
Старый 21.02.2012, 23:46   #1168
Участник
 
Аватар для deadline
 
Регистрация: 14.02.2012
Сообщений: 72

ICQ: 490087

Репутация: 102
Bimoid
По умолчанию

kaleostra, в ticq бред? ты проверял?
deadline вне форума  
3 пользователя(ей) минусанули это сообщение:
Старый 22.02.2012, 00:06   #1169
Участник
 
Аватар для kaleostra
 
Регистрация: 09.01.2005
Сообщений: 525

ICQ: 577388

Репутация: 1607
По умолчанию

Цитата:
Сообщение от deadline Посмотреть сообщение
kaleostra, в ticq бред? ты проверял?
450 символов - половина ботов бы просто перестала существовать. Например онлайн библиотеки.
__________________
ботов уже нету :))
kaleostra вне форума  
Старый 22.02.2012, 01:15   #1170
Участник
 
Аватар для deadline
 
Регистрация: 14.02.2012
Сообщений: 72

ICQ: 490087

Репутация: 102
Bimoid
По умолчанию

kaleostra, лично у меня в компоненте почему-то именно такая трабла
он на базе ticq, но до какого-то времени все работало нормально.
deadline вне форума  
3 пользователя(ей) минусанули это сообщение:
Старый 22.02.2012, 14:30   #1171
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

В сообщение влезает чуть больше, чем 7k символов.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Старый 22.02.2012, 17:02   #1172
Участник
 
Аватар для deadline
 
Регистрация: 14.02.2012
Сообщений: 72

ICQ: 490087

Репутация: 102
Bimoid
По умолчанию

.fry, ну ок, странно, спасибо
deadline вне форума  
3 пользователя(ей) минусанули это сообщение:
Старый 23.06.2012, 15:33   #1173
Участник
 
Регистрация: 23.06.2012
Сообщений: 1

Репутация: 1
По умолчанию

Народ, помогите пожалуйста. Я вот совсем не делфибог, но мне нужно прикрутить эту штуку к c#. кроме как сделать com объект, больше ничего не могу придумать. мне нужно всего 4 метода - открыть\закрыть подключение, отправить\получить сообщение.
Во-первых - я не понимаю как реализовать метод ReciveMsg, во-вторых когда я создаю объект TICQClient.Create(nil) все крашится. надеюсь на вашу помощь)
Menus вне форума  
Старый 29.06.2012, 12:42   #1174
Участник
 
Аватар для flabber
 
Регистрация: 07.11.2006
Сообщений: 1,095

По умолчанию

Menus, На ачате вроди дллка для работы с асику лежала
__________________

дом
flabber вне форума  
Старый 13.02.2013, 20:34   #1175
 
Аватар для Angst
 
Регистрация: 06.07.2007
Сообщений: 86

ICQ: 10608

Репутация: 33
Отправить сообщение для Angst с помощью Skype™
По умолчанию

delete

Последний раз редактировалось Angst; 18.02.2013 в 22:20.
Angst вне форума  
 

Метки
delphi, ticqclient

Опции темы
Оценка этой теме
Оценка этой теме:

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +3, время: 02:06.


Перевод: zCarot
Форум Асечников © Asechka.RU

Новости Сочи