ICQ клиент

[MIT]

Всегда пожалуйста, приходите есчо

[Мамонт]

ах...чёрт, неработает...сообщения отправляются, а от другово пользователя невсегда приходят, а если и приходят то неполностью

[Tiker]

да.. что-то не так =(

[Tiker]

покапал посидел.. поразбирал пакеты..
вообще добавляем процедуру:

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

Function ToMsgFromICQStr(ByVal strInput As String) As String
    On Error Resume Next
    Dim i As Integer, strOut As String, intChar(1) As Integer
    For i = 1 To Len(strInput)
        intChar(0) = Asc(Mid(strInput, i, 1))
        If (intChar(0) = 0) Or (intChar(0) = 4) Then
            intChar(1) = Asc(Mid(strInput, i + 1, 1))
            If (intChar(1) <> 0 And intChar(1) <> 4) Then
                If (intChar(0) = 4) Then
                     strOut = strOut & Chr(176 + intChar(1)): i = i + 1
                Else
                     strOut = strOut & Mid(strInput, i + 1, 1): i = i + 1
                End If
            End If
        Else
            strOut = strOut & Chr(intChar(0))
        End If
    Next i
    ToMsgFromICQStr = strOut
End Function


далее заменяем кусок кода, который отвечает за приём сообщений. на этот:

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

If GetSnacFid(fData) = 4 And GetSnacSID(fData) = 7 Then
  fData = Mid$(fData, 21, Len(fData) - 20)
  t_len = GetByte(fData, 1)
  r_uin = Mid$(fData, 2, t_len)
  For i = 1 To Len(fData)
      If (str2hex(Mid$(fData, i, 4)) = "01060101") Then '//ищем опкод, который сообщает о начале мессаги
          t_len = 0
          If (GetByte(fData, CInt(i + 4)) = 1) Then
              t_len = GetByte(fData, (i + 4)) * 255 + 1 '//не уверен, что правильно, но мессаги длинее чем 255 символов принимает хорошо =)
          End If
          t_len = t_len + GetByte(fData, CInt(i + 5)) '//выдираем второе значение длины мессаги
          r_msg = ToMsgFromICQStr(Mid$(fData, i + 6, t_len))
          r_msg = Replace(r_msg, Chr(2), "") '//icq6 присылает зачем-то 2 символ.. - нам он не нужен. убираем
          RaiseEvent MsgRecv(r_uin, r_msg)
          Exit Sub
      End If
  Next i
End If

и всё =) проверял на ICQ6 Lite и на QIP Mobile.

Для тех кому в лом что-то искать и добавлять. прикрепил архив.

[MIT]

Мне не влом было бы и самому все реализовать (только вот все времени нет), но за проделанную работу - спасибо
Скачал.

[Tiker]

8) Мне не влом было бы и самому все реализовать (только вот все времени нет), но за проделанную работу - спасибо
Скачал.

блин) только вот от самого себя не приходят пакеты точнее формат сообщения не понятный))

[Мамонт]

да, работает нормально. отлично.

[Tiker]

ппц... =( опять обновление протокола...

какие будут предложения? предложение типа переходим на XMPP не устраивают.... ибо и так есть уже свой xmpp коннект. тока надо и icq ...

[Мамонт]

да, теперь основательно всё поменяли

[iGrok]

да, теперь основательно всё поменяли

Судя по инфе в сети, в протоколе ничего не поменяли. Просто блокируют RU с альтернативными клиентами.

[Мамонт]

да, у мнея кип заработал, а у некоторых нет. этот пример неработает, хотя тут нет идентификации клиента. но в теории можно АОЛ убедиьт что мы пользуемся icq6.5

[Tiker]

да, у мнея кип заработал, а у некоторых нет. этот пример неработает, хотя тут нет идентификации клиента. но в теории можно АОЛ убедиьт что мы пользуемся icq6.5

хорошо бы это дело на практике...

[Dakar]

Парни что за трабла ??? Не подскажите??? Короче коннектится хорошо отправляет тоже замечательно, а вот на прием вообще глухо в чом проблема может быть ??

[Dakar]

Нашол где сабака зарыта
If (str2hex(Mid$(fData, i, 4)) = "01060101") Then '//ищем опкод, который сообщает о начале мессаги

Меняем вот это "01060101" на "01010101"
да и ещё вот тут
r_msg = Replace(r_msg, Chr(2), "") '//icq6 присылает зачем-то 2 символ.. - нам он не нужен. убираем

добавим ещё одну строку тк миранда присылает не 2 символ а 3-й
r_msg = Replace(r_msg, Chr(3), "") '//Миранда присылает зачем-то 3 символ.. - нам он не нужен. убираем

Пока работает ))

[Dakar]

Вот теперь последний вопрос, а как оргонизовать запрос о контактах???

[Мамонт]

Случайно по телеку увидел новости, АОЛ вроде хочет судиться с теми кто делает клиенты альтернативные! Так что...

[MIT]

Хорошие новости, ничего не скажешь...
А на каком основании-то? В соглашении, вроде, только про передаваемую информацию написано

[Dakar]

Случайно по телеку увидел новости, АОЛ вроде хочет судиться с теми кто делает клиенты альтернативные! Так что...

Ты думаешь им есть ризон судится с таким количеством программистов?! Мне кажется это вилами по воде писанно!

А по поводу запросов может поможет кто?!

[MIT]

Со всеми-то вряд ли, а вот с 2-3мя, в показательных целях, думаю могут

[Dakar]

Ну не стиот же из-за этого тему замораживать

Мне кто нибуть поможет или нет (( просто дайте ответ, если нет ну чтож очень жаль придётся тогда убивать часы на разбор этих запросов и ответов.

З.Ы. Заранее спасибо за помощь!

[MIT]

Мне кто нибуть поможет или нет

Ну как тебе сказать, если бы кто знал, наверно помогли бы уже. Если никто не ответил - чем не повод взять и поучить протокол самому? Ведь, если ты собрался что-то делать в этой области, без знания протокола все равно далеко не уедешь. А так допишешь клиент, все тебе благодарны и будут

[Dakar]

Понятно, ну ладно, придётся копатся

[Dakar]

Парни не подскажете где описание рабочего протокола оторвать можно? чот всё перекопал ни один не фурычет ((

[alibek]

Парни не подскажете где описание рабочего протокола оторвать можно? чот всё перекопал ни один не фурычет ((

Не ври.
http://dev.aol.com/aim/oscar/

[Мамонт]

alibek это несовсем то что нужно

Dakar смотри на первой странице пример SSecurity там всё прекрасно работает и каждый снак прописан коментарием

[Мамонт]

Вобщем разобрался с:
Подключение
Запрос офф месаг
Отправка сообщений
Получение сообщений
Загрузка контакт листа

Завис в получении информации над юзером потому как там события приходят в снаке отвечающем за офф месаги! Вобщем если есть люди которые разобрались или хотят помучить аську то отписывайтесь.

[Tiker]

Вобщем разобрался с:
Подключение
Запрос офф месаг
Отправка сообщений
Получение сообщений
Загрузка контакт листа

Завис в получении информации над юзером потому как там события приходят в снаке отвечающем за офф месаги! Вобщем если есть люди которые разобрались или хотят помучить аську то отписывайтесь.

Можешь выложить? (

[dormouse]

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

[Star Cat]

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

Да, да! Еще бы найти исходник клиента Jabber.

[alibek]

Да, да! Еще бы найти исходник клиента Jabber.

А своя голова для чего? Чтобы в нее есть?
XMPP это открытый протокол, никто не мешает сделать свой клиент.