No puedo programar por MSN

[& eDu &]

Tengo este codigo

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public WithEvents MSN As Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Sub Form_Load()
MsgBox (MSN.ContactsSortOrder)
End Sub


Cuando lo inicio me dice un error de la memoria. tengo la referencia definida

[seba123neo]

Hola, en el Form_Load tenes que declarar la clase con Set...busca en el foro que de esto esta lleno...

saludos.

[aaronduran2]

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public WithEvents MSN As Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Sub Form_Load()
Set MSN = New Messenger
Set MsgrUIA = New MessengerAPI.Messenger
MsgBox (MSN.ContactsSortOrder)
End Sub


Saludos.

[& eDu &]

He puesto la referencia Messenger Api Type Library

y este codigo:

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public WithEvents MSN As Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Sub Form_Load()
Set MSN = New Messenger
Set MsgrUIA = New MessengerAPI.Messenger
MsgBox (MSN.ContactsSortOrder)
End Sub

Y cuando lo inicio me dice:

Código [Seleccionar] Expandir

Out of memory

y me señala:

Código [Seleccionar] Expandir

Set MSN = New Messenger

¿Eso porque? Thanks

[aaronduran2]

Será por la función que utilizas. Prueba a utilizar otra función de la API a ver si pasa lo mismo.

Saludos.

[& eDu &]

Me la puedes escribir porfavor? xDD

[aaronduran2]

A ver, prueba con esto:

Código (vb) [Seleccionar] Expandir


Option Explicit
Public WithEvents MSN As Messenger

Private Sub Form_Load()
Set MSN = New Messenger
MsgBox MSN.MyFriendlyName    'Devuelve el nick actual.
End Sub

Con lo que tú pusiste me da "Error en el método 'ContactsSortOrder' del objeto 'IMessenger3'"

Saludos.

[& eDu &]

Tengo la referencia:

Messenger API Type Library

y me da este error:


:S y me señala:

Set MSN = New Messenger

en color amarillo.

[aaronduran2]

Pues entonces no sé de que puede ser.

Saludos.

[& eDu &]

Antes si que podia ahora no se porque.