[kaster]

Может это тебе поможет
JAdmin v2.0 + Plugins!

[morgan1991]

kaster, я его уже качал, но ничего не понял...
Хотяб на словах, кто знает, скажите в чём косяк?

[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()

[morgan1991]

$jidname="login" $server = "jabber.ru" $jidpass = "пароль" $Port = "5222" »

С такими настройками возвращает:

Код:

Ответ_на_JabHello_________________ 
Ответ_на_Запрос_JabAuth______________ 
<?xml version='1.0'?><stream:stream xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' id='2764011537' from='jabber.ru' xml:lang='ru'>
<iq type='result' from='jabber.ru' id='auth1'><query xmlns='jabber:iq:auth'><username>login</username><password/><digest/><resource/></query></iq><stream:error><xml-not-well-formed xmlns='urn:ietf:params:xml:ns:xmpp-streams'/></stream:error></stream:stream>

А если ставлю сервер vk.com, тогда в консоль вообще ничего не выводится...
+ пришлось объявить переменную $socket до функций, т.к. выдавало ошибку.

Код:

TCPStartup()

;прикинем, что наш ак на jabber такой: login@jabber.ru, тогда
Global $socket
$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)
    $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()