Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: LaN en 19 Septiembre 2005, 19:40 pm



Título: Añadir excepción al firewall del sp2
Publicado por: LaN en 19 Septiembre 2005, 19:40 pm
Pues ésa es mi pregunta. ¿Es posible añadir una excepción o simplemente desactivar el firewall de windows en visual basic?
Algo asi como la opción que tiene el emule de abrir puertos en firewall interno de windows xp ;)

Gracias de antemano


Título: Re: Añadir excepción al firewall del sp2
Publicado por: yeikos en 19 Septiembre 2005, 23:49 pm
Para detener el servicio del Firewall:

Código:
Shell "cmd.exe /c net stop SharedAccess"

Para añadir una excepción al Firewall:

set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\C:\chat.exe","C:\chat.exe:*:Enabled:chat"

El problema del segundo código es que confunde la contrabarra del directorio con una separación para crear una subclave, la solución seria usar las APIs o solucionar este pequeño problema.


Título: Re: Añadir excepción al firewall del sp2
Publicado por: LaN en 20 Septiembre 2005, 11:54 am
Entiendo, pensaré en ello, y si no lo consigo posteo aki mismo.
Gracias, es lo que andaba buscando ;)