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

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

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

Добрый день,
Пытаюсь отследить Lock и Hibernate на компьютере.

VB.NET

1	Private Declare Function LockWorkStation Lib "user32.dll" () As Long

Поменял Long на Boolean, что бы можно было True/False установить, но он все равно при LockWorkStation закрывает компьютер.

А по Hibernate вообще не нашел.
Делаю программу которая считает рабочее время компьютера, но чистое время, без Lock и Hibernate.

Добавлено через 12 минут

VB.NET

Public Class Form1
    <Runtime.InteropServices.DllImport("kernel32.dll")> _
    Private Shared Function GetTickCount() As UInteger
    End Function
 
    Private Declare Function LockWorkStation Lib "user32.dll" () As Boolean
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim D As Date = "0:00:00"
 
        If LockWorkStation = True Then
        Else
            Label1.Text = "Компьютер работает :" & " " & D.AddMilliseconds(GetTickCount)
        End If
 
 
    End Sub
End Class

Убежденный · 13.05.2013, 11:16

Чтобы отслеживать события блокировки и разблокировки рабочей станции (lock/unlock), а
также изменения в режиме питания (power events), лучше всего написать службу,
которая будет мониторить наступление этих событий.
Посмотрите класс ServiceBase, у него есть методы OnSessionChange и OnPowerChange.

Убежденный Ушел с форума 16473 / 7436 / 1187 Регистрация: 02.05.2013 Сообщений: 11,617 Записей в блоге: 1
	13.05.2013, 11:16	2
	Чтобы отслеживать события блокировки и разблокировки рабочей станции (lock/unlock), а также изменения в режиме питания (power events), лучше всего написать службу, которая будет мониторить наступление этих событий. Посмотрите класс ServiceBase, у него есть методы OnSessionChange и OnPowerChange. 2