Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Sai-To en 27 Marzo 2008, 18:03 pm

Título: omo poner sin admisión a un contacto del msn con la API
Publicado por: Sai-To en 27 Marzo 2008, 18:03 pm

ola bueno como puedo hacer eso?

Título: Re: omo poner sin admisión a un contacto del msn con la API
Publicado por: naderST en 28 Marzo 2008, 04:02 am

Código:

Option Explicit

Private WithEvents MSN As MessengerAPI.Messenger

Private Sub Command1_Click()
Dim ContactName As String
Dim Contacto As IMessengerContact

ContactName = "spleak@hotmail.com"

For Each Contacto In MSN.MyContacts
    If Contacto.SigninName = ContactName Then
        Contacto.Blocked = True
    End If
Next
End Sub

Private Sub Form_Load()
Set MSN = New Messenger
End Sub