|VB| Dudas sobre Protocolo MSN

[m[a]rkus]

Hola a todos, eh creado este tema para todo aquel que tenga dudas con respecto al protocolo MSN y el uso del mismo en visual basic. Comenzare yo  ...

Ya estoy conectado a una cuenta mia de MSN, sincronizados los contactos, perfectamente en funcionamiento el evento "PING" de msn, pero ahora quiero cambiar el nick de esa cuenta y segun el protoclo es asi :

Código [Seleccionar] Expandir

REA TrID tu_cuenta_de_hotmail@hotmail.com nuevo_nick

Y asi lo tengo yo en el evento "Command1_Click"

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SEG.SendData "REA 5 " & Replace(usuario.Text, "@", "%40") & " " & Replace(Text2.Text, " ", "%20") & vbCrLf
End Sub

Entonces cuando envio eso me responde el servidor:

Servidor2 >216 5

La verdad no tengo ni ida de que significa esos números. Si alguien sabe la respuesta a esto agradecería que fuera posteada gracias..

SOLUCIONADO:

Pues ahora mismo me di cuenta que el error estaba en la conversion no hace falta poner "cuenta%40hotmail.com" sino de forma "cuenta@hotmail.com" y el servidor deberia enviarles esto:

Servidor2 >REA 5 1 cuenta@hotmail.es Locote

Al final quedo así el código:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SEG.SendData "REA 5 " & usuario.Text & " " & Replace(Text2.Text, " ", "%20") & vbCrLf
End Sub

[m[a]rkus]

Evento PING de protocolo MSN:

Para todo aquel que tenga problemas con el cliente que este creando y a los 50 segundos el server lo desconecte, pego este trozo de codigo que es la parte esencial del evento PING de MSN.

Código [Seleccionar] Expandir

Private Sub PING()
Dim BUG1() As String
Dim Fijo As String
Fijo = "Q1P7W2E4J9R8U3S5"
BUG1 = Split(conca, vbCrLf)
conca = BUG1(0) & Fijo
Monitor2.Text = Monitor2.Text & "Cliente > Cargada Variable para cifrar: " & conca & vbCrLf
hmd5 = oMD5.MD5(conca)
SEG.SendData "QRY 1049 msmsgs@msnmsgr.com 32" & vbCrLf
SEG.SendData hmd5
Monitor2.Text = Monitor2.Text & "Cliente > Enviando Codificacion MD5 del PING: " & hmd5 & vbCrLf
Monitor2.Text = Monitor2.Text & "Cliente > Enviando Respuesta QRY despues de 50 seg" & vbCrLf
End Sub

Cualquier duda postear y respondere mientras pueda.

[m[a]rkus]

Hola otra vez, tengo problemas para enviar mensajes a un contacto, segun el protocolo tengo que enviar esto:

Código [Seleccionar] Expandir

SEG.SendData "XFR 5 SB" & vbCrLf

A lo que me responde el MSN Server con esto:

Código [Seleccionar] Expandir

XFR 5 SB 65.54.48.118:1863 CKI 1068799700.11777157.105189171

Entonces en teoria despues tengo que conectarme a esa IP y ese Puerto:

 

Código [Seleccionar] Expandir

Case "XFR"
  Dim serverconver As String
  Dim subserver() As String
  serverconver = sbuff(3)
  subserver = Split(serverconver, ":")
  Conserver = subserver(0)
  Porserver = subserver(1)
  Monitor2.Text = Monitor2.Text & "INFO >" & "Iniciando conexion con server de conversación" & vbCrLf
  'MsgBox (subserver(0) & subserver(1))
  codcon = sbuff(5)
  conver.Connect Conserver, Porserver

Una vez conectado enviar esto:

Código [Seleccionar] Expandir

conver.SendData "USR 1 hack.markus@hotmail.es " & codcon & vbCrLf

codcon = Numero de seguridad 1068799700.11777157.105189171

Entonces si todo sale bien envia esto:

Código [Seleccionar] Expandir

USR 1 OK usuario@hotmail.es Markus

Hasta ahí todo bien, lo malo del tema es que instantáneamente que me envía ese mensaje el servidor pierdo la conexión con la IP de conversación, si alguien conoce el motivo me lo diga no encuentro ejemplos o información por ningún sitio. Gracias

[m[a]rkus]

Bueno pues va a ser que a nadie le ah pasado esto. Cuando encuentre la solución la posteo por si en un futuro le sucede a alguien.

Solucionado:

Me faltaba un "espacio" entre dos palabras, por eso me desconectaba.

[m[a]rkus]

Hola tengo una interesante pregunta, de como enviar zumbidos desde el cliente que estoy haciendo hacia cualquier otro, supongo que sea un mensaje y que los clientes lo interpreten como un Zumbido, pero no lo encuentro en ninguna parte asi que intentare pedirle a algún contacto mio que le haga zumbido a ver que me envia el server y asi comprobar si yo enviando lo mismo funciona.

[m[a]rkus]

Asi esta quedando:

[mujot]

Hola

Muy interesante tu proyecto!! Se ve muy bien 

¿Podrías postear el código fuente para descargar? 

O aunque sea el protocolo... llevo tiempo buscandolo para hacer algo, encontré varios pero desactualizados. 

Saludos!

[Ari Slash]

que interesante tema
muy bueno 

salu2

[fary]

hola buenas
yo estoy intentando acer un autonick cambiante  y e intentado utilizar el codigo que puso Markus el primero de todos y nada no me funciona no tengo ni idea de xk es alguien me podria responder????

Salu2

[m[a]rkus]

Hola Fary94, pues el para cambiar el nick automático solo debes poner una condicional que cuando conecte envié este mensaje al server:

REA 5 pepe@hotmail.com mi%20super20%nick & vbCrLf

Por ejemplo yo lo tengo puesto el usuario en un Textbox y tengo un Command que cuando le doy click me envia el siguiente comando:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SEG.SendData "REA 5 " & usuariox.Text & " " & Replace(Text2.Text, " ", "%20") & vbCrLf
End Sub

SEG = Nombre del Sock
usuariox = un Txt con el usuario actualmente conectado al MSN ejemplo : lofj23@hotmail.com
Text2 = Pues eso... ahi pongo el nick que quiero. Ejemplo: loco de locos

Importante: Fijate que se cambia en el nuevo nick el espacio " " por "%20" , pero en el usuario no, en el usuario no cambies la "@" por "%40" simplemente ponla natural.