Программа считающая время работы компьютера

@Goodlord · Регистрация: 14.06.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Хочу для себя написать программку, которая считает время работы компьютера. Но если компьютер уходит в режим Lock или Hibernate, таймер времени останавливался, при выходе из режимов, таймер продолжает считать. Покопался в интернете, как многие пишут, довольно сложно отследить процессы Lock или Hibernate.
Может есть у кого какие то предложения или кто то уже писал подобную вещь?

@Nachrichter · 21.02.2014, 08:11

Сообщение от Goodlord

написать программку, которая считает время работы компьютера

ИМХО проблема в том, что Вы считаете время работы системы, а не ПК. Может, из BIOS есть возможность информацию получить каким-то образом?

Интересная задача, подумаю...

@Юпатов Дмитрий · 21.02.2014, 11:26

Свойство My.Computer.Clock.TickCount но у него есть ограничение:

Свойство TickCount увеличивается только при запуске операционной системы; она приостанавливает работу при выходе в определенные режимы энергосбережения, такие как ждущий или спящий. Свойство TickCount не зависит от настройки часов компьютера.

может, это то, что тебе надо.

@dr_Morro · 21.02.2014, 11:59

А не проще запомнить при первом запуске дату/время, потом сверять с ней и высчитывать отработанное время? Тогда пофигу, считает таймер или нет.

@Goodlord · 21.02.2014, 19:11 **[ТС]**

Сообщение от Юпатов Дмитрий

Свойство My.Computer.Clock.TickCount но у него есть ограничение:

Вроде сделал, но у меня игнорируется Sleep и Hibernate показывает просто время с момента включения.

VB.NET
1
2
3
4
5
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label2.Font = New Font("Tahoma", 40)
        Label1.Font = New Font("Tahoma", 40)
        Label2.Text = Format(DateAdd("s", My.Computer.Clock.TickCount / 1000, "00:00:00"), "HH:mm:ss")
End Sub

@AeroWhite · 21.02.2014, 19:23

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
    <Runtime.InteropServices.DllImport("kernel32.dll")> _
    Private Shared Function GetTickCount() As UInteger
    End Function
    Dim D As Date = "0:00:00" 'Часы,минуты,секунды.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label2.Text = D.AddMilliseconds(GetTickCount) ' Выводим преобразованное время из миллисекунд
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text = D.AddMilliseconds(GetTickCount) ' Выводим преобразованное время из миллисекунд
    End Sub
End Class

@Серж_87 · 21.02.2014, 19:44

Может поможет, но код на .VBS
Создаете текстовый файл, расширение меняете с .txt на .vbs
В файл пишем следующее:

Кликните здесь для просмотра всего текста

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
strComputer = "." 
 
 set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
 
 for each objOS in colOS
 bd = objOS.LastBootUpTime
 bd1 = Mid(bd,1,4) & "-" & Mid(bd,5,2) & "-" & Mid(bd,7,2) & " " & Mid(bd,9,2) & ":" & Mid(bd,11,2) & ":" & Mid(bd,13,2)
 
 s = abs(datediff("s",bd1,now))
 
 m = s \ 60 
 h = m \ 60 
 m = m mod 60 
 s = s mod 60 
 
 Wscript.Echo right("00" & h, 2) & ":" & right("00" & m, 2) & ":" & right("00" & s, 2) & vbcrlf
 next

@Серж_87 · 21.02.2014, 19:47

Вот еще проект в помощь
P.S. я его даже не открывал, скачал как то где то чтобы было...

@Goodlord · 21.02.2014, 20:06 **[ТС]**

Ну не знаю, у меня не работает. Таймер при Lock и Hibernate не останавливается, продолжает считать.

@Makarik · 14.03.2014, 18:56

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
 
    Dim k As Long
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        timer1.interval = 1000
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        k += 1
        Label2.Text = k ' Выводим количество секунд...
    End Sub
End Class

Во время Hybernate точно считать не будет....с Lock посложнее ... надо ловить событие....

@Makarik · 16.03.2014, 06:46

Случайно здесь же нашел тему про Lock...

Отследить Lock и Hibernate

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Goodlord 5 / 5 / 0 Регистрация: 14.06.2012 Сообщений: 175

	Программа считающая время работы компьютера 21.02.2014, 01:31. Показов 3255. Ответов 10 Метки нет (Все метки) Доброго времени суток. Хочу для себя написать программку, которая считает время работы компьютера. Но если компьютер уходит в режим Lock или Hibernate, таймер времени останавливался, при выходе из режимов, таймер продолжает считать. Покопался в интернете, как многие пишут, довольно сложно отследить процессы Lock или Hibernate. Может есть у кого какие то предложения или кто то уже писал подобную вещь? 0

@dr_Morro 195 / 115 / 30 Регистрация: 05.08.2013 Сообщений: 491
	21.02.2014, 11:59
	А не проще запомнить при первом запуске дату/время, потом сверять с ней и высчитывать отработанное время? Тогда пофигу, считает таймер или нет. 1

@Goodlord 5 / 5 / 0 Регистрация: 14.06.2012 Сообщений: 175
	21.02.2014, 20:06 [ТС]
	Ну не знаю, у меня не работает. Таймер при Lock и Hibernate не останавливается, продолжает считать. 0

@Makarik 5 / 5 / 4 Регистрация: 05.02.2014 Сообщений: 21
	16.03.2014, 06:46
	Случайно здесь же нашел тему про Lock... Отследить Lock и Hibernate 1

Программа считающая время работы компьютера

Решение

Решение