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.
////////////////////////////////////////////////////////////////////////////
//
// 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鈥, ReLigue o FIREWALL do Windows" ), ;
OemToAnsi( "Para Sua Seguran鈥, ReLigue o FIREWALL do Windows" ) )
RETURN NIL
FUNCTION FirewallON()
PUBLIC lFireWall
IF lFireWall // Se desligou o Firewall, Religa-lo.
MsgInfo( OemToAnsi( "Para Sua Seguran鈥, ReLigue o FIREWALL do Windows" ), ;
OemToAnsi( "Para Sua Seguran鈥, 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 NILNo 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.
Xevi,
RunAs.exe es el programa que invoca el ShellExecute()
RunAs.exe es un programa del S.O.
Gracias por la respuesta.
Pues lo que me queda por resolver, si se puede, incluir una aplicaci贸n la lista del FireWall de Windows.
