USUARIO MALANDRO ALTERACAO DE DATA

 Tópico anterior Próximo tópico Novo tópico

USUARIO MALANDRO ALTERACAO DE DATA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#46 - 07/12/2003 01:00:11

USUARIO.EXCLUIDOS

Cadast. em:


   Ol amigos. Algum conhece um meio de descobrir se um usurio alterou a data do sistema?
    Desde j agradeo.
   Abrao moada!!!!!!!




Resposta escolhida #49 - 07/12/2003 01:23:49

USUARIO.EXCLUIDOS

Cadast. em:


Conheo.

'No Mdulo
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 no 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 no 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




#50 - 07/12/2003 01:26:28

USUARIO.EXCLUIDOS

Cadast. em:


eu fiz esse cdigo para a mesma coisa que voc t pensando em fazer, impossibilitar o usurio de trocar a data, fazendo com que ele tenha que ficar o perodo de teste todo sem trapaas.



#52 - 07/12/2003 01:52:25

USUARIO.EXCLUIDOS

Cadast. em:


De Nada Andr. o frum pra essas coisas. esse programa tem que rodar todo o tempo.



#204 - 08/12/2003 15:09:24

USUARIO.EXCLUIDOS

Cadast. em:


Andr A Cara No, e sim O Cara eu sou homem, sabe tila o Rei dos Hunos. Um Brbaro que por onde seu cavalo passasse no mais nasceriam nem gramas...

isso Mesmo WebMaster.



#274 - 09/12/2003 04:02:01

USUARIO.EXCLUIDOS

Cadast. em:


No gente, eu que peo desculpas, afinal estava s brincando quando postei o referente ao Postado em 2003-12-08 15:09:24, no me incomodo nem um pouco, apenas frizo o que realmente por garantia. Sem preocupaes galera.

Andr, meu irmo 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 no 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 no 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 no funcione me avise que refao o cdigo.



#466 - 10/12/2003 09:19:04

USUARIO.EXCLUIDOS

Cadast. em:


Andr j sei o que est acontecendo o site no exibe os sinais de maior que e menor que por isso o cdigo no 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 no 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 no 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




#469 - 10/12/2003 09:21:03

USUARIO.EXCLUIDOS

Cadast. em:


agora sim o cdigo a cima t certo.
e Xano Sou to iniciante quanto qualquer um aqui.



#658 - 11/12/2003 05:29:19

USUARIO.EXCLUIDOS

Cadast. em:


Cara eu s tenho muitos cdigos que a prpria pgina me ofereceu cara, eu realmente sem esses cdigos estaria tendo que fazer tudo na marra, mas eu faria, por que tenho garra, vou a uma loja de livros de infomtica 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 prope 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 frum como esse no t aqui falando que se deve ou no comprar os livros de vb, mas que tambem seriam materiais que ajudariam seriam.

E, Irmo, boa sorte na sua jornada. Tudo que aprendi foi aqui, se voc acha que no souu iniciante, bom eu respeito a sua opnio, mas da mesma forma que voc assumiu isso , ou acha isso, cabe a voc se esforar e ficar bem melhor do que eu, oq no muito difcil.

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 no abale nossa amizade. Amigos? Sim ou no?



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45