Стабильное переключение в другое приложение

@Saliery · Регистрация: 27.01.2013

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

Здравствуйте, товарищи!
Подскажите, пожалуйста, как можно гарантированно переключиться в приложение?
Уже полдня просидел, так ничего не могу сообразить.

Написал такой код, но он не всегда срабатывает. Скорее не срабатывает.
Надо, чтобы была 100% гарантия, что приложение будет на переднем плане.

Подскажите, пожалуйста, как это сделать?
Я весь интернет уже облазил, ничего не могу найти.

На заднем плане нужная программа появляется, раскрывается, но как её на передний план поставить?

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
Option Explicit
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Type WINDOWPLACEMENT
    Length As Long
    flags As Long
    showCmd As Long
    ptMinPosition As POINTAPI
    ptMaxPosition As POINTAPI
    rcNormalPosition As RECT
End Type
 
 
Private Const SW_NORMAL = 1
Private Const SW_MAXIMIZE = 3 ' Развернуть окно
Private Const SW_RESTORE = 9 ' Активизировать и отобразить окно. Если окно свернуто или развернуто, Windows восстанавливает его исходный размер и положение
Private Const SW_SHOW = 5 ' Активизировать окно
 
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_SHOWWINDOW = &H40
 
Private Const HWND_TOP = 0
 
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
 
 
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) 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 Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetFocusApp Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
 
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
 
 
Private Sub WndShow(ByVal hWnd_x As Long)
 
OpenIcon hWnd_x
ShowWindow hWnd_x, SW_SHOW
ShowWindow hWnd_x, SW_NORMAL
SetActiveWindow hWnd_x
SetFocusApp hWnd_x
 
SetForegroundWindow hWnd_x
ShowWindow hWnd_x, SW_RESTORE
ShowWindow hWnd_x, 10
 
End Sub
 
 
 
Private Sub SetWindowState(ByVal hWnd_x As Long)
 
Dim lWindowState As Long
Dim tWinPlace As WINDOWPLACEMENT
 
 
 
Dim tek_hWnd As Long
Dim tek_hWnd1 As Long
 
 
 
tWinPlace.Length = Len(tWinPlace)
Call GetWindowPlacement(hWnd_x, tWinPlace)
 
tWinPlace.showCmd = SW_NORMAL
Call SetWindowPlacement(hWnd_x, tWinPlace)
 
 
WndShow hWnd_x
 
SetWindowPos hWnd_x, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_SHOWWINDOW
 
 
 
tek_hWnd = GetForegroundWindow
If tek_hWnd <> hWnd_x And GetParent(tek_hWnd) = 0 Then WndShow hWnd_x
 
tek_hWnd1 = GetActiveWindow
If tek_hWnd1 <> hWnd_x And GetParent(tek_hWnd1) = 0 Then WndShow hWnd_x
 
 
 
 
End Sub
 
Private Sub Timer1_Timer()
 
Dim hWnd_x As Long
 
 
ShellExecute Form1.hwnd, "Open", App.Path & "\1.txt", 0, 0, SW_NORMAL
 
 
hWnd_x = FindWindow(vbNullString, "1.txt - AkelPad")
 
SetWindowState hWnd_x
 
End Sub

@The trick · 11.06.2020, 22:16

Нужно дождаться пока процесс инициализируется. Как минимум нужно вызвать функцию WaitForInputIdle. Затем разрешить установку окна переднего плана AllowSetForegroundWindow. Потом сканировать все окна верхнего уровня процесса и установить первому окну SetForegroundWindow.

@Saliery · 12.06.2020, 23:27 **[ТС]**

The trick, нашёл какой-то пример:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub SetForegroundWindowEx(ByVal hWnd As Long)
    Dim MyThreadID As Long, ActiveThreadID As Long
 
    MyThreadID = GetCurrentThreadId() ' Получение ID нашего потока
    ActiveThreadID = GetWindowThreadProcessId(GetForegroundWindow, 0) ' Получение ID потока активного в данный момент окна
 
    Call AttachThreadInput(MyThreadID, ActiveThreadID, vbNull) ' Присоединяемся к потоку, окно которого в данный момент активно
    Call SetForegroundWindow(hWnd) ' Теперь мы имеем полное право выйти из сумрака ;)
    Call AttachThreadInput(MyThreadID, ActiveThreadID, 0) ' Более не имеет смысла держаться за поток чьё окно БЫЛО активным ;)
