Intentando mandar mensajes masivos skype

[Borito30]

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

Código [Seleccionar] Expandir

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!