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

@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

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

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

	Запрет сворачивания формы, в том числе и с помощью горячих клавиш 20.09.2012, 22:05. Показов 8111. Ответов 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