Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 18, 2008, 06:44:06
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 229 veces)
NorK
SI NO AI SITIO PARA LA DERROTA LO MEJOR ES ENTRENAR.
Moderación
Habitual
*****
Desconectado Desconectado

Mensajes: 273

Respeto al sabio por sabiduria o por torpeza.


Ver Perfil
« en: Enero 13, 2007, 07: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


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Zi0N
Visitante
« Respuesta #1 en: Enero 13, 2007, 12:43:51 »
Para finalizar el programa utiliza la instrucción: End
« Última modificación: Enero 13, 2007, 12:44:56 por Zi0N » En línea
sNipeR-
Visitante
« Respuesta #2 en: Enero 13, 2007, 01:40:02 »
Cita de: NorK en Enero 13, 2007, 07: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, 01:42:04 por $N!PER » En línea
NorK
SI NO AI SITIO PARA LA DERROTA LO MEJOR ES ENTRENAR.
Moderación
Habitual
*****
Desconectado Desconectado

Mensajes: 273

Respeto al sabio por sabiduria o por torpeza.


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


Necesitas ser usuario para ver los enlaces Crear Usuario  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.7 | SMF © 2006-2007, Simple Machines LLC