Запрет сворачивания формы, в том числе и с помощью горячих клавиш

@dima208-2009 · Регистрация: 03.06.2012

Студворк — интернет-сервис помощи студентам

Доброе время суток. Пишу программу на visual basic 6.0. Подскажите пожалуйста какой код нужно написать чтобы программу нельзя было свернуть. Если поставить MinButton = False, то нажатием на клавишу win + d или win + m она сворачивается. Как сделать чтоб при нажатии на клавиши win + d или win +m программа НЕ СВОРАЧИВАЛАСЬ, а оставалась развернутая всегда. Заранее спасибо.

Памирыч · 26.09.2012, 07:43

inv.DS, почему бы нет. Если он демонстрирует сабж - пожалуйста. Как его будет использовать ТС - дело не наше.

@dima208-2009 · 26.09.2012, 22:33 **[ТС]**

Сообщение от inv.DS

Памирыч, а можно я тогда выложу сюда исходник блокиратора ? Че уж там...

Вы же видите, что я пишу вменяемую программу. Моя программа напоминает что-то виде заметки. А как во всех программах данного типа формы не сворачиваются.

Решение моей проблемы подсказали так: Программа всегда поверх всех окон. - Это работает. Но зачем юзеру постоянно видеть это окно поверх всех окон? -Он не захочет пользоваться данной программой.

Я хочу: Чтоб при нажатии win + d моя программа становилась поверх всех окон. (Не сворачивалась.) И потом обратно.

Зла программа не содержит. Так что помогите пожалуйста. Если вы боитесь что кто-то напишет вирус видя исходник, то можете скинуть в личку.

@Pro_grammer · 27.09.2012, 09:07

Код хука клавиш не представляет секрета, прекрасно документирован, и в Интернете примеров не мало, странно, что до сих пор это для вас загадка.

Visual Basic
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
'код в modul
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5C
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    '
    If idHook < 0 Then
        'Вызываем хук
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        'проверяем код клавиши ( LWIN + D)
        If (GetKeyState(VK_LWIN) And &HF0000000) And wParam = Asc("D") Then
            'если совпадает
             MsgBox "Нажали клавишу", vbSystemModal
        End If
        'следующий хук
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function

Visual Basic
1
2
3
4
5
6
7
8
9
'Код для формы Form1
Private Sub Form_Load()
    'Ставим хук
    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Удаляем хук
    UnhookWindowsHookEx hHook
End Sub

Только не забываем, что есть ещё и правая WIN.

Добавлено через 26 минут
И самое главное, что для глобального хука клавиатуры ( согласно MSDN), хук должен осуществляться из DLL.
Иначе смысла в нем нет ни какого.

@dima208-2009 · 27.09.2012, 19:54 **[ТС]**

Pro_grammer, Спасибо. Но тут получается такая проблемка.
А как в коде модуля сделать так чтоб окно было поверх всех окон. Если я пишу вместо MsgBox код для поверх всех то это НЕ работает.

Visual Basic
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
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5C
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
 
 
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Const HWND_TOPMOST = -1
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    
    Private Const HWND_NOTOPMOST = -2
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    '
    If idHook < 0 Then
        'Вызываем хук
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        'проверяем код клавиши ( LWIN + D)
        If (GetKeyState(VK_LWIN) And &HF0000000) And wParam = Asc("D") Then
            'если совпадает
             'MsgBox "Нажали клавишу", vbSystemModal
           SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
        End If
        'следующий хук
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function

А как сделать так чтоб нажалась кнопка на форме я не знаю.

Visual Basic
1
2
3
4
If (GetKeyState(VK_LWIN) And &HF0000000) And wParam = Asc("D") Then
            'если совпадает
             [COLOR="Red"]form1.commond1.click[/COLOR]
        End If

Такого не существует.

@brifing · 27.09.2012, 20:27

Сообщение от dima208-2009

Такого не существует.

Если я правильно понял, то вам нужно сделать событие кнопки публичным; переименуйте это событие на

Visual Basic
1
2
3
Public Sub Command1_Click()
 
End Sub

Добавлено через 2 минуты
да и у вас вызов к процедуре по моему некоректно записан

Сообщение от dima208-2009

form1.commond1.click

Visual Basic
1
Form1.Command1_Click

так вроде надо

Добавлено через 4 минуты

Сообщение от dima208-2009

А как сделать так чтоб нажалась кнопка на форме

Сообщение от brifing

Form1.Command1_Click

да и вообще лучше так не писать, лучше свою процедуру для кнопки (и не только) придумать например

Visual Basic
1
2
3
Private Sub a
 
End Sub

и тогда вызов будет такой

Visual Basic
1
call a

@dima208-2009 · 27.09.2012, 21:02 **[ТС]**

Сообщение от brifing

Form1.Command1_Click

