USUARIO MALANDRO ALTERACAO DE DATA

USUARIO.EXCLUIDOS 07/12/2003 01:00:11
#46
Olá amigos. Alguém conhece um meio de descobrir se um usuário alterou a data do sistema?
Desde já agradeço.
Abraço moçada!!!!!!!
USUARIO.EXCLUIDOS 07/12/2003 01:23:49
#49 Resposta escolhida
Conheço.

'No Módulo
Option Explicit

Public Type SYSTEMTIME
  wYear As Integer
  wMonth As Integer
  wDayOfWeek As Integer
  wDay As Integer
  wHour As Integer
  wMinute As Integer
  wSecond As Integer
  wMilliseconds As Integer
End Type

Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime _
  As SYSTEMTIME) As Long
 
Public Sub SetDate(mDate As SYSTEMTIME)
  Dim lReturn As Long
  Dim lpSystemTime As SYSTEMTIME
  lpSystemTime.wYear = mDate.wYear
  lpSystemTime.wMonth = mDate.wMonth
  lpSystemTime.wDayOfWeek = mDate.wDayOfWeek
  lpSystemTime.wDay = mDate.wDay
  lpSystemTime.wHour = mDate.wHour
  lpSystemTime.wMinute = mDate.wMinute
  lpSystemTime.wSecond = mDate.wSecond
  lpSystemTime.wMilliseconds = mDate.wMilliseconds
  lReturn = SetSystemTime(lpSystemTime)
End Sub

'no Form
Private mData As String, mHora As String

Private Sub Form_Load()
Text1 = fixHours(Time)
Text2 = fixDate(Date)
End Sub

Private Sub Text1_Change()
mHora = Text1
End Sub

Private Sub Text2_Change()
mData = Text2
End Sub

Private Sub Timer1_Timer()
Dim d As String, h As String, str As String
Dim nDate As SYSTEMTIME
d = fixDate(Date)
h = fixHours(Time)
Text3 = h
Text4 = d
If h  mHora Then
    str = "Hora não modificada para anterior, "
    Text1 = h
Else
    nDate.wDay = Day(Text2)
    nDate.wDayOfWeek = Weekday(Text2)
    nDate.wMonth = Month(Text2)
    nDate.wYear = Year(Text2)
    nDate.wHour = Hour(Text1)
    nDate.wMinute = Minute(Text1)
    nDate.wSecond = Second(Text1)
    nDate.wMilliseconds = 0
    SetDate nDate
End If
If d = mData Then
    str = str & "data não modificada para anterior."
    Text2 = d
Else
    str = str & "data modificada para anterior."
    nDate.wDay = Day(Text2)
    nDate.wDayOfWeek = Weekday(Text2)
    nDate.wMonth = Month(Text2)
    nDate.wYear = Year(Text2)
    nDate.wHour = Hour(Text1)
    nDate.wMinute = Minute(Text1)
    nDate.wSecond = Second(Text1)
    nDate.wMilliseconds = 0
    SetDate nDate
    str = str & " Data Restaurada para: " & vbNewLine & fixDate(Date)
End If
'Label4.Caption = Hour(Text1) & vbNewLine & _
                Minute(Text1) & vbNewLine & _
                Second(Text1)
Label3.Caption = str
End Sub

Private Function fixDate(ByVal sDate As String) As String
    fixDate = Format(sDate, "dd/mm/yyyy")
End Function

Private Function fixHours(ByVal sTime As String) As String
    fixHours = Format(sTime, "hh:mm:ss AM/PM")
End Function
USUARIO.EXCLUIDOS 07/12/2003 01:26:28
#50
eu fiz esse código para a mesma coisa que você tá pensando em fazer, impossibilitar o usuário de trocar a data, fazendo com que ele tenha que ficar o período de teste todo sem trapaças.
USUARIO.EXCLUIDOS 07/12/2003 01:52:25
#52
De Nada André. o fórum é pra essas coisas. esse programa tem que rodar todo o tempo.
USUARIO.EXCLUIDOS 08/12/2003 15:09:24
#204
André A Cara Não, e sim O Cara eu sou homem, sabe àtila o Rei dos Hunos. Um Bárbaro que por onde seu cavalo passasse não mais nasceriam nem gramas...

é isso Mesmo WebMaster.
USUARIO.EXCLUIDOS 09/12/2003 04:02:01
#274
Não gente, eu que peço desculpas, afinal estava só brincando quando postei o referente ao Postado em 2003-12-08 15:09:24, não me incomodo nem um pouco, apenas frizo o que realmente é por garantia. Sem preocupações galera.

