Hola estoy intentando mandar mensajes masivos pero nunca llegan a todos los contactos.
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!