Закрытие всплывающих уведомлений в трее через 3 секунды.

#include <WinAPI.au3>
#include <ToolTipConstants.au3>
#include <Constants.au3>

Global $hTray = WinGetHandle('[CLASS:Shell_TrayWnd]')
HotKeySet('{Esc}', '_Exit');Esc - выход
AdlibRegister('_FindTrayTip', 1000)

While Sleep(250)
WEnd

Func _FindTrayTip()
	Local $a_List, $i_Style

	$a_List = WinList('[CLASS:tooltips_class32]')
	For $i = 1 To $a_List[0][0]
		If (BitAND(WinGetState($a_List[$i][1]), 2)) And (_WinAPI_GetParent($a_List[$i][1]) = $hTray) Then
			$i_Style = _WinAPI_GetWindowLong($a_List[$i][1], $GWL_STYLE)
			If BitAND($i_Style, $TTS_CLOSE) Then
				FileWrite(@ScriptDir & '\TrayTip.txt', WinGetTitle($a_List[$i][1]) & @CRLF & @CRLF)
			EndIf
		EndIf
	Next
EndFunc   ;==>_FindTrayTip

Func _Exit()
	Exit
EndFunc   ;==>_Exit

#NoTrayIcon

#include <GUIToolTip.au3>
#include <WinAPI.au3>
#include <Constants.au3>

Global $hTray, $hTrayTip, $iTimer = 3000

$hTray = WinGetHandle('[CLASS:Shell_TrayWnd]')
HotKeySet('{Esc}', '_Exit');Esc - выход
AdlibRegister('_FindTrayTip', 500)

While Sleep(250)
WEnd

Func _FindTrayTip()
	Local $a_List = WinList('[CLASS:tooltips_class32]')
	For $i = 1 To $a_List[0][0]
		If Not BitAND(WinGetState($a_List[$i][1]), 2) Then ContinueLoop
		If _WinAPI_GetParent($a_List[$i][1]) <> $hTray Then ContinueLoop
		If Not BitAND(_WinAPI_GetWindowLong($a_List[$i][1], $GWL_STYLE), $TTS_CLOSE) Then ContinueLoop
		If Not StringRegExp(WinGetTitle($a_List[$i][1]), '^(Теперь устройство|Сетевой|Скорость:)') Then ContinueLoop
		$hTrayTip = $a_List[$i][1]
		AdlibUnRegister('_FindTrayTip')
		AdlibRegister('_HideTrayTip', $iTimer)
		Return
	Next
EndFunc   ;==>_FindTrayTip

Func _HideTrayTip()
	If (BitAND(WinGetState($hTrayTip), 2)) Then
		_GUIToolTip_TrackActivate($hTrayTip, 0)
		$hTrayTip = 0
	EndIf
	AdlibUnRegister('_HideTrayTip')
	AdlibRegister('_FindTrayTip', 500)
EndFunc   ;==>_HideTrayTip

Func _Exit()
	Exit
EndFunc   ;==>_Exit