Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS / 15 сообщений из 15, страница 1 из 1
08.02.2012, 17:30
    #37652227
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
Пытаюсь найти код для кнопки WINDOWS , чтобы при помощи SendKeys нажать комбинацию кливиш WINDOWS + D и свернуть при этом все открытые окна
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2012, 17:46
    #37652242
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
DMK67Пытаюсь найти код для кнопки WINDOWS ...Ну и как успехи?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2012, 18:22
    #37652331
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
Да весь день уже роюсь..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2012, 18:33
    #37652353
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
DMK67Да весь день уже роюсь..сложно найти черную кошку в темной комнате...

Весь день роетесь в единственной недлинной страничке help-а, посвященной SendKeys?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2012, 18:51
    #37652375
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
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
| Ответить | Цитировать | Написать  
08.02.2012, 18:55
    #37652385
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
1. У меня справка выдает страниц 50 из инета
2. Если хочется поглумиться, то процитируйте решение моего вопроса из одинокой странички ВАШЕЙ справки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2012, 19:21
    #37652426
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
AndreTM -огромное спасибо
Shocker.Pro - жду от Вас реализации данной процедуры через SendKeys
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2012, 19:28
    #37652438
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
 
DMK67Shocker.Pro - жду от Вас реализации данной процедуры через SendKeys
Я разве говорил, что это можно через SendKeys? Я сказал, "сложно найти черную кошку в темной комнате...", подразумевая, что вам известно продолжение этой поговорки "...особенно если ее там нет.". И из одной странички MSDN это вполне следует.

Впрочем, если вы считаете, что я был слишком глумлив с вами, я приношу свои извинения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2012, 19:52
    #37654704
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
А еще мы все помним, что существуют незадокументированные возможности...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2012, 20:01
    #37654718
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
DMK67А еще мы все помним, что существуют незадокументированные возможности...с учетом того, что команда SendKeys появилась гораздо раньше, чем эта клавиша на клавиатуре?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2012, 22:17
    #37657414
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
Рылся в инете в поисках способа управления 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
| Ответить | Цитировать | Написать  
16.02.2012, 16:32
    #37665566
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
> Автор: DMK67
> ... Я его вытащил из файла-шаблона на сайте МАЙКРОСОФТА)

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

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

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

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2012, 10:32
    #37692890
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS
Очень понравилось видео о особенностях использования клавши Windows блондинками с розовой клавиатурой...Никогда не задумывался о горячих клавишах
http://www.youtube.com/watch?v=1Fa8rOT-77c&feature=youtu.be
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно свернуть все окна при помощи SendKeys. Код клавиши WINDOWS / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 402ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2175936]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 69ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 220ms
total:  402ms
x
x
Закрыть


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