Определите, заблокирован ли компьютер

Question

У меня есть макрос, который отправляет мне текст из Outlook, когда появляется уведомление о встрече. Я хотел бы найти способ, как запустить этот макрос, только если я не за компьютером. Я искал способ получить свой статус из Skype для бизнеса, определить, заблокирован ли P C или нет, и посмотреть, установлена ​​ли смарт-карта. Все без особой удачи. Ищете простое решение, которое работает в VBA.

Answer 1

Я использовал код отсюда Определите, работает ли приложение с Excel

Function IsProcessRunning(process As String)
    Dim objList As Object

    Set objList = GetObject("winmgmts:") _
        .ExecQuery("select * from win32_process where name='" & process & "'")

    If objList.Count > 0 Then
        IsProcessRunning = True
    Else
        IsProcessRunning = False
    End If

End Function

Основываясь на ответе здесь В Python 3, как я могу определить, Windows заблокирован?

Я позвонил

IsProcessRunning("LogonUI.exe")

и, похоже, работает.

Answer 2

Может быть, это какая-то помощь 3 секунды, прежде чем разблокировать рабочую станцию. Тем временем файл был закрыт.