apis del msn

[cobra_90]

ola me podrian dar un ejemplo del uso de las apis del msn esk e visto varios codes y no me funcionan ysi pongo las referencias de las apis del msn gracias

[ranefi]

ola me podrian dar un ejemplo del uso de las apis del msn esk e visto varios codes y no me funcionan ysi pongo las referencias de las apis del msn gracias

Hola cobra_90, buen día. Para lo que necesitas lleva a cabo lo siguiente:

Agregar 1 control CommandButton, 1 ListBox, crear la referencia a Messenger API Type Library e insertar el siguiente código en...

En el formulario

Código:

Public WithEvents MSN As MessengerAPI.Messenger

Private Sub Command1_Click()
    Dim Mensaje As String
    Dim SPAM As Integer
    Dim MSNcontacts As IMessengerContacts
      
    Set MSNcontacts = MSN.MyContacts
    
    Mensaje = List1.Text
    
    MSN.InstantMessage Mensaje
    
        For SPAM = 1 To 100
            SendKeys "{:}" & "{)}"
        Next
    SendKeys "{ENTER}"
End Sub

Private Sub Form_Load()
    Set MSN = New MessengerAPI.Messenger
    
    Dim MSNcontact2 As IMessengerContact
    Dim MSNcontacts2 As IMessengerContacts
    
    Set MSNcontacts2 = MSN.MyContacts
    
    For Each MSNcontact2 In MSNcontacts2
        List1.AddItem (MSNcontact2.SigninName)
    Next
End Sub

Espero te sirva. Nos vemos.