No ha trabajado nadie antes con esta API para realizar lo que propongo???
Es que no veo dónde está mi error...
Salu2
Es que no veo dónde está mi error...
Salu2
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic WithEvents MSN As Messenger 'API de Messenger
Private WithEvents objMessenger As MessengerAPI.Messenger
Private Sub Form_Load()
Set objMessenger = New MessengerAPI.Messenger
Set MSN = New Messenger
End Sub
Private Sub objMessenger_OnIMWindowCreated(pIMWindow As Object)
Dim Contactoshablan As IMessengerContacts
Dim ventana As IMessengerConversationWnd
Set ventana = pIMWindow
Set Contactoshablan = ventana.Contacts
If Contactoshablan.SigninName = "encarta@conversagent.com" Then
ventana.Close
End If
End Sub
Citarpues para el es: "su messenger"...su word..etcjajaj ok. al final usaré este método porque es más sencillo que la infección y para lo que estoy haciendo no necesito mucho más jeje.
Citarget / http/1.1no???? y luego no contestando.