Voilà comment créer un simple floodeur , ce n'est pas difficile à faire mais il y'a beaucoup mieux !
Vous aurez besoin de :
- De deux Label
- De deux Button
- D'une TextBox
- Un BackgroundWorker ( Renommez le en bg1 pour avoir la même chose que moi )
Tutoriel :
Pour commencez mettez ceci en dessous de "Public Class Form1" :
Citation:
Private mPrevPos As New Point
Private Sub moveme(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Double cliquer sur le button1 et mettez :
Citation:
If TextBox1.Text.Length > 1 = True Then
TextBox1.Enabled = False
If bg1.IsBusy = False Then
MessageBox.Show("Vous avez 3 seconde pour choisir là où vous voulez Flooder", "!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ' Indique qu'il faut placez la sourris la où il faut flooder
Threading.Thread.Sleep(3000)
Button1.Text = "Stop"
bg1.RunWorkerAsync()
Else : bg1.CancelAsync()
Button1.Text = "Start"
TextBox1.Enabled = True
End If
Else : MessageBox.Show("Entrer un Texte !", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Maintenant double cliquez sur le button2 et mettez (Ce n'est pas obligatoire si vous avez la croix rouge) :
Citation:
If bg1.IsBusy = True Then bg1.CancelAsync()
Me.Close()
Et pour finir double cliquez sur le BackgroundWork1 et mettez ceci :
Citation:
While True
If bg1.CancellationPending = True Then Exit Sub
SendKeys.SendWait(TextBox1.Text & "{Enter}")
Threading.Thread.Sleep(100)
End While
Pour modifier la vitesse de flood il faut changer le "Threading.Thread.Sleep(100)" Plus vous mettez un nombre élevé plus c'est lent .
Voilà Salut
Source :
Si tu veut tu peut mettre un j'aime
Vous aurez besoin de :
- De deux Label
- De deux Button
- D'une TextBox
- Un BackgroundWorker ( Renommez le en bg1 pour avoir la même chose que moi )
Tutoriel :
Pour commencez mettez ceci en dessous de "Public Class Form1" :
Citation:
Private mPrevPos As New Point
Private Sub moveme(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
If (e.Button = MouseButtons.Left) Then
Me.Location += delta
mPrevPos = e.Location - delta
Else
mPrevPos = e.Location
End If
End Sub
Double cliquer sur le button1 et mettez :
Citation:
If TextBox1.Text.Length > 1 = True Then
TextBox1.Enabled = False
If bg1.IsBusy = False Then
MessageBox.Show("Vous avez 3 seconde pour choisir là où vous voulez Flooder", "!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ' Indique qu'il faut placez la sourris la où il faut flooder
Threading.Thread.Sleep(3000)
Button1.Text = "Stop"
bg1.RunWorkerAsync()
Else : bg1.CancelAsync()
Button1.Text = "Start"
TextBox1.Enabled = True
End If
Else : MessageBox.Show("Entrer un Texte !", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Maintenant double cliquez sur le button2 et mettez (Ce n'est pas obligatoire si vous avez la croix rouge) :
Citation:
If bg1.IsBusy = True Then bg1.CancelAsync()
Me.Close()
Et pour finir double cliquez sur le BackgroundWork1 et mettez ceci :
Citation:
While True
If bg1.CancellationPending = True Then Exit Sub
SendKeys.SendWait(TextBox1.Text & "{Enter}")
Threading.Thread.Sleep(100)
End While
Pour modifier la vitesse de flood il faut changer le "Threading.Thread.Sleep(100)" Plus vous mettez un nombre élevé plus c'est lent .
Voilà Salut
Source :
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
Si tu veut tu peut mettre un j'aime
