Firewall Windows

Firewall Windows

Postby Xevi » Mon Dec 18, 2017 1:38 pm

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.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Firewall Windows

Postby karinha » Mon Dec 18, 2017 1:45 pm

Mira se ayuda:


Code: Select all  Expand view

////////////////////////////////////////////////////////////////////////////
//
//    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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7151
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Firewall Windows

Postby Xevi » Tue Dec 19, 2017 10:07 am

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.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Firewall Windows

Postby hmpaquito » Tue Dec 19, 2017 11:05 am

Xevi,

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

RunAs.exe es un programa del S.O.
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Firewall Windows

Postby Xevi » Tue Dec 19, 2017 11:11 am

Gracias por la respuesta.

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

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Firewall Windows

Postby karinha » Tue Dec 19, 2017 11:53 am

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

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

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7151
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Firewall Windows

Postby Baxajaun » Tue Dec 19, 2017 4:00 pm

Buenas tardes Xevi,

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

Saludos
User avatar
Baxajaun
 
Posts: 961
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 11 guests