xtsystem Posted April 23, 2015 Report Share Posted April 23, 2015 Ola pessoal. Pesquisando, achei a função abaixo que segundo o informado, não deixaria o sistema ser ativado remotamente. #define SM_REMOTESESSION 4096 If !( GetSysMetrics( SM_REMOTESESSION ) == 0 ) quit Endif Fiz os teste remoto, mas o sistema conseguiu carregar, ou seja, não bloqueou o acesso. Alguem sabe como fazer isso. Obrigado Daryabite 1 Quote Link to comment Share on other sites More sharing options...
rochinha Posted April 24, 2015 Report Share Posted April 24, 2015 Amiguinho, Isto depende do que voce acha ser ...ativado remotamente... O valor de SM_REMOTESESSION = 0x2001 usado em GetSysMetrics() só serve quando usado dentro de uma sessão remota, ou seja, quando uma maquina acessa o servidor por Terminal Services. evertonlb 1 Quote Link to comment Share on other sites More sharing options...
xtsystem Posted April 24, 2015 Author Report Share Posted April 24, 2015 Ok Jose Carlos Na verdade, eu não quero que o cliente tenha acesso remotamente, via Teamviewer ou outros programas de comunicação. Claro, para acessar o meu sistema. Entende ? Sera que existe uma forma de barrar isso ? Obrigado Quote Link to comment Share on other sites More sharing options...
MatheusFarias Posted April 27, 2015 Report Share Posted April 27, 2015 Cara o que você pode fazer é tentar contornar verificando os processos abertos com gettask http://wiki.fivetechsoft.com/doku.php?id=fivewin_function_gettasks verifica se o team view e outros estão abertos, ou pode procurar por funcçoes do habour na web sobre a disponibilidade da porta de acesso , caso ela esteja sendo usada você pode bloquear e da uma olhada nas portas mais usadas, também pode verificar para o programa validar os protocolos de comunicação remota costumeiramente usados Quote Link to comment Share on other sites More sharing options...
edutraini Posted April 27, 2015 Report Share Posted April 27, 2015 Eu tenho vários clientes que usam o acesso remoto aonde assim que conecta ja abre o sistema e assim que sair do sistema fecha a sessão Quote Link to comment Share on other sites More sharing options...
xtsystem Posted April 29, 2015 Author Report Share Posted April 29, 2015 OK Pessoal; Vou dar uma pesquisada. Depois posto aqui. Obrigado Quote Link to comment Share on other sites More sharing options...
rochinha Posted April 30, 2015 Report Share Posted April 30, 2015 Amiguinhos, aTasks = GetTasks() cProcessLog := "Lista de processos sendo executados: " + ; AllTrim( Str( Len( aTasks ) ) ) + CRLF for n = 1 to Len( aTasks ) cProcessLog += " " + Str( n, 3 ) + " " + aTasks[ n ] + CRLF next MemoEdit( cProcessLog ) Monte um vetor com nomes de aplicativos que deseja barrar. Depois de listar com o código acima faça uma critica e finalize o seu sistema. Veja que eu disse, finalize o seu sistema, ou seja, se for encontrado algum dos aplicativos indesejados, rodando, não permita que seu sistema seja executado. Voce não deve, de sobremaneira, barra o uso destes aplicativos de acesso remoto na maquina do cliente, mesmo porque o cliente pode desejar que aconteçam acessos as suas máquinas para diversos fins, inclusive de segurança, para saber se o funcionário está ou não trabalhando, etc. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.