Таким способом тоже НЕ работает.

Про

Visual Basic
1
2
3
Private Sub a
 
End Sub

я знаю
Только я таким способом умею работать на одной форме. А мне нужно чтоб на 1 нажал на 2 отразилось.

Visual Basic
1
call form1.a

Тоже не существует.

dev.Free · 27.09.2012, 21:04

Не по теме:

Кликните здесь для просмотра всего текста

На хук запрета нету, а при неких движениях, "Штаны превращаются".

@brifing · 27.09.2012, 21:24

Сообщение от dima208-2009

Только я таким способом умею работать на одной форме

Сообщение от dima208-2009

Private Sub a

а пробовали поменять на

Visual Basic
1
Public Sub a

@dima208-2009 · 28.09.2012, 20:03 **[ТС]**

Сообщение от brifing

а пробовали поменять на

Visual Basic
1
Public Sub a

А где указывается для какой формы?

Добавлено через 2 минуты

Сообщение от dima208-2009

Pro_grammer, Спасибо. Но тут получается такая проблемка.
А как в коде модуля сделать так чтоб окно было поверх всех окон. Если я пишу вместо MsgBox код для поверх всех то это НЕ работает.

Visual Basic
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
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5C
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
 
 
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Const HWND_TOPMOST = -1
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    
    Private Const HWND_NOTOPMOST = -2
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    '
    If idHook < 0 Then
        'Вызываем хук
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        'проверяем код клавиши ( LWIN + D)
        If (GetKeyState(VK_LWIN) And &HF0000000) And wParam = Asc("D") Then
            'если совпадает
             'MsgBox "Нажали клавишу", vbSystemModal
           SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
        End If
        'следующий хук
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function

А как сделать так чтоб нажалась кнопка на форме я не знаю.

Visual Basic
1
2
3
4
If (GetKeyState(VK_LWIN) And &HF0000000) And wParam = Asc("D") Then
            'если совпадает
             [COLOR="Red"]form1.commond1.click[/COLOR]
        End If

Такого не существует.

Получается, что программа работает только тогда когда она активна. А если пользователь нажал win + d вне программы, то окно НЕ сворачивается.

Мне нужно чтоб перехватывало win+d вне программы.

@Pro_grammer · 28.09.2012, 21:58

Сообщение от dima208-2009

Мне нужно чтоб перехватывало win+d вне программы.

Самое главное не процитировал. Я же написал, что глобальный хук возможно осуществить из DLL.

Добавлено через 39 минут
Что бы не заморачиваться с DLL попробуй вот этот код. Это клавиатурный шпион.Работает глобально, и в свернутом состоянии, отлавливает комбинацию клавиш WIN+D
Для модуля

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'In a module
Public Const VK_D = &H44
Public Const VK_LWIN = &H5B
 
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Function GetPressedKey() As String
     If GetAsyncKeyState(VK_LWIN) = -32768 And GetAsyncKeyState(VK_D) = -32768 Then
            GetPressedKey = 1
       End If
   
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Ret = GetPressedKey
    If Ret = 1 Then
      MsgBox "WIN+D", vbSystemModal
    End If
End Sub

Для формы

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
'In a form
Private Sub Form_Load()
    Me.Caption = "Key Spy"
    'Create an API-timer
    SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Kill our API-timer
    KillTimer Me.hwnd, 0
    
End Sub

Для твоих целей это более чем достаточно - ты ведь не собираешься блокировать эти клавиши, а просто отследить их нажатие.

@dima208-2009 · 28.09.2012, 23:48 **[ТС]**

Огромное спасибо. Работает.

Сообщение от Pro_grammer

Для твоих целей это более чем достаточно - ты ведь не собираешься блокировать эти клавиши, а просто отследить их нажатие.

Нет, не собираюсь блокировать. Мне нужен был только отлов.

Только вот разобраться с правым win не могу.

Visual Basic
1
If GetAsyncKeyState(VK_LWIN) = -32768 And GetAsyncKeyState(VK_D) = -32768 Then

Так не работает, а другого в голову не приходит.

Dragokas · 29.09.2012, 02:51

Сообщение от dima208-2009

(VK_LWIN)

(VK_RWIN)

@dima208-2009 · 29.09.2012, 14:47 **[ТС]**

Сообщение от Dragokas

(VK_RWIN)

В том и дело, что не получается.
P.S. Забыл исправить.

Dragokas · 29.09.2012, 16:42

Чему там не получаться. Константу задайте и все заводится (не в C++ работаете).

Visual Basic
1
If GetAsyncKeyState(&H5C) = -32768 And GetAsyncKeyState(VK_D) = -32768 Then

@dima208-2009 · 30.09.2012, 13:56 **[ТС]**

