Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 170
от 16.11.2004, 20:40

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 359
Отправлено ответов: 307
Активность: 85.51 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Licvidator
Статус: Профессиональный
Общий рейтинг: 107.46
URL: PC Info
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 355. Добрый день :) Может быть кто-нибудь знает как отправить в SendKeys Ctrl+Alt+Del? Что то у меня ничего не получается :( Варианты типа SendKeys ("^%{DELETE}") или SendKeys "^(%{DELETE})" а так же SendKeys "^%{DEL}" поче... (ответов: 1)

Вопросов: 1, ответов: 1


 Вопрос № 355

Добрый день :) Может быть кто-нибудь знает как отправить в
SendKeys Ctrl+Alt+Del? Что то у меня ничего не
получается :( Варианты типа SendKeys ("^%{DELETE}") или
SendKeys "^(%{DELETE})" а так же SendKeys "^%{DEL}"
почему то не проходят :(
Заранее благодарен, с уважением Призрак.



Вопрос отправлен: 13.11.2004, 20:35
Отправитель: Phantom

[Следующий вопрос >>] [Список вопросов]

Отвечает Licvidator

Приветствую Вас, 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.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (24)
C / C++ (19)
Perl (6)
Builder / Delphi (17)
Pascal (18)
Basic / VBA (9)
Java / JavaScript (7)
PHP (18)
Криптография (7)
WinAPI (20)
Радиоэлектроника (12)
Пользователю
Windows 95/98/Me (40)
Windows NT/2000/XP (63)
"Железо" (40)
Поиск информации (19)
Администратору
Windows NT/2000/XP (39)
Linux / Unix (18)
Юристу
Гражданское право (10)
Семейное право (5)
Трудовое право (8)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.





http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное