send message all my contacts

[axe-usat]

when i send messages to all my contacts the message never is delivered. The code is the next: To send:

Dim skype As Object
            Try
                skype = CreateObject("skype4COM.skype", "")
                skype.Client.Start()
                skype.Attach()
                For Each User In skype.Friends
                    skype.SendMessage(User.Handle, Mag)
                Next
            Catch ex As Exception
                MessageBox.Show("No funciona")
            End Try

Namespace;

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

I can do a small version like i did using your code?

it is because i dont know why send me only in one friend the message. But the other's not ¿Maybe skype4sharp? Only send message to one contact the other's are not delivered.

[segg21]

I don't even understand why you're using this, and why this even exists. Use Skype4Com, protocol 8.

[segg21]

Also, I don't recommend using vb.net neither, it's a horrible language.

[lin-e]

Why even bother with Skype4COM, it's broken, doesn't respond to messages consistently and has no support for new chats.

[segg21]

@lin-e yup, it was removed client wise. From you annoying idiots who likes to spam. I'm glad they removed it.

[segg21]

For public use I'm glad, but an API should never even existed. I don't use skype, nor anything but I've checked Skype depreciations, and new features/additions.