Что нового

Отлов и закрытие окна

alex33

Скриптер
Сообщения
1 451
Репутация
180
Здравствуйте. Есть вот такое окно
Код:
>>>> Window <<<<
Title:	
Class:	WindowsForms10.Window.8.app.0.3ce0bb8_r11_ad1
Position:	0, 0
Size:	1366, 768
Style:	0x17010000
ExStyle:	0x000D0008
Handle:	0x00100754

>>>> Control <<<<
Class:	WindowsForms10.Window.8.app.0.3ce0bb8_r11_ad1
Instance:	3
ClassnameNN:	WindowsForms10.Window.8.app.0.3ce0bb8_r11_ad13
Name:	pbContent
Advanced (Class):	[NAME:pbContent]
ID:	3344348
Text:	
Position:	0, 0
Size:	1366, 722
ControlClick Coords:	676, 384
Style:	0x56000000
ExStyle:	0x00000000
Handle:	0x003307DC

>>>> Mouse <<<<
Position:	676, 384
Cursor ID:	0
Color:	0x24931A

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<


>>>> Hidden Text <<<<
И мне надо чтобы когда оно появится, отловить его и через 15 секунд закрыть.
Потом через какое-то время оно опять появится, опять сделать тоже самое (закрыть через 15 секунд).
Как это лучше сделать?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 318
alex33 [?]
Как это лучше сделать?
Можно, например, так.
Код:
Global $iTime = 15000, $hWnd

HotKeySet('{Esc}', '_Exit')
AdlibRegister('_WinExist', 500)

While Sleep(1000)
WEnd

Func _WinExist()
	$hWnd = WinGetHandle('[Title:Info; Class:#32770]');здесь измените на свои значения
	If Not $hWnd Then Return
	AdlibUnRegister('_WinExist')
	AdlibRegister('_WinClose', $iTime)
EndFunc

Func _WinClose()
	If WinExists($hWnd) Then WinClose($hWnd)
	AdlibUnRegister('_WinClose')
	AdlibRegister('_WinExist', 500)
EndFunc

Func _Exit()
	AdlibUnRegister()
	Exit
EndFunc
 
Верх