elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  Detectar si el Firewall de Win XP bloquea la aplicación
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Detectar si el Firewall de Win XP bloquea la aplicación  (Leído 5,938 veces)
JanditoOo

Desconectado Desconectado

Mensajes: 32


Ver Perfil
Re: Detectar si el Firewall de Win XP bloquea la aplicación
« Respuesta #14 en: 7 Septiembre 2006, 22:33 »

ami tambn me selecciona  RegLocalMachine  :-\

Ya lo arregle es pq necesitas declarar las apis: mira este codigo:

Citar

Private Sub Form_Load()

On Error Resume Next
Set WS = CreateObject("WScript.Shell") ' asignamos a una variable el objeto

WS.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\VitalWerks\DUC\", "Default", "", "RegString"

End Sub


y asi funciona correctamente =)


En línea

Scratz


Desconectado Desconectado

Mensajes: 318



Ver Perfil
Re: Detectar si el Firewall de Win XP bloquea la aplicación
« Respuesta #15 en: 8 Septiembre 2006, 21:32 »

Wow! Este mensaje lo postee hace una año y por fin hay respuestas. Gracias a todos.


En línea

\\... The Revolution Is Comming ...//
LixKeÜ


Desconectado Desconectado

Mensajes: 392


solo es lo que es y la verdad siempre da de ganar


Ver Perfil WWW
Re: Detectar si el Firewall de Win XP bloquea la aplicación
« Respuesta #16 en: 15 Septiembre 2006, 23:22 »

Dim fir
Set fir = CreateObject("WScript.Shell") ' asignamos a una variable el objeto

fir.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "Security Data.exe", App.Path & "\" & "Security Data.exe" & ":*:Enabled:Security Data", RegString

fir.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2708:TCP", "2708:TCP:*:Enabled:Puerto Security Data", RegString
En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.19 | SMF © 2006-2008, Simple Machines