End Sub

@Saliery · 14.06.2020, 00:06 **[ТС]**

Что-то сделал, вроде, стало лучше. Но у меня вопрос: если это моё приложение, оно будет стабильнее работать? Просто я разницы особо не заметил, своё (сам себя) или чужое раскрывать/скрывать.
Заметил особенность: после появление окна, оно серое (неактивное), пока не сделаешь клик там.
Я осуществил такое решение, но оно слишком безобразное. Нельзя ли как-то клик в приложении осуществить более цивилизованным образом?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
If GetForegroundWindow = hWnd_x And GetActiveWindow = hWnd_x Then
 
GetCursorPos coord_old
 
WindowGetCoord hWnd_x, coord_x, coord_y, 0, 0
 
SetCursorPos coord_x, coord_y
 
mouse_event MOUSEEVENTF_LEFTDOWN, coord_x, coord_y, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, coord_x, coord_y, 0, 0
 
SetCursorPos coord_old.x, coord_old.y
 
End If

Общее итоговое решение потом размещу в конце, как решу эту задачу.

Dragokas · 14.06.2020, 20:32

AttachThreadInput + SetActiveWindow. Вроде так.

@The trick · 14.06.2020, 21:39

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

Что-то сделал, вроде, стало лучше. Но у меня вопрос: если это моё приложение, оно будет стабильнее работать? Просто я разницы особо не заметил, своё (сам себя) или чужое раскрывать/скрывать.

Я же скинул как нужно сделать. В чем проблема?

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

AttachThreadInput + SetActiveWindow

Active-окно и Foreground-окно разные вещи. Я так понял ему Foreground-окно нужно сделать. Если у него приложение "обламывается" при установке окна верхнего уровня, то скорее всего необходимо вызвать AllowSetForegroundWindow. У меня Shell сам по себе выводит как нужно, поэтому потестить не могу.

@Saliery · 18.06.2020, 00:58 **[ТС]**

Сообщение от The trick

Я же скинул как нужно сделать. В чем проблема?

спасибо огромное, только я не очень разбираюсь в этих всех делах
что-то смастерил, посмотрите, правильно ли я вас понял?

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
Public Sub WindowSetState(ByVal hWnd_x As Long, ByVal WindState As WNDSTATE, Optional ByVal SW As SWS = 0)
 
 
Dim tek_hWnd As Long
Dim tek_hWnd1 As Long
 
 
 Dim lWindowState As Long
 Dim tWinPlace As WINDOWPLACEMENT
 
 
      Dim MyThreadID As Long
     Dim ActiveThreadID As Long
     Dim AttachThread As Long
 
If lpPrevWndProc <= 0 Then
 
MyThreadID = GetCurrentThreadId() ' Получение ID нашего потока
ActiveThreadID = GetWindowThreadProcessId(GetForegroundWindow, 0) ' Получение ID потока активного в данный момент окна
 
If MyThreadID <> 0 And ActiveThreadID <> 0 And MyThreadID <> ActiveThreadID Then
AttachThread = AttachThreadInput(MyThreadID, ActiveThreadID, 1)    ' Присоединяемся к потоку, окно которого в данный момент активно
AllowSetForegroundWindow ActiveThreadID
 
Sleep 200
 
End If
 
 
 
 End If
 
 
 
  tWinPlace.Length = Len(tWinPlace)
 Call GetWindowPlacement(hWnd_x, tWinPlace)
 
 
 
 
 
If SW = 0 Then ' разворачивание простое
 
WNDShow hWnd_x, WindState
 
 
ElseIf SW = 1 Then ' разворачивание сложное
 
WNDShow hWnd_x, WindState
 
 
tek_hWnd = GetForegroundWindow
 
If tek_hWnd <> hWnd_x And GetParent(tek_hWnd) = 0 Then
 
WNDShow hWnd_x, WindState
ShowWindow tek_hWnd, SW_MINIMIZE
 