Dragokas, Спасибо большое работает. И правый, и левый win. Я пишу программу на ноутбуке. У меня настроено так, что если по тайчпаду ударить двумя пальцами будет показ рабочего стола. В 1 коде Pro_grammer,

Сообщение от Pro_grammer

Visual Basic
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
'код в modul
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5C
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
* * '
 * *If idHook < 0 Then
* * * * 'Вызываем хук
 * * * *KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
* * Else
* * * * 'проверяем код клавиши ( LWIN + D)
 * * * *If (GetKeyState(VK_LWIN) And &HF0000000) And wParam = Asc("D") Then
* * * * * * 'если совпадает
 * * * * * * MsgBox "Нажали клавишу", vbSystemModal
* * * * End If
* * * * 'следующий хук
 * * * *KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
* * End If
End Function

Окно оставалось "наверху".

А во 2 коде

Сообщение от Pro_grammer

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'In a module
Public Const VK_D = &H44
Public Const VK_LWIN = &H5B
 
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Function GetPressedKey() As String
     If GetAsyncKeyState(VK_LWIN) = -32768 And GetAsyncKeyState(VK_D) = -32768 Then
            GetPressedKey = 1
       End If
   
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Ret = GetPressedKey
    If Ret = 1 Then
      MsgBox "WIN+D", vbSystemModal
    End If
End Sub

Не работает.
Работает левый и правый(сам прописал) win. А с тайчпада все или свернуто, или за рабочем столом.

Как сделать чтоб при нажатии на тайчпад форма тоже не сворачивалась или не уходила под рабочий стол???

@Pro_grammer · 30.09.2012, 15:20

Сообщение от dima208-2009

при нажатии на тайчпад форма тоже не сворачивалась

Как это провернуть? В смысле свернуть все окна нажатием на тачпад?

@dima208-2009 · 30.09.2012, 19:16 **[ТС]**

Сообщение от Pro_grammer

Как это провернуть? В смысле свернуть все окна нажатием на тачпад?

У меня настроено так, удар 2 пальцами по тайчпаду происходит сворачиванию всех окон.
Но тут есть еще проблемка в windowse есть кнопка свернуть все окна.

Как сделать так, чтоб при нажатии кнопки "свернуть все окна" и ударам пальцами по тайчпаду Моя форма не сворачивалась? Глобальный перехват клавиш тут не помогает

P.S. Мне кажется, но я не уверен при нажатии кнопки и тайчпада происходит одна и та же команда.

@Pro_grammer · 30.09.2012, 19:21

Сообщение от dima208-2009

У меня настроено так, удар 2 пальцами по тайчпаду происходит сворачиванию всех окон.
Но тут есть еще проблемка в windowse есть кнопка свернуть все окна.

Если обычное сворачивание, то проверяй в таймере статус окна
Form1.WindowState
У свернутого <> 0
Мы с этого и начали на первой странице, ты ещё раз всё перечитай!

@dima208-2009 · 30.09.2012, 19:47 **[ТС]**

Сообщение от Pro_grammer

Form1.WindowState

Visual Basic
1
2
3
Private Sub Timer1_Timer()
Form1.WindowState = 0
End Sub

Интервал таймера ставлю 1

Может где-то я сделал ошибку?
Но этот код НЕ работает!!!
А есть другой способ?

Dragokas · 30.09.2012, 20:51

dima208-2009, не у всех пользователей - ноутбуки с установленным Synaptics-драйвером с кастомной настройкой сворачивания окон по 2-пальцевому касанию тачпада.
Стоит ли этим забивать голову?

Раньше всегда работало:

Visual Basic
1
If Form1.WindowState <> 0 Then Form1.WindowState = 0

Новые блоги и статьи Все статьи Все блоги /
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.

@dima208-2009 0 / 0 / 0 Регистрация: 03.06.2012 Сообщений: 65

	Запрет сворачивания формы, в том числе и с помощью горячих клавиш 20.09.2012, 22:05. Показов 8086. Ответов 44 Метки нет (Все метки) Доброе время суток. Пишу программу на visual basic 6.0. Подскажите пожалуйста какой код нужно написать чтобы программу нельзя было свернуть. Если поставить MinButton = False, то нажатием на клавишу win + d или win + m она сворачивается. Как сделать чтоб при нажатии на клавиши win + d или win +m программа НЕ СВОРАЧИВАЛАСЬ, а оставалась развернутая всегда. Заранее спасибо. 0

Памирыч Почетный модератор 23251 / 9165 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	26.09.2012, 07:43
	inv.DS, почему бы нет. Если он демонстрирует сабж - пожалуйста. Как его будет использовать ТС - дело не наше. 1

dev.Free
	27.09.2012, 21:04
	Не по теме: Кликните здесь для просмотра всего текста На хук запрета нету, а при неких движениях, "Штаны превращаются". 0