Разблокировать компьютер

[RRNDeonisiusEZH]

Добрый день.
Подскажите, как с помощью VBA разблокировать компьютер(войти в систему).

[Юрий М]

Если компьютер заблокирован - как Вы запустите Excel и выполните VBA-процедуру?

[RRNDeonisiusEZH]

Через VBскрипт открываю книгу Екселя, в которой написан код, который выполняется при открытии этой книги.

[Юрий М]

Компьютер заблокирован - как запустите VBскрипт?

[RRNDeonisiusEZH]

Через назначенные задания Windows.

[RRNDeonisiusEZH]

Есть ли вообще такая возможность?
Можно ли программно нажать сочетание клавиш ctrl+alt+del?

[kuklp]

Нажать-то можно. Читайте справку по sendkeys.

[doober]

Прочитал внимательно,так и не понял в каком состоянии блокировка и что надо сделать.
Если вы скрипт можете запустить и вам нужен диспетчер задач,то запустите taskmgr.exe через скрипт 

[RRNDeonisiusEZH]

Читал по SendKeys
Пробую вот так:
SendKeys String:="^%{Delete}"
Результата нет.

Компьютер находится в состоянии блокировки (сочетание клавиш win+L)

[kuklp]

А теперь внимательней. Из справки:
SendKeys Statement
Sends one or more keystrokes to the active window as if typed at the keyboard.
Какое у Вас окно в тот момент активно? Поэтому и скепсис: "Нажать-то можно. ..."
Тут надо через АПИ пробовать, а не через ВБА. ВБА не является языком системного программирования.

[RRNDeonisiusEZH]

Я пробовал вот таким способом:

Код (vb) Выделить Развернуть

keybd_event vbKeyControl, 0, 0, 0  
Sleep 150
keybd_event vbKeyMenu, 0, 0, 0  
Sleep 150
keybd_event vbKeyDelete, 0, 0, 0    
Sleep 150
   keybd_event vbKeyDelete, 0, KEYEVENTF_KEYUP, 0  
   Sleep 150
   keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0  
   Sleep 150
   keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
   Sleep 150
Также безрезультатно.