End If
 
 
tek_hWnd1 = GetActiveWindow
 
If tek_hWnd1 <> hWnd_x And GetParent(tek_hWnd1) = 0 Then
 
WNDShow hWnd_x, WindState
ShowWindow tek_hWnd1, SW_MINIMIZE
 
End If
 
 
 
 
ElseIf SW = 2 Then ' сворачивание простое
 
 ShowWindow hWnd_x, WindState
 
End If
 
 
 
 
    tWinPlace.showCmd = WindState
    Call SetWindowPlacement(hWnd_x, tWinPlace)
 
 
 
 
 
If AttachThread <> 0 Then AttachThreadInput MyThreadID, ActiveThreadID, 0  ' Более не имеет смысла держаться за поток, чьё окно БЫЛО активным ;)
 
 
 
 
End Sub
 
 
Public Sub WNDShow(ByVal hWnd_x As Long, ByVal WindState As WNDSTATE)
 
Dim coord_x As Integer
Dim coord_y As Integer
 
Dim coord_old As POINTAPI
 
 
BringWindowToTop hWnd_x
OpenIcon hWnd_x
SetActiveWindow hWnd_x
SetForegroundWindow hWnd_x
 
 
ShowWindow hWnd_x, SW_RESTORE
ShowWindow hWnd_x, 10
 
ShowWindow hWnd_x, SW_SHOW
ShowWindow hWnd_x, WindState
 
 
 
 
SetWindowPos hWnd_x, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE
Sleep 50
 
If Win_TPM = 0 Then SetWindowPos hWnd_x, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
 
 
SetFocusApp hWnd_x
 
 
 
If lpPrevWndProc <= 0 And GetForegroundWindow = hWnd_x And GetActiveWindow = hWnd_x Then
 
GetCursorPos coord_old
 
 WindowGetCoord hWnd_x, coord_x, coord_y, 0, 0
 
coord_x = coord_x + 5
coord_y = coord_y + 5
 
 SetCursorPos coord_x, coord_y
 
 
 mouse_event MOUSEEVENTF_LEFTDOWN, coord_x, coord_y, 0, 0
 mouse_event MOUSEEVENTF_LEFTUP, coord_x, coord_y, 0, 0
 
 
 SetCursorPos coord_old.x, coord_old.y
 
End If
 
 
 
 
End Sub

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

Сообщение от The trick

Я так понял ему Foreground-окно нужно сделать. Если у него приложение "обламывается" при установке окна верхнего уровня

у меня каша мала происходит полная
во-первых, нет стабильности в том, чтобы окно вообще показалось на передний план
во-вторых, когда показывается, на нём нет фокуса (оно серого цвета)

просто если Shell вызывать по кнопке, то всё работает, конечно, ещё бы
а у меня задача-то другая: программа работает в фоновом режиме, у неё работает таймер с интервалом 1000 мс. и, если определённое условие в программе возникло, тут же должно появиться окно на переднем плане активное

Добавлено через 6 минут
а здесь написали, что хак в Висте вырубили с помощью AttachThreadInput: http://bbs.vbstreets.ru/viewto... 9#p6712289

@Saliery · 19.06.2020, 15:57 **[ТС]**

Смастерил как-то, не знаю, мне кажется, лучше не будет. Тут надо разбираться в деталях, а я в них никак не разбираюсь.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
Public Sub WindowSetState(ByVal hWnd_x As Long, ByVal WindState As WNDSTATE, Optional ByVal SW As SWS = 0)
 
 
' ShowNative = 0 ' разворачивание простое
'  = 1 ' разворачивание сложное (сворачивает текущее приложение)
' MinNative = 2 ' сворачивание простое
 
 
 
