Intentando mandar mensajes masivos skype

Hola estoy intentando mandar mensajes masivos pero nunca llegan a todos los contactos.

Código:

Public Class Form1
    Public WithEvents refSkype As New SKYPE4COMLib.Skype
    Public Mag As String = "hola"
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim skype As Object
        skype = CreateObject("skype4COM.skype", "")
        skype.Client.Start()
        skype.Attach()
        For Each User In skype.Friends
            On Error Resume Next
            skype.SendMessage(User.Handle, Mag)
        Next
    End Sub
End Class


Namespace SKYPE4COMLib
    Public Class Skype
        Function ActiveCalls() As Object
            Throw New NotImplementedException
        End Function

        Function HardwiredGroups() As Object
            Throw New NotImplementedException
        End Function

        Sub PlaceCall(ByVal p1 As Object)
            Throw New NotImplementedException
        End Sub

        Sub SendMessage(ByVal p1 As Object, ByVal p2 As String)
            Throw New NotImplementedException
        End Sub

        Function User(ByVal p1 As Object) As Object
            Throw New NotImplementedException
        End Function

    End Class
End Namespace

Si es posible, se podría buscar un exploit en skype y mandaría los mensajes automaticamente sin pedir autorización como aplicacion de terceros. Simplemente con fines educativos por supuesto!