pcsoft.br.windevCopyright 2026, PC SOFT16 Dec 2020 19:36:58 Z16 Dec 2020 19:36:58 Z[code:wl] //1 : Sim //2 : Não SWITCH Dialog("Deseja criar as regras de liberação do Firewall?") CASE 1 //Libera Firewall sLiberarPortaEntradaRadmin is string = "netsh advfirewall firewall add rule name="+Charact(34)+"Radmin Open IN Port"+Charact(34)+" protocol=TCP dir=IN localport=4899 action=allow" sLiberarPortaSaidaRadmin is string = "netsh advfirewall firewall add rule name="+Charact(34)+"Radmin Open OUT Port"+Charact(34)+" protocol=TCP dir=OUT localport=4899 action=allow" sLiberaProgINWxTarifador is string = "netsh advfirewall firewall Add rule name="+Charact(34)+"Wx Tarifador Open IN"+Charact(34)+" dir=IN program="+Charact(34)+"c:\Program files\WxTarifador\WxTarifador.exe"+Charact(34)+" action=allow" sLiberaProgOUTWxTarifador is string = "netsh advfirewall firewall Add rule name="+Charact(34)+"Wx Tarifador Open OUT"+Charact(34)+" dir=OUT program="+Charact(34)+"c:\Program files\WxTarifador\WxTarifador.exe"+Charact(34)+" action=allow" sMensagem is string = "@Echo off"+CR+CR+"cls"+CR+CR+"echo Abra o MS-DOS com o direito do mouse como administrador e execute essas regras de firewall" sPathAtual is string = "cd\"+CR+CR+"cd "+fCurrentDir() sAbreFirewall is string = sMensagem +CR+CR+ sPathAtual +CR+CR+ sLiberarPortaEntradaRadmin +CR+CR+ sLiberarPortaSaidaRadmin +CR+CR+ sLiberaProgINWxTarifador +CR+CR+ sLiberaProgOUTWxTarifador +CR+CR+"pause" fSaveText(fCurrentDir()+"\Firewall.txt", sAbreFirewall) ExeRun("notepad.exe "+fCurrentDir()+"\Firewall.txt", exeActive, True) Info("Caso não funcione abra o prompt do msdos como administrador e execute esses comandos do bloco de notas que vão criar as regras de liberação de entrada e saida dos programas: Radmin e Wxtarifador") CASE 2 END [/code] -- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/30WEBDEVpt_BRhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/3628-usando-switch-dialog-yesno/read.awpmoderateur@pcsoft.fr (Le modérateur)webmaster@pcsoft.fr (Le Webmaster)