[Resolvido]Seguranca, nao deixar regredir a data e hora ?

POLa pessoal, olha eu aqui denovo...rs....

Alguem sabe como faco pra identificar se um usuario regrediu a hora e data do sistema windowns ?

Pergunto isto, pois irei trabalhar com projetos, quando o projeto tiver a sua data de fim, menor que a data atual do sistema, entao sera incluido automaticamente a opcao Finalizado, no campo Status, porem corro o risco de alguem alterar a data do sistema windows, ai vai baguncar meu banco de dados, rs....alguem sabe como posso fazer ?

Juliana.

Uma forma simples de se conseguir tal resultado pode ser colocando um formulário com um controle webbrowser para carregar uma página que conste a data correta. Basta confrontar essa data com a do sistema. Se for diferente, uma linha é suficiente para acertar:

Date = Me.txtDataCerta

Cri, de boa......pode melhorar os seus " verbos" na explicacao ?...rs..... comos e afz chamada a um controle webbrowser ? Em que momento coloco o controle, etc etc ?

Brigadaaa....Ju

Veja esse exemplo que eu uso já a algum tempo em meus sistemas.

OBS.: Eu o modifiquei para acertar a data no momento em que abrir o aplicativo. Ao abrir o form principal, o form de sincronia é aberto em modo oculto. Se a data estiver diferente, é acertada automaticamente. Lembro que o uso dessa técnica deve depender do momento e da necessidade. Quando for o caso da empresa precisar que o computador esteja sempre sincronizado, pode acertar automaticamente, mas em alguns caso pode ser necessário avisar ao usuário antes de acertar. Aqui é chamado o form no momento da abertura, mas pode ser tambem no momento em que clicar em um botão. Dependendo da necessidade, pode ser necessário abrir esse form de sincronia e o outro formulário ser aberto depois de conferida a data.
Para testar, altere a data do sistema e depois abra o exemplo. Depois de uns 5 segundos a data do sistema terá voltado ao normal.

Oi Criquio,

Duvidas:

1 - Por que vc usa a instrucao: T = T + 1

If T >= 1 Then

2 - Pelo que entendi, quando ele detecta que a data e hora estao incorreos, entao tenta arrumar a hora do microa traves da instrucao: Date = Me.Texto8, correto ? Se sim, por que nao funcionou no meu Micro ? (sou admin da maquina ok).

Obrigada.

Ju

O T conta os segundos. Como o objeto webbrowser pode demorar alguns décimos de segundo ou mesmo mais de um segundo para carregar completamente, colocamos o sistema para fazer essa checagem depois de 3 segundos, apesar do que as linhas abaixo já garantem um pouco a espera pelo carregamento completo da página:

Do While webTimeDate.Busy: DoEvents: Loop
Do While webTimeDate.ReadyState <> 4: DoEvents: Loop

Quanto a não ter funcionado no seu micro, pode ser questão de referência. Por descuido, acabei deixando a linha "On Error Resume Next". Retire ela e rode o aplicativo para ver se ocorre algum erro e, se sim, qual a mensagem e para que linha depura.

Oi Criquio,

realmente eu tirei o On Error, e apresentou o erro: " Erro em tempo de execucao 70: Permissao negada.", engracao que estou como admin do meu micro, o que pode ter ocorrido ?

Ju

Oi Criquio,

so mais um detalhe, em que momento consigo validar se o usuario esta com conexao com a Internet ? Pois caso nao esteja, tenho que pensar em outra forma de validar, nao eh ?

Ju

Tentemos o seguinte: abra um módulo qualquer e olhe, no menu Ferramentas > Referências se tem alguma escrito AUSENTE. Se tiver, desmarque-a. Quanto a verificar a conexão com a net, temos aqui uma pequena função criada pelo JPaulo. Crie um módulo novo e cole:

Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long

Public Function VerificaInternet() As Long
'By JPaulo ® Maximo Access
Dim strResultado As Long
VerificaInternet = InternetGetConnectedState(strResultado, 0)
End Function

No formulário frmMenu do exemplo que lhe mandei, altere assim:

If VerificaInternet = 1 Then
DoCmd.OpenForm "frmSincData"
Else
End If

Oi Criquio,

quanto a atualizacao da data, isto continua nao ocorrendo, mesmo avaliando as referencias, mas pelo que entendi, est alteracao nao ira ocorrer em micros no qual o usuario nao tenha direitos de alteracao, correto ? Se sim, vamos esquecer esta parte e dar por encerrado, coloquei uma mensagem dizendo que a data esta errada e fecho o aplicativo, cabe ao usuario solciitar a atualizacao d adata...obrigada meu anjo.

Ju

Bem, se o usuário não pode alterar o sistema, não precisará se preocupar se ele vai fazer isso, não é?