USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Windows)

Título da Dica:  Exibir o tempo de utilização do windows
Postada em 5/12/2003 por Josefh Hennyere      Clique aqui para enviar email para o autor  jhennyere@yahoo.com.br
Crie um formulário com um Botão de comando denominando-o de "Command1" e copie o código no formulário.

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
  
  Count = GetTickCount()
  
  Count = Count \ 1000
  
  Days = Count \ (24& * 3600&)
  If Days > 0 Then Count = Count - (24& * 3600& * Days)
  
  Hours = Count \ 3600&
  If Hours > 0 Then Count = Count - (3600& * Hours)
  Minutes = Count \ 60
  Seconds = Count Mod 60
  
  Message = "O Windows está ligado à " & Days & " dia(s), " & Hours & " hora(s), " & Minutes
  Message = Message & " Minuto(s) e " & Seconds
  Message = Message & " Segundo(s) !"

  MsgBox Message
End Sub

Josefh Hennyere
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página