Добрый день :) Может быть кто-нибудь знает как отправить в SendKeys Ctrl+Alt+Del? Что то у меня ничего не получается :( Варианты типа SendKeys ("^%{DELETE}") или SendKeys "^(%{DELETE})" а так же SendKeys "^%{DEL}" почему то не проходят :( Заранее благодарен, с уважением Призрак.
Приветствую Вас, Phantom! Забудьте про Senkeys:) Надо использовать API keybd_event: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const VK_DELETE = &H2E 'клавиша Delete Private Const VK_MENU = &H12 'клавиша Alt Private Const VK_CONTROL = &H11 'клавиша Ctrl Private Const KEYEVENTF_KEYUP = &H2 Private Sub Command1_Click() Call keybd_event(VK_CONTROL, 0, 0, 0) 'Hажимаем Ctrl Call keybd_event(VK_MENU, 0, 0, 0) 'Hажимаем Alt Call keybd_event(VK_DELETE, 0, 0, 0) 'Hажимаем Delete Call keybd_event(VK_DELETE, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Delete Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Alt Call keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Ctrl End Sub
Однако, он не вызывает
Диспетчера задач, как можно было бы предположить ((GetAsyncKeyState(VK_CONTROL)) And (Ge
tAsyncKeyState(VK_MENU)) And (GetAsyncKeyState(VK_DELETE)) дает True). Причины пока неизвестны. Ответ отправлен: 14.11.2004, 14:57 Отправитель: Licvidator
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.