Стал интересен сабж... нарыл протокол ICQ, на БМаксе написал соединение с серваком, о боже! Он корректно ответил!
Кому интересно может писать свой альтернативный клиент своей мечты ибо на бмаксе есть wxMax =)))
Local ip:Int = HostIp("login.icq.com")
If ip = 0
DebugLog "IP not found"
End
End If
DebugLog "Connecting : login.icq.com..."
Local s:TSocket = CreateTCPSocket()
ConnectSocket(s, ip, 5190)
Local stream:TStream
If SocketConnected(s)
DebugLog "login.icq.com -> Connected!"
stream = CreateSocketStream(s, True)
End If
If stream
DebugLog "MAGIC (MUST BE 42) = " + stream.ReadByte()
DebugLog "CH ID (MUST BE 1) = " + stream.ReadByte()
Else
DebugLog "ERROR: stream not created!"
End If
stream.Close()
CloseSocket(s)