Форум программистов, компьютерный форум, киберфорум
.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
.NET Обучение нейронной сети https://www.cyberforum.ru/ net-framework/ thread2698161.html
Всем привет! Есть нейросеть, у которой на выходе 3 значения. Проблема такова: после обучения, ВСЕ выходные сигналы стремятся к 0.5, даже тот, который наименее вероятный. С чем это может быть...
.NET Проверка и работа с лицензией на сервере и клиенте
Задача в следующем: получить уникальный идентификатор машины, на котором будет запускаться программа, проверить этот идентификатор в базе данных, если идентификатор есть, разрешить программе...
.NET Трекингование версий приложения
Делаю WPF приложение. Хотелось бы трекинговать версии, что было дабавлено, что пофиксено. Пока пишу в текстовом файле но это не очень, наверняка есть более прогрессивные методы, возможно тот же md...
.NET Вылет без ошибок Имеется программа для работы с COM портами. Работает под XP SP3, MySQL 5.0, .net 2.0 с Language Pack. Прога работала лет 7-8 без сбоев, но сгорел ПК, и пришлось переустановить систему и прогу на... https://www.cyberforum.ru/ net-framework/ thread2695752.html
.NET Документы и таблицы в XML https://www.cyberforum.ru/ net-framework/ thread2694624.html
Добрый день. Так как из за использования офиса часто возникают проблемы связанные с версиями офиса и прочими заморочками надумал перевести докуменаию , формируемую в рабочем софте в XML формат ...
Управляемый код и CLR .NET
Что такое управляемый код и CLR? Основные требования к управляемому коду. Спасибо
Можно ли изменить фон MSDN? .NET
Подскажите, пожалуйста, можно ли изменить фон MSDN с белого на какой-либо другой?
.NET Требования к современному C# разработчику Доброго времени. Периодически гляжу вакансии, уж сильно оно всё варируется, но база как правило это: Опыт коммерческой разработки от 1 года Опыт работс .Net, С#, Опыт работы с web... https://www.cyberforum.ru/ net-framework/ thread2692480.html
.NET Строка с одинарной кавычкой - Регулярное выражение https://www.cyberforum.ru/ net-framework/ thread2690774.html
Начал изучать регулярные выражения. Есть задача сделать регулярное выражение по поиску строки, которая заключена в одинарные кавычки. Например вот: var a = 'a b"c'; var b = 'bdd' var t = '' При...
.NET Где посмотреть исходники нужного мне класса? Слышал .net имеет открытый исходный код все дела... Где можно посмотреть сорцы класса StreamContent? :-[ https://www.cyberforum.ru/ net-framework/ thread2689360.html
115 / 105 / 17
Регистрация: 10.02.2013
Сообщений: 272
14.09.2020, 15:50 0

Консольное приложение которое отображеет время блокировки ПК

14.09.2020, 15:50. Просмотров 2587. Ответов 2
Метки (Все метки)

Ответ


vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Imports System.Runtime.InteropServices
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim session As SessionChangeHandler = New SessionChangeHandler()
    End Sub
End Class
 
Class SessionChangeHandler
    Inherits Control
 
    <DllImport("WtsApi32.dll")>
    Private Shared Function WTSRegisterSessionNotification(ByVal hWnd As IntPtr,
    <MarshalAs(UnmanagedType.U4)> ByVal dwFlags As Integer) As Boolean
 
    End Function
    <DllImport("WtsApi32.dll")>
    Private Shared Function WTSUnRegisterSessionNotification(ByVal hWnd As IntPtr) As Boolean
 
    End Function
    Private Const NOTIFY_FOR_THIS_SESSION As Integer = 0
    Private Const WM_WTSSESSION_CHANGE As Integer = &H2B1
    Private Const WTS_SESSION_LOCK As Integer = &H7
    Private Const WTS_SESSION_UNLOCK As Integer = &H8
    Public Event MachineLocked As EventHandler
    Public Event MachineUnlocked As EventHandler
 
    Public Sub New()
        If Not WTSRegisterSessionNotification(Me.Handle, NOTIFY_FOR_THIS_SESSION) Then
            Marshal.ThrowExceptionForHR(Marshal.GetLastWin32Error())
        End If
    End Sub
 
    Protected Overrides Sub OnHandleDestroyed(ByVal e As EventArgs)
        WTSUnRegisterSessionNotification(Me.Handle)
        MyBase.OnHandleDestroyed(e)
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_WTSSESSION_CHANGE Then
            Dim value As Integer = m.WParam.ToInt32()
 
            If value = WTS_SESSION_LOCK Then
                OnMachineLocked(EventArgs.Empty)
            ElseIf value = WTS_SESSION_UNLOCK Then
                OnMachineUnlocked(EventArgs.Empty)
            End If
        End If
 
        MyBase.WndProc(m)
    End Sub
 
    Protected Overridable Sub OnMachineLocked(ByVal e As EventArgs)
        MsgBox(Now.ToString + ": screen locked") 'Вылетает сообщение при блокировке экрана
    End Sub
 
    Protected Overridable Sub OnMachineUnlocked(ByVal e As EventArgs)
        MsgBox(Now.ToString + ": screen unlocked") 'При разблокировке экрана
    End Sub
End Class
Добавлено через 4 минуты
Также доступны другие константы, что указаны в методе WndProc:
C#
1
2
3
4
5
6
7
8
9
const int WTS_CONSOLE_CONNECT = 0x1; // Сессия была подключена к консольному терминалу.
const int WTS_CONSOLE_DISCONNECT = 0x2; // Сеанс был отключен от консольного терминала.
const int WTS_REMOTE_CONNECT = 0x3; // Сеанс был подключен к удаленному терминалу.
const int WTS_REMOTE_DISCONNECT = 0x4; // Сеанс был отключен от удаленного терминала.
const int WTS_SESSION_LOGON = 0x5; // Пользователь вошел в сеанс.
const int WTS_SESSION_LOGOFF = 0x6; // Пользователь вышел из сеанса.
const int WTS_SESSION_LOCK = 0x7; // Сеанс заблокирован.
const int WTS_SESSION_UNLOCK = 0x8; // Сеанс разблокирован.
const int WTS_SESSION_REMOTE_CONTROL = 0x9; // Сессия изменила статус удаленного управления.


Вернуться к обсуждению:
Консольное приложение которое отображеет время блокировки ПК
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.09.2020, 15:50
Готовые ответы и решения:

Консольное приложение, которое конвертирует зашифрованный текст
написать программу на С++, чтобы она конвертировала в консоле зашифрованный текст.

Консольное приложение, которое парсит HTML страничку
Доброго времени суток! Есть сайт с такой страницей: &lt;html&gt; &lt;head&gt;...

Консольное приложение, которое парсит HTML страничку
Доброго времени суток! Есть сайт с такой страницей: &lt;html&gt; &lt;head&gt;...

Консольное приложение которое может вычислить выражение
Мне нужно было сделать так чтобы программа вычисляла выражение . Но потом я застопился очень...

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.