Xp Firewall

Aujourd'hui je vous présente un petit logiciel réaliser en 10 minutes qui permet d'activez et de désactiver le Firewall de Windows Xp en un seul clique !

Peut être utile à certaines personne !

Ce tuto n'est qu'a titre informatif en aucun cas vous n'êtes autorisé à l'utilser contre d'autre personne .

Screen :



Prés requis :

2boutons et c'est tout !

Comment faire ?

Inserer vos deux boutons dans votre form :

Renommer le bouton1 :  Activer
                      le bouton 2 : Désactiver

Cliquer sur le bouton1 vous apercevrez ceci : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dessous inserez ceci :

 Dim Proc As Process = New Process
        Dim top As String = "netsh.exe"
        Proc.StartInfo.Arguments = ("firewall set opmode enable")
        Proc.StartInfo.FileName = top
        Proc.StartInfo.UseShellExecute = False
        Proc.StartInfo.RedirectStandardOutput = True
        Proc.StartInfo.CreateNoWindow = True
        Proc.Start()
        Proc.WaitForExit()

Maintenant cliquer sur le bouton2 vous apercevrez ceci : Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dessous inserez ceci :

   Dim Proc As Process = New Process
        Dim top As String = "netsh.exe"
        Proc.StartInfo.Arguments = ("firewall set opmode disable")
        Proc.StartInfo.FileName = top
        Proc.StartInfo.UseShellExecute = False
        Proc.StartInfo.RedirectStandardOutput = True
        Proc.StartInfo.CreateNoWindow = True
        Proc.Start()
        Proc.WaitForExit()

Et voila vous avez fini !

Facile non ?

Merci

Cordialement P1l0u