Dim tek_hWnd As Long
Dim tek_hWnd1 As Long
 
 
 Dim lWindowState As Long
 Dim tWinPlace As WINDOWPLACEMENT
 
 
 
 
    Dim currentThread As Long
    Dim activeThread As Long
    Dim windowThread As Long
    
    Dim activeWindow As Long
    
    Dim activeProcess As Long
    Dim windowProcess As Long
    
    
    
     Dim oldTimeout As Long
     Dim newTimeout As Long
 
 
 
 'LockSetForegroundWindow LSFW_UNLOCK   ''''''Unlock setforegroundwindow calls
      '  apiAllowSetForegroundWindow (ASFW_ANY) ''''''''Allow setforeground window calls
       ' KeyEvent( VK_MENU, False, True, -12) '''''''''''''''Lift menu key if pressed, and it also allows the foreground window to be set
       ' ForceForeground = CBool(apiSetForegroundWindow(hwnd)) 'Set foreground window
       ' apiLockSetForegroundWindow (LSFW_LOCK) ''''''''Lock other apps from using setforegroundwindow
 
If lpPrevWndProc <= 0 Then
 
 
    currentThread = GetCurrentThreadId
    activeWindow = GetForegroundWindow
    activeThread = GetWindowThreadProcessId(activeWindow, activeProcess)
    windowThread = GetWindowThreadProcessId(hWnd_x, windowProcess)
    
    If currentThread <> activeThread Then AttachThreadInput currentThread, activeThread, True
    If windowThread <> currentThread Then AttachThreadInput windowThread, currentThread, True
    
 
    Call SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0&, oldTimeout, 0)
    Call SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0&, newTimeout, 0)
    
    LockSetForegroundWindow LSFW_UNLOCK
    AllowSetForegroundWindow ASFW_ANY
 
 
 
Sleep 200
 
'End If
 
 
 
' Form1.Label10.Caption = MyThreadID
 ' Form1.Label11.Caption = ActiveThreadID
 ' Form1.Label12.Caption = AttachThread
 End If
 
 
 
  tWinPlace.Length = Len(tWinPlace)
 Call GetWindowPlacement(hWnd_x, tWinPlace)
 
 
 
'AppMinAll
 
If SW = 0 Then ' разворачивание простое
 
WNDShow hWnd_x, WindState
 
 
ElseIf SW = 1 Then ' разворачивание сложное
 
WNDShow hWnd_x, WindState
 
 
tek_hWnd = GetForegroundWindow
 
If tek_hWnd <> hWnd_x And GetParent(tek_hWnd) = 0 Then
 
WNDShow hWnd_x, WindState
ShowWindow tek_hWnd, SW_MINIMIZE
 
End If
 
 
tek_hWnd1 = GetActiveWindow
 
If tek_hWnd1 <> hWnd_x And GetParent(tek_hWnd1) = 0 Then
 
WNDShow hWnd_x, WindState
ShowWindow tek_hWnd1, SW_MINIMIZE
 
End If
 
 
 
 
ElseIf SW = 2 Then ' сворачивание простое
 
 ShowWindow hWnd_x, WindState
 
End If
 
 
 
'If tWinPlace.showCmd <> WindState Then
    tWinPlace.showCmd = WindState
    Call SetWindowPlacement(hWnd_x, tWinPlace)
'End If
 
 
    Call SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0&, oldTimeout, 0)
    
    If currentThread <> activeThread Then AttachThreadInput currentThread, activeThread, False
    If windowThread <> currentThread Then AttachThreadInput windowThread, currentThread, False
 
 
 
 
End Sub
 
Public Sub WNDShow(ByVal hWnd_x As Long, ByVal WindState As WNDSTATE)
 
 
Dim coord_x As Integer
Dim coord_y As Integer
 
Dim coord_old As POINTAPI
 
 
Dim SW As LogVar
 
 
 
If WindState = SW_RESTORE Or WindState = SW_NORMAL Or WindState = SW_SHOW Or WindState = SW_MAXIMIZE Then
SW = 1
Else
SW = 0
End If
 
 
 
OpenIcon hWnd_x
 
 
 
'#################################
SetForegroundWindow hWnd_x
SetActiveWindow hWnd_x
BringWindowToTop hWnd_x
ShowWindow hWnd_x, SW_RESTORE
'#################################
 
 
ShowWindow hWnd_x, 10
ShowWindow hWnd_x, SW_SHOW
 
 
 
ShowWindow hWnd_x, WindState
 
SetFocusApp hWnd_x
 
'Exit Sub
 
SetWindowPos hWnd_x, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE
Sleep 50
 
