ICQ клиент

[SSecurity]

У мня теперь свой ОСХ (он точно ничего лишнего не шлет:))

[alexanderz]

А скоро тот DaSharm выложит на паблик исходники своего контрола. Осталось только ждать

[SSecurity]

)) ... врея проходит ... информация устаревает

[DaSharm_nn]

Сегодня дам исходники EICQ И, кстати, писать ICQ на VB с использованием винсока - глупость. Сколько винсок весит? более 100 кб, а сколько мой компонент? ... 30 кб!

Правда, есть ошибки у меня в компоненте, кто исправит - молодец, я не могу их найти но иногда вылетает ))

Все исходники будут на http://dasharm.com сегодня вечерком...Когда с универа вернусь...

[DaSharm_nn]

http://dasharm.com/modules.php?name=Fil ... iles_id=15

Исходный код Easy ICQ. Берите кому надо...

[|kerish|]

Огромное спасибо.

[Мамонт]

У когонить получилось преобразовать UIN номера в List'е в ники? А то у меня неполучается!

[DaSharm_nn]

У когонить получилось преобразовать UIN номера в List'е в ники? А то у меня неполучается!

У тебя или в EICQ?

Если у тебя, так там надо запросить отдельно по каждому номеру короткую информацию, где и будет ник.

Если в EICQ, так там есть функцию GetShortInfo, её нужно вызывать для каждого номера в списке и в событии ShortuserInfo будут приходить ники номеров и другая короткая информация.

[Мамонт]

Код: Выделить всё

Private Sub EasyICQclient1_ServerListEnd()
Dim i As Long
For i = 0 To List2.ListCount - 1
bRet = EasyICQclient1.GetShortUserInfo(List2.List(i))
Next i
End Sub

Private Sub EasyICQclient1_ShortUserInfo(ByVal UIN As String, ByVal NickName As String, ByVal FirstName As String, ByVal FamilyName As String, ByVal EMail As String)

Dim i As Long
For i = 0 To List2.ListCount - 1
if List2.List(i) = uin then list2.list(i)=NickName
Next
End Sub


По идее код должен работать! Но он определяет ник постоянно у одного номера и разные ники!

[DaSharm_nn]

да, есть баг... Оно работает, если не запрашивать все ники сразу в ServerListEnd. Если азпрашивать сразу - не работает. Посмотрю вечерком и попробую исправить

[DaSharm_nn]

Короче, баг можно обойти вот как:

Код: Выделить всё


Dim aaa As Long

Private Sub EasyICQclient1_ServerListEnd()
   GetNicks
End Sub

Private Sub EasyICQclient1_ShortUserInfo(ByVal UIN As String, ByVal NickName As String, ByVal FirstName As String, ByVal FamilyName As String, ByVal EMail As String)
Caption = UIN & " : " & NickName
GetNicks
End Sub

Private Function GetNicks()
If aaa < List2.ListCount - 1 Then
  EasyICQclient1.GetShortUserInfo List2.List(aaa)
  aaa = aaa + 1
End If
End Function



Все делает функция GetNicks, она по очереди запрашивает ники и все работает.

[Мамонт]

Пасибо! немного переделал и всё заработало!! Но вот другая проблема! Как определить тогда ники Online юзеров?

[DaSharm_nn]

вообще-то баг в контроле это, исправить будет не очень легко, надо будет поковырять контрол. А сейчас этот баг обойти можна. Дело в том, что нельзя слать все УИНЫ сразу (в цикле, как ты написал), надо слать по одному УИНУ и дожыдаться ответа (событие ShortUserInfo), только после этого можно слать второй УИН и так далее. Т. е. шли по-порядку и все бцдет ок

[Мамонт]

SSecurity

Немогли бы вы мне прислать рабочий примера аськи?

[Денис Победря]

А чем вам стандартный клиент аськи не нравится

[Мамонт]

Какой?

[SSecurity]

Format C: безусловно могу zsergei@aaanet.ru пришли туда запрос я тебе дам рабочую версию.

