Méthode simple pour activer/désactiver le pare feu Windows

[Mytic]

Bonjour,
Voici une petite méthode pour activer ou désactiver le pare feu windows.
Tester sur Windows XP sp2 et Vista ! ( OK )
Sinon , pour vista , il faut compiler le programme avec « Request Administrator mode for Windows Vista »

Code : Tout sélectionner

Procedure Parefeu(mode.c)
  fich$ = GetHomeDirectory() + "acfeu.bat"
  If mode = 0
    etat$ = "netsh firewall set opmode disable"
  Else
    etat$ = "netsh firewall set opmode enable"
  EndIf
  CreateFile(0,fich$)
  WriteStringN(0,etat$)
  CloseFile(0)
  Delay(20)
  RunProgram(fich$,"","",#PB_Program_Hide | #PB_Program_Wait)
  Delay(30)
  DeleteFile(fich$)
EndProcedure

;------------( 0 = désactivé | 1 = activé ) -----------
Parefeu(0)

[Ar-S]

pourquoi ne pas utiliser runprogram avec la commande CMD et comme parametre tes valeurs "etat$" ? ça éviterai de créer le .bat non ?
En tout cas l'idée est bonne

[Mytic]

Merci du conseil, je voulais le faire, mais ça ne marchait pas car il fallait ajouté le "?/c" :

Code : Tout sélectionner

Procedure Parefeu(mode.c)
  fich$ = "cmd.exe"
  If mode = 0
    etat$ = "netsh firewall set opmode disable"
  Else
    etat$ = "netsh firewall set opmode enable"
  EndIf
  RunProgram(fich$,"?/c" + etat$,"",#PB_Program_Hide | #PB_Program_Wait)
EndProcedure

;------------( 0 = désactivé | 1 = activé ) -----------
Parefeu(0) 

[Ar-S]

J'ai eu le même soucis "?/c" il y a qques temps

[Backup]

c'est quand meme dingue de pouvoir desactiver un pare feu logiciellement



pour ma part j'utilise Kerio personal Firewall , et je doute qu'on puisse en faire autant !!

[Ar-S]

c'est quand meme dingue de pouvoir desactiver un pare feu logiciellement



pour ma part j'utilise Kerio personal Firewall , et je doute qu'on puisse en faire autant !!

J'espère car c'est celui que j'utilise aussi

[Mytic]

La dernière newsletter de l'éditeur de solution de sécurité Kerio révèle une bien mauvaise surprise. On apprend effectivement que le développement de Sunbelt Personal FireWall (ex Kerio)l, le célèbre pare-feu gratuit pour Windows, devrait être stoppé le 31 décembre prochain. Le logiciel ne sera visiblement plus développé, ni distribué par Kerio. L'éditeur précise toutefois que les utilisateurs seront toujours libres d'utiliser les versions existantes du « défunt » logiciel. Le support technique devrait être assuré jusqu'à la fin 2006.

Kerio prévoit également d'arrêter sa solution Kerio ServerFirewall le 30 septembre prochain. Le support de ce logiciel sera assuré jusqu'au 30 septembre 2006, tandis que d'éventuelles mises à jour pourraient être proposées jusqu'à la fin du mois.

Pour ma part j’utilise le pare feu de Kaspersky internet security !
Il ne laisse rien passer combiné à la pro active défense.

(Il bloque aussi cette commande même si elle ne lui cause aucun problème)