powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
15 сообщений из 15, страница 1 из 1
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652227
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пытаюсь найти код для кнопки WINDOWS , чтобы при помощи SendKeys нажать комбинацию кливиш WINDOWS + D и свернуть при этом все открытые окна
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652242
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DMK67Пытаюсь найти код для кнопки WINDOWS ...Ну и как успехи?
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652331
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да весь день уже роюсь..
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652353
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DMK67Да весь день уже роюсь..сложно найти черную кошку в темной комнате...

Весь день роетесь в единственной недлинной страничке help-а, посвященной SendKeys?
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652375
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SendKeys для VBA вроде не поддерживает {WIN}
Можно так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Explicit

Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const VK_LWIN As Byte = &H5B
Private Const VK_D As Byte = &H44
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Sub WIN_D()
 ' Simulate key press
 Call keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY, 0)
 Call keybd_event(VK_D, 0, KEYEVENTF_EXTENDEDKEY, 0)
 ' Simulate key release
 Call keybd_event(VK_D, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
 Call keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End Sub
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652385
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1. У меня справка выдает страниц 50 из инета
2. Если хочется поглумиться, то процитируйте решение моего вопроса из одинокой странички ВАШЕЙ справки
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652426
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreTM -огромное спасибо
Shocker.Pro - жду от Вас реализации данной процедуры через SendKeys
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37652438
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DMK67Shocker.Pro - жду от Вас реализации данной процедуры через SendKeys
Я разве говорил, что это можно через SendKeys? Я сказал, "сложно найти черную кошку в темной комнате...", подразумевая, что вам известно продолжение этой поговорки "...особенно если ее там нет.". И из одной странички MSDN это вполне следует.

Впрочем, если вы считаете, что я был слишком глумлив с вами, я приношу свои извинения.
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37654704
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А еще мы все помним, что существуют незадокументированные возможности...
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37654718
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DMK67А еще мы все помним, что существуют незадокументированные возможности...с учетом того, что команда SendKeys появилась гораздо раньше, чем эта клавиша на клавиатуре?
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37657414
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Рылся в инете в поисках способа управления Office Picture manager...и нарвался на макрос открытия сайта выполненного исключительно с помощью SendKeys...

Самое интересное это то, что данный макрос ОФИЦИАЛЬНО ПРОВЕРЕН И ОДОБРЕН МАЙКРОСОФТОМ... (Я его вытащил из файла-шаблона на сайте МАЙКРОСОФТА)

Код: vbnet
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.
Sub OpeningURL()
    Dim ie As Object
    Set ie = CreateObject("Internetexplorer.Application")
    ie.Visible = True
    ie.Navigate "http://www.google.com"
    SendKeys ("^N")
 

    Dim AltKey As String
    Dim CtrlKey As String
    Dim ShiftKey As String
    Dim TabKey As String
    Dim EnterKey As String
    Dim SpaceBar As String
    
    '--------------------------
    AltKey = "%"
    CtrlKey = "^"
    ShiftKey = "+"
    TabKey = "{TAB}"
    EnterKey = "~"
    SpaceBar = " "
 
'     open tool menu
    SendKeys AltKey & "(T)", False
    '- delay 1 second
    Application.Wait Now + TimeValue("00:00:01")
'    open  properties
    SendKeys "{DOWN}"
    SendKeys "{DOWN}"
    SendKeys "{DOWN}"

     Application.Wait Now + TimeValue("00:00:01")
''   entering into properties
    SendKeys EnterKey, False
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys (TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey & TabKey)
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys "{RIGHT}"
'    changing protected mode
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys (TabKey & TabKey)
    SendKeys SpaceBar
    SendKeys EnterKey, False
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys EnterKey, False
    End Sub
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37665566
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: DMK67
> ... Я его вытащил из файла-шаблона на сайте МАЙКРОСОФТА)

Если бы ты знал, сколько я вытаскивал всякой фигни с сайта микрософта
Код из серии - "а я могу ещё и вот так".

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37666042
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да понятною что дебильное решение... но в отдельных... особо дебильных случаях... почему бы и нет...
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37666859
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: DMK67
> Да понятною что ...

я рад, что ты понимаешь, что я понимаю :)

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
    #37692890
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Очень понравилось видео о особенностях использования клавши Windows блондинками с розовой клавиатурой...Никогда не задумывался о горячих клавишах
http://www.youtube.com/watch?v=1Fa8rOT-77c&feature=youtu.be
...
Рейтинг: 0 / 0
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]