Говоря откровенно, я сейчас делаю ICQ-Сервер, наверное глупо было бы думать что я стал бы делать сервер, при этом не сделав клиент. Щас сервер работает с 2000, 2001, 2003 асями, триллианом и своими клиентами на 8м протоколе.

[Мамонт]

SSecurity
Неподскажешь как загрузить контакт лист?

[SSecurity]

SSecurity
Неподскажешь как загрузить контакт лист?

[скопировано из файла families.html]
Family 0x0003 Buddy List management service

0x0001 client/server Client / server error
0x0002 client Request limitations/params
0x0003 server Limitations/params response
0x0004 client Add buddy(s) to contact list
0x0005 client Remove buddy(ies) from contact
0x0006 client Query for list of watchers
0x0007 server Requested watchers list
0x0008 client Watcher sub request
0x0009 server Watcher notification
0x000a server Notification rejected
0x000b server User online notification
0x000c server User offline notification

т.е. смотришь SNAC 03_04 и 03_05 дляконтакт-листа, который ты хотишь грузить со своего компа (описание смотри в протоколе)

если ты хотишь брать контакт с сервера то тебе нужно прочитать

Family 0x0013 Server side information service

0x0001 client/server Client / server error
0x0002 client Request service parameters
0x0003 server Service parameters reply
0x0004 client Request contact list (first time)
0x0005 client Contact list checkout
0x0006 server Server contact list reply
0x0007 client Load server contact list (after login)
0x0008 client/server SSI edit: add item(s)
0x0009 client/server SSI edit: update group header
0x000a client/server SSI edit: remove item
0x000e server SSI edit server ack
0x000f server client local SSI is up-to-date
0x0011 client/server Contacts edit start (begin transaction)
0x0012 client/server Contacts edit end (finish transaction)
0x0014 client Grant future authorization to client
0x0015 server Future authorization granted
0x0016 client Delete yourself from another client server contact
0x0018 client Send authorization request
0x0019 server Authorization request
0x001a client Send authorization reply
0x001b server Authorization reply
0x001c server "You were added" message

думаю с инглишом проблем нет .... но где искать я тебе сказал:)

[Мамонт]

Ну что, ктонить готов похвастаться своим клиентом или ещё пока ниукого успехоф нет?

[Hk]

Тему можно "поднять" ? Кто-нибудь отпишитесь что получилось ?

[dorido]

Тему можно "поднять" ? Кто-нибудь отпишитесь что получилось ?

логин, получение списка контактов, проверка статусов контактов, установка своего статуса, получение и отправление мессаг. доделывать нет времени, сессия;)

[alibek]

Сообщения в стиле "и мне тоже на мыло скинь" пишите через ЛС.

[Proxy]

Хватит динозавров пинать. ICQ клиентов с открытым кодом в инете уже навалом просто. И на вб кстати как минимум 2. Сделайте пожалуйста сервер кто-нибудь (сделать и захостить бесплатно), что бы исключить забавные недостатки протоколов ICQ, Jabber и т.п. Те же доп. статусы в ICQ просто убивают. Вообще протокол развивается наращиванием, не всегда подобное наращивание приемлимо. Весь мусор из старых версий так и накапливается. Веб камера в ОСКАР. Кто-нибудь её хоть раз заюзал? Квип вообще ширится и пырится. Уже больше походит не на ICQ клиент, а на QIP.RU клиент с функцией ICQ. Будет больше пользы от создания сервера на новом протоколе (+ шлюзы взаимодействия с ICQ). Коллективно это довольно не сложно замутить.

[keks-n]

Чем Жаббер не устраивает-то?

[Proxy]

А чем он может устраивать? Где нормальное обещанное взаимодействие с 4-мя ведущими IM протоколами? Что-то как-то всё красиво задумано, но как-то всё криво работает. А может я клиенты не кривые не видел, хз.

[keks-n]

Не знаю, я щас через него сижу, на аську нормальный транспорт, всё удобно

[Star Cat]

http://dasharm.com/modules.php?name=Files&d_op=get_file_details&files_id=15

Исходный код Easy ICQ. Берите кому надо...

А где исходник?

[MIT]

Сходи сюда.

[Star Cat]

Сходи сюда.

Спасибо ДРУГ!!!