ynbIpb
Скриптер
- Сообщения
- 399
- Репутация
- 110
Существует такой замечательный компонент wodXMPP для работы с протоколом XMPP (Jabber) Очень много функций и хорошая документация. Чтоб его использовать необходимо скопировать библиотеку wodXMPP.dll в системную папку (@SystemDir) и зарегистрировать в системе (RegSvr32.EXE wodXMPP.dll). При установке набора с офсайта, это всё делается автоматически.
Простенький пример подключения к серверу:
Возникла заминка в следующем:
В справке написано...
Но, не работает - The requested action with this object has failed.
На офсайте откопал пример на VB
з.ы.
топик на англ. форуме: wodXMPP & Autoit
Приглашаю всех желающих помочь разобраться с этим компонентом, может кто простенький джаббер клиент напишет для примера\наглядности работы.
Заранее благодарен.
Простенький пример подключения к серверу:
Код:
$sLogin = "[email protected]"
$sPassword = "testing"
$xmpp = ObjCreate("WeOnlyDo.wodXMPPCom.1")
$xmpp.Login = $sLogin
$xmpp.Password = $sPassword
$xmpp.Connect
While 1
sleep (100)
WEnd
Возникла заминка в следующем:
В справке написано...
Тоесть как я понял это должно выглядеть примерно так:Unlike ActiveX controls, which are licensed the moment you put them on the form (if you have a licensed version of wodXMPP, of course), COM object licensing is not directly supported by any container. Therefore you need to add one more line to your code to license wodXMPP correctly:
XMPP1.LicenseKey = "put.your.key.here"
Код:
$xmpp = ObjCreate("WeOnlyDo.wodXMPPCom.1")
$xmpp.LicenseKey = "XXXX-XXXX-XXXX-XXXX"
$xmpp.About
Но, не работает - The requested action with this object has failed.
На офсайте откопал пример на VB
Как правильно подать этот параметр?5. Open the code editor and at the top in the (General) section add this code:
Dim WithEvents XMPP1 As wodXMPPCom
6. In Form_Load function initialize the component:
Private Sub Form_Load()
Set XMPP1 = New wodXMPPCom
End Sub
7. If you have the licensed version of wodXMPP, then after you initialize the component, set its LicenseKey property:
Private Sub Form_Load()
Set XMPP1 = New wodXMPPCom
XMPP1.LicenseKey = "xxxx....xxxx"
End Sub
з.ы.
топик на англ. форуме: wodXMPP & Autoit
Приглашаю всех желающих помочь разобраться с этим компонентом, может кто простенький джаббер клиент напишет для примера\наглядности работы.
Заранее благодарен.