Вопрос про icq и сторонние dll

[deepslam]

Добрый день!
Хочу написать прогу, которая будет взаимодействовать с компом по средствам icq. Скачал eicq для VB, все нормуль, логинится, отправляет сообщения, но вот на приеме VB вылетает, а если компилиный проект, то совершает недопустимую ошибку.

Вопрос 1: Как это можно исправить? Без переписывания OCX

Если на вопрос 1 отрицательный ответ, то тогда вопрос 2:

Есть библиотека icqkid, с приемом\отправкой вроде все нормуль, писана она на C и как ее подключить к VB я не знаю, при компилировании проекта, прога вылетает с недопустимой ошибкой... ((( Может кто знает как библу от C к ВБ приделать?

Сайт библиотеки: www.icqkid.com

Заранее спасибо

[Twister]

А может ты скажешь, что там за ошибка? А то телепаты в отпуске...

[deepslam]

Так в том и дело, что VB вообще ниче не выдает

[Twister]

Может кто знает как библу от C к ВБ приделать

Можно LoadLibrary, но для этого способа тебе необходимо знать, какие функции экспортирует либа, какие параметры использует каждая функция...

[deepslam]

Это я знаю, а LoadLibrary есть в VB 6.0?

[GSerg]

А GetPixel есть в VB?

[Twister]

Главное, что она есть в Kernel32.dll, остальное неважно...

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

Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" ( _
    ByVal lpLibFileName As String) As Long

Public, если в модуле, Private если на форме.

[CodeName33]

Вот декларации для ICQ KID. Только она сообщения всё равно не принимает, после того как в ICQ протоколе чёто изменили недавно. Она только UIN от которого пришло получает, а сообщение нет. Надо исходники поправить (они прилагаются) и перекомпилировать, не я не знаю точно, что поменялось в протоколе и изучать лениво...

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

Private Declare Function icq_activate_connect Lib "icqkid.dll" (ByVal uin As String, ByVal password As String, ByVal loginserver As String, ByVal icqport As Long) As Long
Private Declare Function icq_add_status Lib "icqkid.dll" (ByVal Status As String) As Long
Private Declare Function icq_msg_get Lib "icqkid.dll" (ByVal ruin As String, ByVal Msg As String) As Long
Private Declare Function icq_msg_put Lib "icqkid.dll" (ByVal duin As String, ByVal sendmsg As String, ByVal putmsglen As Long) As Long

Юзать так:

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

Me.Print icq_activate_connect("MY_UIN", "MY_PASSWORD", "login.icq.com", 5190)
DoEvents
Me.Print icq_add_status("online")
DoEvents

'Получение сообщения, подвешивает прогу пока сообщений нет
Call icq_msg_get(ruin, Msg)

[deepslam]

Спасибо ОГРОМНОЕ!!!

[Мамонт]

Там недели 2 назад на сервере изменился формат сообщений! Там совсем незначительные изменения нужно внести но какие незнаю!

[CodeName33]

Format C:, дык это понятно, что незначительные, иначе бы вообще ничего не работало, вот только какие - это действительно вопрос... Пробовал поискать по поисковикам - в основном все констатируют факт, а что конкретно изменилось, так и не нашёл... Если кто знает - поделитесь плиззз...

[Мамонт]

Незнаю как на си но на vb почемуто у меня все сообщения приходят!

[CodeName33]

Format C:, в ICQKID?

[Мамонт]

Не! Это винсоком если!

[alibek]

Format C:, предлагаю тебе поменять подпись.

[Мамонт]

Мне бы ещё и ник бы сменить....

[deepslam]

Люди, а никто не знает названий экспортных функций для ICQ.dll от Миранды? С параметрами ... Пытался я у них исходники выкачать, выкачал какую то хрень, но функций там этих нету че та (((

[Dex]

Если хочешь узнать функции из таблиц экспорта воспользуйся дизасемблером, к приеру таким как IDA или PeExplorer или какие там ещё есть лучше IDA?