Firewall Windows

[Xevi]

Hay alguna manera de crear una excepción automáticamente en el Firewall de Windows para una aplicación.??

Resulta que al utilizar la clase TSocket() windows se queja y solicita si se da permisos a esa aplicación.
Lo que pretendo es averiguar si esta esa aplicación en la lista de excepciones y de no estar, añadirla... en modo silencioso.


Un Saludo,
Xevi.

[karinha]

Mira se ayuda:

Code: Select all

////////////////////////////////////////////////////////////////////////////
//
//    Propositos: Permitir a manutencao do Firewall( Testado no Windows 7 64 )
//    Desliga ou Religa o Firewall do Windows 7 de 32 ou 64 Bits.
//    Jose Carlos da Rocha - 09/02/2016              Testado no Windows 7 32
////////////////////////////////////////////////////////////////////////////

FUNCTION FirewallOFF()

   PUBLIC lFireWall := .T. // se entrar aqui vindo do Instalador da Flexdocs...

   // Jose Carlos da Rocha - 09/02/2016
   ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0)

   MsgInfo( OemToAnsi( "Para Sua Seguran‡a, ReLigue o FIREWALL do Windows" ), ;
            OemToAnsi( "Para Sua Seguran‡a, ReLigue o FIREWALL do Windows" ) )

RETURN NIL
 
FUNCTION FirewallON()

   PUBLIC lFireWall

   IF lFireWall // Se desligou o Firewall, Religa-lo.

      MsgInfo( OemToAnsi( "Para Sua Seguran‡a, ReLigue o FIREWALL do Windows" ), ;
               OemToAnsi( "Para Sua Seguran‡a, ReLigue o FIREWALL do Windows" ) )

      // Jose Carlos da Rocha - 09/02/2016
      ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state on", "c:\windows\system32", 0)

      lFireWall := .F.

   ENDIF

RETURN NIL
 

Saludos.

[Xevi]

No me funciona.

Por lo visto, esta función, tal cual está, activa i/o descativa el Firewall, nada mas.
Lo que pretendo es "añadir" una aplicación a la lista de aplicaciones permitidas por el FireWall.

Me lanza la ventana de Windows de advertencia de seguridad, pero no me incluye la aplicación en la lista de programas permitidos.

El segundo parámetro de ShellExecute... "RUNAS"
ese para que es???

Gracias.

[hmpaquito]

Xevi,

RunAs.exe es el programa que invoca el ShellExecute()

RunAs.exe es un programa del S.O.

[Xevi]

Gracias por la respuesta.

Pues lo que me queda por resolver, si se puede, incluir una aplicación la lista del FireWall de Windows.

[karinha]

Por qué razón? ¿Cuál es el motivo para hacerlo?

https://support.apple.com/es-mx/HT201751

Saludos.

[Baxajaun]

Buenas tardes Xevi,

date una vuelta por https://github.com/falahati/WindowsFirewallHelper. Quizá te pueda ayudar.

Saludos