MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    avatar
    FlavioLima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 14/02/2016

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança Empty [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FlavioLima 28/11/2016, 14:34

    Pessoal. Pesquisei e não encontrei nada.

    Ao clicar no botão entrar do formulário inicial, de login, eu preciso de um comando vba para que:

    O sistema só abra se localizar uma pasta específica (ou um arquivo dentro da pasta)
    criada por mim no pc por exemplo C:\Windows\System32\NetworkList2\Arquivo

    Eu colocaria a pasta em algum lugar do computador do usuário,
    caso não localize a pasta no caminho indicado apareça uma mensagem:
    "Este computador não tem licença de uso".

    Caso localize abra normalmente o formulário seguinte "Form1"

    Isto é só para tentar inibir que um usuário saia repassando o sistema para outras pessoas indiscriminadamente, sem ao menos dar um "obrigado" ao autor, no caso eu rsrs.

    Sei que não é a melhor nem única forma, mas queria acrescentar assim mesmo.

    Poderia ser uma pasta ou um arquivo qualquer, tipo "nomearquivo.txt"

    Agradeço qualquer ajuda. Acho que é importante para todos.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança Empty Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FabioPaes 28/11/2016, 17:55



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    adm.nneto gosta desta mensagem

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança Empty Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  Silvio 28/11/2016, 18:42

    Boa tarde...

    Apenas um pitaco...em termo de didática !!

    No primeiro formulário a ser carregado em teu sistema coloque dessa forma no evento ao carregar
    Call VerificaSeFicheiroExiste()


    Depois nesse mesmo formulário copie e cola essa função do JPaulo

    Sub VerificaSeFicheiroExiste()
    byJPaulo, maximoaccess
    Dim fso
    Dim file As String
    file = "C:\Windows\XPTO.dll" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox "("Esse programa não está autorizado a rodar nesse computador" & vbcrlf & _
    "O programa será fechado"), vbinformation, me.caption
    docmd.quit
    Else
    MsgBox " Programa autorizado a rodar nesse computador", vbinformation, me.caption
    End If
    End Sub


    Para criar o arquivo de texto XPTO.Dll basta abrir o bloco de notas e salvar como XPTO. Depois é só mudar a extensão de *.TXT para *.DLL


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    adm.nneto gosta desta mensagem

    avatar
    FlavioLima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 14/02/2016

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança Empty Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FlavioLima 28/11/2016, 19:11

    Prezado Fabio Paes

    Juro que pesquisei, mas qdo não se entende do assunto as palavras chave sao mal escolhidas as vezes, resultando em inúmeros posts...

    Obrigado pela ajuda na pesquisa, consegui montar uma solução e já ia postar aqui qdo vi a versão do Sílvio, bem mais completa que a minha modesta contribuição. Ia ficar assim:

    No botao de confirmar login e senha, evento ao clicar:

    JPaulo
    Dim fso
    Dim file As String
    file = "C:\teste.txt" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox " Licença não encontrada.", vbInformation, "Protegido por Direitos Autorais"
    Docmd.quit
    Else ...


    Prezado Sílvio

    Muito obrigado por montar a solução, ficou mais completa do que o que tinha pensado em fazer então vou utilizá-la!

    Obrigado a ambos mestres desenvolvedores!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança Empty Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  FabioPaes 28/11/2016, 19:51

    Grato pelo retorno amigo! Até a próxima se Deus quiser!

    Quanto a a pesquisa, eu recomendo sempre enxugar a pesquisa colocando as palavras importantes, e realizar no Google.com.br


    Para sua duvida por exemplo:

    Verificar existencia pasta;maximoaccess <=== Ira mostrar primeiro os resultados do Maximoaccess


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança Empty Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  Silvio 28/11/2016, 22:11

    Valeu Flávio, o fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança Empty Re: [Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:40