HACKER: Desligar e Ligar 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...

Código: Selecionar todos

////////////////////////////////////////////////////////////////////////////
//
//    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

[fladimir]

Rochinha eu abri minha janela onde mostra o Status do Firewall ATIVO ou Não e rodei em paralelo a sua contribuição mandando desativar e não mudou o status, ou seja, continuou ativo.

Não deu erro, executou, mas deu impressão q não afetou em nada, o q pode estar faltando?

[]´s

[rochinha]

Amiguinhos,

A função ShellExecute recebe com parametro a instrução RUNAS para forçar a abertura em modo administrador. Veja se a janela realmente abriu como administrador.

O ultimo parâmetro da ShellExecute define a forma que a janela será aberta. Coloque 7 para que a mesma se torne visivel.

Faça manualmente a execução do comando tirando a prova dos 9.

NetSh.exe Advfirewall set allprofiles state off

ou


NetSh.exe Advfirewall set allprofiles state on

Talvez seu Windows acuse a falta de NetSh.exe ou do serviço Advfirewall.