Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Julio 26, 2008, 03:38:26
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Saltar Firewall 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Saltar Firewall  (Leído 196 veces)
NorK
Moderación
Habitual
*****
Desconectado Desconectado

Mensajes: 228


Respeto al sabio por sabiduria o por torpeza.


Ver Perfil WWW
« en: Enero 13, 2007, 08:20:40 »
Bueno tengo una duda nose como hacer para que mi projecto pueda introducirse en la lista de excepciones del firewall nada mas ejecutarse y ya otra pregunta me gustaria saber como cerrar completamente la aplicacion (el me.hidden no me sirve ya que solo lo oculta no lo cierra). Dsd ya gracias Wink
Bye!
En línea


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
Zi0N
Recien Llegado
*
Desconectado Desconectado

Mensajes: 1



Ver Perfil
« Respuesta #1 en: Enero 13, 2007, 01:43:51 »
Para finalizar el programa utiliza la instrucción: End
« Última modificación: Enero 13, 2007, 01:44:56 por Zi0N » En línea
sNipeR-
Visitante
« Respuesta #2 en: Enero 13, 2007, 02:40:02 »
Cita de: NorK en Enero 13, 2007, 08:20:40
Bueno tengo una duda nose como hacer para que mi projecto pueda introducirse en la lista de excepciones del firewall nada mas ejecutarse y ya otra pregunta me gustaria saber como cerrar completamente la aplicacion (el me.hidden no me sirve ya que solo lo oculta no lo cierra). Dsd ya gracias Wink
Bye!

Para la aplicacion se introducir en la lista de excepciones:

Código:
Dim WScriptShell
   Set WScriptShell = CreateObject("WScript.Shell")
   Call WScriptShell.RegWrite("HKLM\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", "<directorio completo de tu programa>:*:Enabled:<nombredelaexcepcion>")
   Set WScriptShell = Nothing

Para cerrar una aplicacion:

Se puede hacer apenas con el 'Unload Me' pero se tienes mas de un form abierto tendras k usar el 'End'.

Salu2
« Última modificación: Enero 13, 2007, 02:42:04 por $N!PER » En línea
NorK
Moderación
Habitual
*****
Desconectado Desconectado

Mensajes: 228


Respeto al sabio por sabiduria o por torpeza.


Ver Perfil WWW
« Respuesta #3 en: Enero 13, 2007, 02:52:21 »
Muchisimas gracias $N!PER  Wink
Bye!
En línea


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Saltar Firewall « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC