HACKER: Desligando e Ligando o Firewall

[rochinha]

Amiguinhos,

Apesar do titulo isto nada tem de hackerismo e sim de necessidade.

De repente voce se depara com este incoveniente e precisa de auxilio do administrador ou a senha para um usuário master no Windows e a pessoa que tem não quer revelar.

Com funções assim, escondidas em menus, você pode programar estas brechas para facilitar o seu suporte.

Agora, não vá sacanear o seu cliente, heim...

////////////////////////////////////////////////////////////////////////////

//

//    Propositos: Permitir a manutencao do Firewall( Testado no Windows 7 64 )                                                                  

//

////////////////////////////////////////////////////////////////////////////

function FirewallOFF()

   // Jose Carlos da Rocha - 09/02/2016

   ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0)

   return nil


function FirewallON()

   // Jose Carlos da Rocha - 09/02/2016

   ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state on", "c:\windows\system32", 0)

   return nil

Coloquem estas funções para serem chamadas via botões de seu sistema ou num menu de manutenção.

[fladimir]

Parabéns muito útil...

[Valdir]

Amigo Rochinha....

Obrigado por compartilhar mais essa utilidade.

abrs.

[kapiaba]

Amiguinhos,

Apesar do titulo isto nada tem de hackerismo e sim de necessidade.

De repente voce se depara com este incoveniente e precisa de auxilio do administrador ou a senha para um usuário master no Windows e a pessoa que tem não quer revelar.

Com funções assim, escondidas em menus, você pode programar estas brechas para facilitar o seu suporte.

Agora, não vá sacanear o seu cliente, heim...

////////////////////////////////////////////////////////////////////////////
//
//    Propositos: Permitir a manutencao do Firewall( Testado no Windows 7 64 )                                                                  
//
////////////////////////////////////////////////////////////////////////////
function FirewallOFF()
   // Jose Carlos da Rocha - 09/02/2016
   ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0)
   return nil
 
function FirewallON()
   // Jose Carlos da Rocha - 09/02/2016
   ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state on", "c:\windows\system32", 0)
   return nil

Coloquem estas funções para serem chamadas via botões de seu sistema ou num menu de manutenção.

Rochinha, não tem nenhum perigo para uçuário malakabado? abs.

[kapiaba]

////////////////////////////////////////////////////////////////////////////

//

//    Propositos: Permitir a manutencao do Firewall( Testado no Windows 7 64 )

//

//    Jose Carlos da Rocha - 09/02/2016              Testado no Windows 7 32

////////////////////////////////////////////////////////////////////////////


#include "FiveWin.ch"


static oWnd


function Main()


   local oBar


   DEFINE WINDOW oWnd TITLE "Liga/Desliga FireWall do rWindows"


   DEFINE BUTTONBAR oBar _3D OF oWnd


   DEFINE BUTTON OF oBar                          ;

          MESSAGE "Desativar FireWall do Windows" ;

          ACTION( FirewallOFF() )                 ;

          TOOLTIP "Desativar FireWall do Windows"


   DEFINE BUTTON OF oBar                          ;

          MESSAGE "Ativar FireWall do Windows"    ;

          ACTION( FirewallON() )                  ;

          TOOLTIP "Ativar FireWall do Windows"


   DEFINE BUTTON OF oBar                          ;

          MESSAGE "Saida - Exit - Cancelar..."    ;

          ACTION( oWnd:End() )                    ;

          TOOLTIP "Saida - Exit - Cancelar..."


   SET MESSAGE OF oWnd TO "Liga/Desliga FireWall do rWindows" ;

       NOINSET CLOCK DATE KEYBOARD


   ACTIVATE WINDOW oWnd


return nil


function FirewallOFF() // O Phoda e que ele pergunta, com jumento... Fica dificil


   // Jose Carlos da Rocha - 09/02/2016

   ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0)


return nil


function FirewallON() // O Phoda e que ele pergunta, com jumento... Fica dificil.


   // Jose Carlos da Rocha - 09/02/2016

   ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state on", "c:\windows\system32", 0)


return nil


// Fin

[eevaldo]

Otima dica para quem da suporte a distancia

valeu rochinha

[rochinha]

Amiguinhos,

O Windows é cheio destas coisas de perguntar se a pergunta foi respondida, com outra pergunta.

Uma forma de diminuir ou desativar isto é usar as dicas relacionadas ao UAC anteriormente postadas.

O UAC eleva o nivel de usuario e então os comandos dados via nivel administrador correm sem perguntas.

...LA PREGUNTA????...

[kapiaba]

Amiguinho Rochinha, mesmo desligando o Firewall do rWindows, ao Registrar a DLL da FlexDocs, o FireWall(UAC?) bloqueia a Instalação e Pede Autorização. Sabeis porquê? Obg. Abs.