Page 1 of 1
Firewall Windows
Posted: Mon Dec 18, 2017 1:38 pm
by 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.
Re: Firewall Windows
Posted: Mon Dec 18, 2017 1:45 pm
by 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.
Re: Firewall Windows
Posted: Tue Dec 19, 2017 10:07 am
by 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.
Re: Firewall Windows
Posted: Tue Dec 19, 2017 11:05 am
by hmpaquito
Xevi,
RunAs.exe es el programa que invoca el ShellExecute()
RunAs.exe es un programa del S.O.
Re: Firewall Windows
Posted: Tue Dec 19, 2017 11:11 am
by 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.
Re: Firewall Windows
Posted: Tue Dec 19, 2017 11:53 am
by karinha
Por qué razón? ¿Cuál es el motivo para hacerlo?
https://support.apple.com/es-mx/HT201751
Saludos.
Re: Firewall Windows
Posted: Tue Dec 19, 2017 4:00 pm
by Baxajaun
Buenas tardes Xevi,
date una vuelta por
https://github.com/falahati/WindowsFirewallHelper. Quizá te pueda ayudar.
Saludos