Цитата beve:
|
$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()