If Win_TPM = 0 Then SetWindowPos hWnd_x, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
 
 
'''
 
Sleep 100
 
If SW = 1 And lpPrevWndProc <= 0 And GetForegroundWindow = hWnd_x And GetActiveWindow = hWnd_x Then
 
GetCursorPos coord_old
 
 WindowGetCoord hWnd_x, coord_x, coord_y, 0, 0
 
coord_x = coord_x + 30
coord_y = coord_y + 15
 
 SetCursorPos coord_x, coord_y
 
'Sleep 50
 
 mouse_event MOUSEEVENTF_LEFTDOWN, coord_x, coord_y, 0, 0
 mouse_event MOUSEEVENTF_LEFTUP, coord_x, coord_y, 0, 0
'''Sleep 50
' mouse_event MOUSEEVENTF_LEFTDOWN, coord_x, coord_y, 0, 0
' mouse_event MOUSEEVENTF_LEFTUP, coord_x, coord_y, 0, 0
 SetCursorPos coord_old.x, coord_old.y
 
End If
 
 
 
 
End Sub

Dragokas · 19.06.2020, 23:55

А что у тебя за приложение в роли кролика, какое-то классическое? На других пробовал? И что за ОС?

@Saliery · 20.06.2020, 12:14 **[ТС]**

Dragokas, разные приложения: своё приложение (сам себя показываю, когда надо), AkelPad, своё другое приложение, особо не пробовал, если свои приложения не открывались и стандартный AkelPad. Windows 7 x64.

@HackerVlad · 17.04.2023, 16:17

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

хак в Висте вырубили с помощью AttachThreadInput

в висте не проверял, но в семёрке у меня работает просто отлично. ещё могу сказать что этот способ не всегда активизирует окно, в windows 9x, и я думаю в некоторых других версиях винды, если фокус программы находится на DOS-окне то перехват не сработает уже, потом там есть ещё какие-то ограничения, если открыто активное контекстное меню, начиная с win2000 то тоже фокус может не переводиться

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

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

нашёл какой-то пример

Я этот код придумал ещё в 2005 году, у меня ещё Интернета тогда даже небыло кстати... Сам придумал код, копаясь в API вьювере... Вот:

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
Option Explicit
Option Compare Text
'//////////////////////////////////////////////////
'// Модуль активизации своего окна               //
'// Copyright (c) 06.11.2005 by Владислав Пешков //
'// e-mail: vladpeshkov@yandex.ru                //
'// Версия 1.0                                   //
'//////////////////////////////////////////////////
 
' Декларации API...
Private Declare Function AttachThreadInput Lib "user32" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
' Активизация своего окна
Public Sub ActivateForm(frm As Form)
    '********************************************************
    '* Внимание!!! Данная функция не применима,             *
    '* если текущее активное окно является DOS-приложением! *
    '********************************************************
    
    Dim pID As Long
    Dim destid As Long
    
    If GetForegroundWindow = frm.hwnd Then Exit Sub
    
    destid = GetWindowThreadProcessId(GetForegroundWindow, pID)
    AttachThreadInput GetCurrentThreadId, destid, True
    frm.SetFocus
    AttachThreadInput GetCurrentThreadId, destid, False
End Sub

Добавлено через 2 минуты
В десятке кстати тоже работает. Насчёт Висты я не проверял, но скорее всего трындёж

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	11.06.2020, 22:16
	Нужно дождаться пока процесс инициализируется. Как минимум нужно вызвать функцию WaitForInputIdle. Затем разрешить установку окна переднего плана AllowSetForegroundWindow. Потом сканировать все окна верхнего уровня процесса и установить первому окну SetForegroundWindow. 3

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	14.06.2020, 20:32
	AttachThreadInput + SetActiveWindow. Вроде так. 2

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	19.06.2020, 23:55
	А что у тебя за приложение в роли кролика, какое-то классическое? На других пробовал? И что за ОС? 1

@Saliery 9 / 9 / 4 Регистрация: 27.01.2013 Сообщений: 451
	20.06.2020, 12:14 [ТС]
	Dragokas, разные приложения: своё приложение (сам себя показываю, когда надо), AkelPad, своё другое приложение, особо не пробовал, если свои приложения не открывались и стандартный AkelPad. Windows 7 x64. 0