Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Работа с WINDOWS  
     
  Определить, как долго запущена Windows  
  'Этот пример покажет время в милисекундах (1000 миллисекунд = 1 секунда). Если хотите получить секунды - разделите на 1000.

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
MsgBox GetTickCount()
End Sub

'Более подробнее расписанная статистика.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Dim a_hour, a_minute, a_second
a = Format(GetTickCount() / 1000, "0") 'всего секунд
a_hour = Int(a / 3600)
a = a - a_hour * 3600
a_minute = Int(a / 60)
a_second = a - a_minute * 60
MsgBox "Ваш компьютер работает в эту загрузку " & Str(a_hour) & " часов " & Str(a_minute) & " минут" & Str(a_second) & " секунд"
End Sub
'ИЛИ ТАКОЙ ПРИМЕР

'Расположите на форме элемент ListBox и элемент Timer

Private Declare Function GetTickCount& Lib "Kernel32" ()

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
MS = GetTickCount()
SekGesamt = MS \ 1000
Std = (SekGesamt \ 3600)
Min = (SekGesamt - (Std * 3600)) \ 60
Sek = (SekGesamt - (Std * 3600) - (Min * 60))
t = Format(Std, "00") & ":" & Format(Min, "00") & ":" & Format(Sek, "00")
Label1.Caption = t
End Sub
 
     
  VBNet online (всего: 51586)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам