Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
2 oct. 2003 à 18:44
Calibrus
Messages postés1Date d'inscriptiondimanche 4 mars 2007StatutMembreDernière intervention 4 mars 2007
-
4 mars 2007 à 15:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Calibrus
Messages postés1Date d'inscriptiondimanche 4 mars 2007StatutMembreDernière intervention 4 mars 2007 4 mars 2007 à 15:52
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
B0mbJacK
Messages postés141Date d'inscriptionlundi 23 février 2004StatutMembreDernière intervention25 octobre 20061 11 mai 2004 à 13:04
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
etc.....dans la boucle
voilà gros!! bonne continuation
lefreemand32
Messages postés1Date d'inscriptionmercredi 25 février 2004StatutMembreDernière intervention13 mars 2004 13 mars 2004 à 12:53
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
cs_Droops
Messages postés1Date d'inscriptionvendredi 27 février 2004StatutMembreDernière intervention27 février 2004 27 févr. 2004 à 08:22
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.
kimmelf2
Messages postés267Date d'inscriptionlundi 22 septembre 2003StatutMembreDernière intervention27 novembre 2005 6 oct. 2003 à 00:23
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.
DocteurVB
Messages postés211Date d'inscriptionlundi 19 août 2002StatutMembreDernière intervention20 mai 2005 4 oct. 2003 à 22:07
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...
cs_Spectrum
Messages postés21Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 7 décembre 2004 3 oct. 2003 à 15:10
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
Sibelle07
Messages postés206Date d'inscriptiondimanche 14 septembre 2003StatutMembreDernière intervention25 mars 2005 3 oct. 2003 à 14:50
oui sa m'interrese ;-)
cs_Spectrum
Messages postés21Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 7 décembre 2004 3 oct. 2003 à 14:49
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.
Sibelle07
Messages postés206Date d'inscriptiondimanche 14 septembre 2003StatutMembreDernière intervention25 mars 2005 3 oct. 2003 à 14:43
Il y a des erreurs la dedans !!!
:s
Tu a surement oublier des trucs ou tu t'es gouré dans la source !!!
Spectrum !!!
cs_Spectrum
Messages postés21Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 7 décembre 2004 3 oct. 2003 à 10:42
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
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015 2 oct. 2003 à 19:15
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
+²
MasterProg2003
Messages postés4Date d'inscriptionjeudi 2 octobre 2003StatutMembreDernière intervention 2 octobre 2003 2 oct. 2003 à 19:01
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+
Sibelle07
Messages postés206Date d'inscriptiondimanche 14 septembre 2003StatutMembreDernière intervention25 mars 2005 2 oct. 2003 à 19:00
Oui! Mais je ne vois pas comment faire de mieux !!!
Si au moin on pourrait m'aider !!!
tu sais m'aider MasterProg2003 ?
MasterProg2003
Messages postés4Date d'inscriptionjeudi 2 octobre 2003StatutMembreDernière intervention 2 octobre 2003 2 oct. 2003 à 18:58
Moi je trouve sa sympa !
Mais domage que le code est repeté :s
je mets 6/10
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 2 oct. 2003 à 18:44
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.....
4 mars 2007 à 15:52
11 mai 2004 à 13:04
---------------------------------------------------------------------
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
13 mars 2004 à 12:53
:-) ===> lefreemand32
27 févr. 2004 à 08:22
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.
6 oct. 2003 à 00:23
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.
4 oct. 2003 à 22:07
: 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...
3 oct. 2003 à 15:10
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
3 oct. 2003 à 14:50
3 oct. 2003 à 14:49
3 oct. 2003 à 14:43
:s
Tu a surement oublier des trucs ou tu t'es gouré dans la source !!!
Spectrum !!!
3 oct. 2003 à 10:42
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
2 oct. 2003 à 19:15
Bonne continuation
+²
2 oct. 2003 à 19:01
je ne connait pas beaucoup !!!
Lol !
Ben va sur le forum certain t'aideront peut etre ;-)
a+
2 oct. 2003 à 19:00
Si au moin on pourrait m'aider !!!
tu sais m'aider MasterProg2003 ?
2 oct. 2003 à 18:58
Mais domage que le code est repeté :s
je mets 6/10
2 oct. 2003 à 18:44
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.....