[beve]

Хотяб на словах, кто знает, скажите в чём косяк? »

Вот простенько, думаю сам разберешся что к чему, проверял на своему аккаунте, у меня на jabber.ru, как видно из примера - авторизация и получение сообщений работает, думаю ты это хотел узнать для начала:

Код:

TCPStartup()


;прикинем, что наш ак на jabber такой: login@jabber.ru, тогда
$jidname="login" 
$server = "jabber.ru"
$jidpass = "пароль"
$Port = "5222"


_JabHello($server) 
_JabAuth($jidname, $jidpass, "jjjjjjj") 

While 1
    $recv = TCPRecv($socket, 2048)
    If $recv <> "" Then ConsoleWrite($recv&@LF)
Sleep(30)
WEnd



Func _JabHello($JabServ) 
Global $socket = TCPConnect(TCPNameToIP($JabServ),  $Port) 
If $socket = -1 Then Exit
    ;A typical user authentication process
TCPSend($socket, "<?xml version='1.0' encoding='UTF-8' ?><stream:stream to='" & $JabServ & "' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams'>") 
$recd = TCPRecv($socket, 2048) 
ConsoleWrite( "Ответ_на_JabHello_________________ "&$recd& @LF) 
EndFunc ;_JabHello()

;We ask the server about the authentication methods available for our specific user:
Func _JabAuth($JabUser, $JabPass, $JabRes) 
TCPSend($socket, "<iq type='get' to='" & $server & "' id='auth1'><query xmlns='jabber:iq:auth'><username>" & $JabUser & "</username></query></iq>") 
$recd = TCPRecv($socket, 2048) 
ConsoleWrite("Ответ_на_Запрос_JabAuth______________ "& $recd& @LF)
TCPSend($socket, "<iq type='set' id='auth2'><query xmlns='jabber:iq:auth'><username>" & $JabUser & "</username><password>" & $JabPass & "</password><resource>" & $JabRes & "</resource></query></iq><presence type='available'></presence>") 
EndFunc ;_JabAuth()