André, meu irmão tente o seguinte texto para o objeto Timer:

Private Sub Timer1_Timer() 
Dim d As String, h As String, str As String 
Dim nDate As SYSTEMTIME 
d = fixDate(Date) 
h = fixHours(Time) 
Text3 = h 
Text4 = d 
If h  mHora Then 
str = "Hora não modificada para anterior, " 
Text1 = h 
Else 
nDate.wDay = Day(Text2) 
nDate.wDayOfWeek = Weekday(Text2) 
nDate.wMonth = Month(Text2) 
nDate.wYear = Year(Text2) 
nDate.wHour = Hour(Text1) 
nDate.wMinute = Minute(Text1) 
nDate.wSecond = Second(Text1) 
nDate.wMilliseconds = 0 
SetDate nDate 
End If 
If d = mData Then 
str = str & "data não modificada para anterior." 
Text2 = d 
Else 
str = str & "data modificada para anterior." 
nDate.wDay = Day(Text2) 
nDate.wDayOfWeek = Weekday(Text2) 
nDate.wMonth = Month(Text2) 
nDate.wYear = Year(Text2) 
nDate.wHour = Hour(Text1) 
nDate.wMinute = Minute(Text1) 
nDate.wSecond = Second(Text1) 
nDate.wMilliseconds = 0 
SetDate nDate 
str = str & " Data Restaurada para: " & vbNewLine & fixDate(Date) 
End If 
'Label4.Caption = Hour(Text1) & vbNewLine & _ 
Minute(Text1) & vbNewLine & _ 
Second(Text1) 
Label3.Caption = str 
End Sub


Caso não funcione me avise que refaço o código.
USUARIO.EXCLUIDOS 10/12/2003 09:19:04
#466
André já sei o que está acontecendo o site não exibe os sinais de maior que e menor que por isso o código não fica completo e dá error quando se testa. vou tentar Fazer de outra forma.

vamos ver se assim melhora
If h > mHora Then
str = "Hora não modificada para anterior, "
Text1 = h
Else
nDate.wDay = Day(Text2)
nDate.wDayOfWeek = Weekday(Text2)
nDate.wMonth = Month(Text2)
nDate.wYear = Year(Text2)
nDate.wHour = Hour(Text1)
nDate.wMinute = Minute(Text1)
nDate.wSecond = Second(Text1)
nDate.wMilliseconds = 0
SetDate nDate
End If
If d >= mData Then
str = str & "data não modificada para anterior."
Text2 = d
Else
str = str & "data modificada para anterior."
nDate.wDay = Day(Text2)
nDate.wDayOfWeek = Weekday(Text2)
nDate.wMonth = Month(Text2)
nDate.wYear = Year(Text2)
nDate.wHour = Hour(Text1)
nDate.wMinute = Minute(Text1)
nDate.wSecond = Second(Text1)
nDate.wMilliseconds = 0
SetDate nDate
str = str & " Data Restaurada para: " & vbNewLine &
fixDate(Date)
End If
USUARIO.EXCLUIDOS 10/12/2003 09:21:03
#469
agora sim o código a cima tá certo.
e Xano Sou tão iniciante quanto qualquer um aqui.
USUARIO.EXCLUIDOS 11/12/2003 05:29:19
#658
Cara eu só tenho muitos códigos que a própria página me ofereceu cara, eu realmente sem esses códigos estaria tendo que fazer tudo na marra, mas eu faria, por que tenho garra, vou a uma loja de livros de infomática e procuro um livro de vb, devoro ele e aprendo a ser marrento com o vb, e como isso a fazer o qu o livro se propõe a ensinar e depois vou e compro outro, e outro, mas por sorte todos temos um site do porte do VBMania para nos axiliar, e claro economizar uns trocados com os livros, nos dando exemplos e abrindo um ótimo fórum como esse não tà' aqui falando que se deve ou não comprar os livros de vb, mas que tambem seriam materiais que ajudariam seriam.

E, Irmão, boa sorte na sua jornada. Tudo que aprendi foi aqui, se você acha que não souu iniciante, bom eu respeito a sua opnião, mas da mesma forma que você assumiu isso , ou acha isso, cabe a você se esforçar e ficar bem melhor do que eu, oq não é muito difícil.

Gente desculpe pelo testamento a cima, mas quando eu tenho alguma coisa para falar eu falo mesmo na hora e com todas as palavras, literalmente. Foi Mal.

Xano espero que isso não abale nossa amizade. Amigos?[S25] Sim ou não?
Tópico encerrado , respostas não são mais permitidas
Voltar