HORA DO LIGAMENTO DO MICRO
Peguei um sistema aki no site (http://www.vbmania.com.br/vbmdetail.php?varID=2632) q serve pra ver o dia e a hora em q o micro foi desligado, tem como saber o dia e a hora em q ele foi ligado tb???
Obrigado...
Obrigado...
bem...
faça um programa que salve no registro do windows a data e hora... e faça com que ele seja executado no carregamento do windows... acho que esta seria a forma mais simples
faça um programa que salve no registro do windows a data e hora... e faça com que ele seja executado no carregamento do windows... acho que esta seria a forma mais simples
alguem sabe outra forma?????
nada??
Bem ele mostra quanto tempo o windows esta ligado, com isso vc pode pegar a hora atual - o tempo que ficou ligado, ai voce sabera que horas ele foi ligado.
Basta acrescentar em seu form um command
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Dim Count As Long
Dim Days As Integer
Dim Hours As Double
Dim Minutes As Double
Dim Seconds As Double
Dim Message As String
'Get milliseconds since windows started
Count = GetTickCount()
'Convert to Seconds
Count = Count \ 1000
'Pull out Days
Days = Count \ (24& * 3600&)
If Days > 0 Then Count = Count - (24& * 3600& * Days)
'Pull out HH:MM:SS
Hours = Count \ 3600&
If Hours > 0 Then Count = Count - (3600& * Hours)
Minutes = Count \ 60
Seconds = Count Mod 60
'Create a Message with info in it
Message = "O Windows está ligado à  " & Days & " dia(s), " & Hours & " hora(s), " & Minutes
Message = Message & " Minuto(s) e " & Seconds
Message = Message & " Segundo(s) !"
'Display Message in a Message Box
MsgBox Message
End Sub
Basta acrescentar em seu form um command
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Dim Count As Long
Dim Days As Integer
Dim Hours As Double
Dim Minutes As Double
Dim Seconds As Double
Dim Message As String
'Get milliseconds since windows started
Count = GetTickCount()
'Convert to Seconds
Count = Count \ 1000
'Pull out Days
Days = Count \ (24& * 3600&)
If Days > 0 Then Count = Count - (24& * 3600& * Days)
'Pull out HH:MM:SS
Hours = Count \ 3600&
If Hours > 0 Then Count = Count - (3600& * Hours)
Minutes = Count \ 60
Seconds = Count Mod 60
'Create a Message with info in it
Message = "O Windows está ligado à  " & Days & " dia(s), " & Hours & " hora(s), " & Minutes
Message = Message & " Minuto(s) e " & Seconds
Message = Message & " Segundo(s) !"
'Display Message in a Message Box
MsgBox Message
End Sub
Tópico encerrado , respostas não são mais permitidas