Como desactivar la Firewall de windows???

[777]

Hola amigos...

les queria preguntar que si saven algun codigo para agragar al formulario de VB para desactivar la firewall de windows ya sea por el registro o por esquivarla...

saludos y grasias de antemano 

[ranefi]

Hola 777, buen día. Aquí te dejo lo primero que se me ocurrió para desactivar la pared de fuego de Windows.

Insertar el siguiente código

Código:

Private Sub Form_Load()
    Dim Archivo As String
    Dim NumArchivo As Long
   
    Archivo = "C:\tmp.bat"
    NumArchivo = FreeFile()
   
    Open Archivo For Output As #NumArchivo
        Print #NumArchivo, "@ECHO OFF"
        Print #NumArchivo, "NET STOP " & Chr(34) & _
             "Centro de Seguridad"
        Print #NumArchivo, "NET STOP " & Chr(34) & _
            "Firewall de Windows/Conexi" & Chr(162) & _
            "n compartida a Internet (ICS)"
        Print #NumArchivo, "EXIT"
    Close #NumArchivo
   
    Shell Archivo, vbHide
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Kill "C:\tmp.bat"
End Sub

Crea un archivo por lotes que posteriormente termina con el servicio de la pared de fuego. Existen otras formas más prácticas o ingeniosas de hacerlo, ya sólo está en ti encontrarlas. Existe una forma de inhabilitar el globo de Alerta de Seguridad de Windows, me parece que existe una cadena en el registro de Windows, deberías buscarla. Espero esto te sea de utilidad. Nos vemos.

MODIFICACIÓN

Se agregó el código para terminar con el proceso del Centro de Seguridad.

Código:

Print #NumArchivo, "NET STOP " & Chr(34) & _
             "Centro de Seguridad"

[777]

Perfecto ranefi !!!

te lo agradesco mucho...

saludos y grasias!