Что нового

Индикатор запущенного окна в GUI

nu3dell

Осваивающий
Сообщения
139
Репутация
24
Как возможно реализовать что бы горела в GUI если нужное окно не запущенно то Приложение не запущенно, а если нужно окно запущенно то в GUI была такая Приложение запущенно .
P.S нужно что бы определялось сразу при запуске скрипта, и индикатор сразу показывал запущенно или нет
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Код:
$Gui = GUICreate("My Gui", 500,500)
$Label = GUICtrlCreateLabel("",20,20, 200,40)
GUISetState()

AdlibRegister("WinExt")

Global $sWin = "Безымянный - Блокнот"
While GUIGetMsg()<> -3
	Sleep(10)
WEnd

 Func WinExt ()
	 If WinExists($sWin) Then
		GUICtrlSetData ( $Label, "• Приложение запущенно" )
		GUICtrlSetColor($Label,0x408E4D)
	Else
		GUICtrlSetData ( $Label, "• Приложение не запущенно" )
		GUICtrlSetColor($Label,0xCA4847)
	EndIf
 EndFunc
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
nu3dell
Можно так попробовать:
Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Global $sTitle = '[Class:Notepad]', $fWinOld, $fWinNew
GUICreate('Test', 300, 75, 10, 10)
$nLabel = GUICtrlCreateLabel('', 10, 25, 280, 25, $SS_CENTER)
GUICtrlSetFont(-1, 12, 600, 1, 'Comic Sans MS')
GUISetState()
$fWinOld = Not $fWinNew
While 1
	If WinExists($sTitle) Then
		$fWinNew = True
	Else
		$fWinNew = False
	EndIf
	If $fWinOld <> $fWinNew Then
		$fWinOld = $fWinNew
		If $fWinOld Then
			GUICtrlSetColor($nLabel, 0x7FFF00)
			GUICtrlSetData($nLabel, Chr(149) & ' Приложение запущенно')
		Else
			GUICtrlSetColor($nLabel, 0xFF0000)
			GUICtrlSetData($nLabel, Chr(149) & ' Приложение не запущенно')
		EndIf
	EndIf
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Мой вариант:

Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Global $sWin = "[REGEXPCLASS:.*Notepad.*]"
Global $iFlag = Number(WinExists($sWin) = 0)

$hGUI = GUICreate("Win Indicator", 300, 60)

$Label = GUICtrlCreateLabel("", 0, 0, 300, 60, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 12, 800)

GUISetState()

AdlibRegister("_CheckWin")

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func _CheckWin()
	If $iFlag = 0 And WinExists($sWin) Then
		$iFlag = 1
		GUICtrlSetData($Label, " Приложение запущенно")
		GUICtrlSetColor($Label, 0x408E4D)
	ElseIf $iFlag = 1 And Not WinExists($sWin) Then
		$iFlag = 0
		GUICtrlSetData($Label, " Приложение не запущенно")
		GUICtrlSetColor($Label, 0xCA4847)
	EndIf
EndFunc
 
Автор
nu3dell

nu3dell

Осваивающий
Сообщения
139
Репутация
24
Спасибо всем, разобрался....

А теперь еще вопросик на засыпку...

Вот сделать тоже самое только с картинкой тип такого
и


Только что бы было FileInstall() или что то вроде такого, одним словом что бы на любом компе отображалась картинка
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Код:
#include <GUIConstantsEx.au3>

FileInstall("On.jpg", @TempDir & "\On.jpg")
FileInstall("Off.jpg", @TempDir & "\Off.jpg")

Global $sWin = "[REGEXPCLASS:.*Notepad.*]"
Global $iFlag = Number(WinExists($sWin) = 0)

Global $sOn_Image = @TempDir & "\On.jpg"
Global $sOff_Image = @TempDir & "\Off.jpg"

$hGUI = GUICreate("Win Indicator", 300, 60)

$nPic = GUICtrlCreatePic("", 30, 24, 12, 11)
$nLabel = GUICtrlCreateLabel("", 50, 20, 240, 60)
GUICtrlSetFont(-1, 12, 800)

GUISetState()
AdlibRegister("_CheckWin")

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func _CheckWin()
	If $iFlag = 0 And WinExists($sWin) Then
		$iFlag = 1
		GUICtrlSetImage($nPic, $sOn_Image)
		GUICtrlSetData($nLabel, "Приложение запущенно")
		GUICtrlSetColor($nLabel, 0x408E4D)
	ElseIf $iFlag = 1 And Not WinExists($sWin) Then
		$iFlag = 0
		GUICtrlSetImage($nPic, $sOff_Image)
		GUICtrlSetData($nLabel, "Приложение не запущенно")
		GUICtrlSetColor($nLabel, 0xCA4847)
	EndIf
EndFunc


On.jpg и Off.jpg должны находиться в папке со скриптом во время компиляций.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
nu3dell
Мой вариант с gif-анимацией:
Код:
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GIFAnimation.au3>;trancexx, http://www.autoitscript.com/forum/topic/96132-gif-animation/
#include <WinAPIEx.au3>;Yashied, http://autoit-script.ru/index.php/topic,47.0.html

Opt('MustDeclareVars', 1)
Opt('TrayMenuMode', 1)

HotKeySet('^{F7}', '_Exit')
TraySetToolTip('Ctrl + F7 - выход')

Global $sTitle = '[Class:Notepad]', $fWinOld, $fWinNew, $aGIFDimension, $hGui, $hGIF_Green, $hGIF_Red

$aGIFDimension = _GIF_GetDimension(_GIF_Green())
$hGui = GUICreate('WinExist', $aGIFDimension[0], $aGIFDimension[1], 10, 10, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$hGIF_Green = _GUICtrlCreateGIF(_GIF_Green(), '', 0, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
$hGIF_Red = _GUICtrlCreateGIF(_GIF_Red(), '', 0, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
GUIRegisterMsg($WM_NCHITTEST, 'WM_NCHITTEST')
GUISetBkColor(0xFFFFFF)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xFFFFFF, 255)
_WinAPI_SetParent($hGui, 0)
GUISetState()
_WinAPI_EmptyWorkingSet()
$fWinOld = Not $fWinNew
While 1
	If WinExists($sTitle) Then
		$fWinNew = True
	Else
		$fWinNew = False
	EndIf
	If $fWinOld <> $fWinNew Then
		$fWinOld = $fWinNew
		_WinAPI_MessageBeep(3)
		If $fWinOld Then
			GUICtrlSetState($hGIF_Red, $GUI_HIDE)
			GUICtrlSetState($hGIF_Green, $GUI_SHOW)
		Else
			GUICtrlSetState($hGIF_Green, $GUI_HIDE)
			GUICtrlSetState($hGIF_Red, $GUI_SHOW)
		EndIf
	EndIf
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func WM_NCHITTEST($hWnd, $Msg, $wParam, $lParam)
	Local $iProc = DllCall('user32.dll', 'int', 'DefWindowProc', 'hwnd', $hWnd, 'int', _
			$Msg, 'wparam', $wParam, 'lparam', $lParam)
	If $iProc[0] = $HTCLIENT Then Return $HTCAPTION
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NCHITTEST

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func _GIF_Green()
	Local $b_Image = '0x'
	$b_Image &= '47494638396120002000F30000FFFFFF00FF0000FF0082FE8272FE72A8FEA8BC'
	$b_Image &= 'FEBCCEFECEDEFEDE94FE94E8FEE868FE6800000000000000000000000021FF0B'
	$b_Image &= '4E45545343415045322E30030100000021FE1D4275696C742077697468204749'
	$b_Image &= '46204D6F766965204765617220342E300021FE1A437265617465642077697468'
	$b_Image &= '20616A61786C6F61642E696E666F0021F904090A0000002C0000000020002000'
	$b_Image &= '00047010C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBEC34010456118C7'
	$b_Image &= '8120201ACFB55B6ED73BFD68369C8EF7F1C990C265D1740C2A894DE3D33A647A'
	$b_Image &= '9CC064771AA88AA559EAF68CFD6AC3D176070CBD7AE7EFFA385D5EC7EF1C745C'
	$b_Image &= '686E2F86878888248B8C8D8E8F909192931B110021F904090A0000002C000000'
	$b_Image &= '002000200000047010C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBE4591'
	$b_Image &= '24C34010C78120201ACFB55B6ED73BFD68369C8EF7F1C990C265D1740C2A894D'
	$b_Image &= 'E3D33A647A9CC064771AA88AA559EAF68CFD6AC3D176070CBD7AE7EFFA385D5E'
	$b_Image &= 'C7EF1C745C686E2F86878888248B8C8D8E8F909192931B110021F904090A0000'
	$b_Image &= '002C000000002000200000047010C849ABBD38EBCDBBFF60288E52609E68AAAE'
	$b_Image &= '6CEBBEC76118459124C34010201ACFB55B6ED73BFD68369C8EF7F1C990C265D1'
	$b_Image &= '740C2A894DE3D33A647A9CC064771AA88AA559EAF68CFD6AC3D176070CBD7AE7'
	$b_Image &= 'EFFA385D5EC7EF1C745C686E2F86878888248B8C8D8E8F909192931B110021F9'
	$b_Image &= '04090A0000002C000000002000200000048310C849ABBD38EBCDBBFF60288E52'
	$b_Image &= '609E68AAAE6CEBBE8A8220C76118459124C340101C546C56BBE576BD5FF034A4'
	$b_Image &= 'D9703A9E0FB811CA9CC66892AAB1129F47A9B2CABC16A1C8E9D2D43C87B7EB40'
	$b_Image &= '1BAC5593D9667A7ADC2D7FB37B5C195E5868628218846E757C837E856F767D78'
	$b_Image &= '7F8670772F999A9B9A249E9FA0A1A2A3A4A5A61B110021F904090A0000002C00'
	$b_Image &= '0000002000200000048E10C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBE'
	$b_Image &= '94A220C87118465124C93010040C2A36ABDD72BBDE2F78194E64341B4EC7F301'
	$b_Image &= '852762F448555E9BD967518AAC2EB126AD719AB4322D4E09745DF6BE2B71C09C'
	$b_Image &= 'DC75A3036A7C6D676069625B6C665F706172635C838B788D7A8F89767F81908A'
	$b_Image &= '7714797B9B98852FA4A5A6A524A9AAABACADAEAFB0B11B110021F904090A0000'
	$b_Image &= '002C000000002000200000049010C849ABBD38EBCDBBFF60288E52609E68AAAE'
	$b_Image &= '6CEBBE98A220C87118465124C93010040A2A36ABDD72BBDE2F38195E64341B4E'
	$b_Image &= 'C7F301852762F448555E9BD967518AAC2EB126AD719AB4324B610B745DF6BE01'
	$b_Image &= '4EF998DB3E83D3625B6C665F70807A82756E68016A645D8B7F8D8174907E8693'
	$b_Image &= '88957D85787115738F9C772FA5A6A7A89924ABACADAEAFB0B1B2B318110021F9'
	$b_Image &= '04090A0000002C000000002000200000048310C849ABBD38EBCDBBFF60288E52'
	$b_Image &= '609E68AAAE6CEBBE9CA220C87118465124C9301004546C56BBE576BD5FF034A4'
	$b_Image &= 'D9703A9E0F28DCC89CC66892CAB4129F47A9B2AAB916A1C8E9D2D43C87B7EB40'
	$b_Image &= '1BAC559333667A7ADC2D7FB37B5C6C5E5868628272846E757C837E856F767D78'
	$b_Image &= '7F86702F98999A9B89249E9FA0A1A2A3A4A5A619110021F904090A0000002C00'
	$b_Image &= '0000002000200000046F10C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBE'
	$b_Image &= 'A0A220C87118C6B210041ACFB55B6ED73BFD68369C8EE7FBC890C265D1740C2A'
	$b_Image &= '894DCFD33A641A9DC064771AA88AA5D9CEF68CFD6AC3D136150CBD7AE7EFFA38'
	$b_Image &= 'CD59C7EF65745C682F85868788248A8B8C8D8E8F9091921B110021F904090A00'
	$b_Image &= '00002C000000002000200000045C10C849ABBD38EBCDBBFF60288E52609E68AA'
	$b_Image &= 'AE6CEBBEE4B210C43024091ACFF59D9F3B9A0DA71BC984BEA2E8D823028DBCE1'
	$b_Image &= 'CF146C4E0355A932C4D43E97D1E4971B7652A14833166DDD82BAE2977C4EA793'
	$b_Image &= 'EEF8BC7ECFEFFBFF1B110021F904090A0000002C000000002000200000046F10'
	$b_Image &= 'C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBEE0B210C43024495118061A'
	$b_Image &= 'CFB55B6ED73BFD68369C8EE7FBC890C265D1740C2A894DCFD33A641A9DC06477'
	$b_Image &= '1AA88AA5D9CEF68CFD6AC3D136150CBD7AE7EFFA38CD59C7EF65745C682F8586'
	$b_Image &= '8788248A8B8C8D8E8F9091921B110021F904090A0000002C0000000020002000'
	$b_Image &= '00048310C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBEDCB210C4302449'
	$b_Image &= '5118C6712008546C56BBE576BD5FF034A4D9703A9E0F28DCC89CC66892CAB412'
	$b_Image &= '9F47A9B2AAB916A1C8E9D2D43C87B7EB401BAC559333667A7ADC2D7FB37B5C6C'
	$b_Image &= '5E5868628272846E757C837E856F767D787F86702F98999A9B89249E9FA0A1A2'
	$b_Image &= 'A3A4A5A619110021F904090A0000002C000000002000200000049010C849ABBD'
	$b_Image &= '38EBCDBBFF60288E52609E68AAAE6CEBBED8B210C43024495118C67120080A2A'
	$b_Image &= '36ABDD72BBDE2F38195E64341B4EC7F301852762F448555E9BD967518AAC2EB1'
	$b_Image &= '26AD719AB4324B610B745DF6BE014EF998DB3E83D3625B6C665F70807A82756E'
	$b_Image &= '68016A645D8B7F8D8174907E869388957D85787115738F9C772FA5A6A7A89924'
	$b_Image &= 'ABACADAEAFB0B1B2B318110021F904090A0000002C000000002000200000048E'
	$b_Image &= '10C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBED4B210C43024495118C6'
	$b_Image &= '7120080C2A36ABDD72BBDE2F78194E64341B4EC7F301852762F448555E9BD967'
	$b_Image &= '518AAC2EB126AD719AB4322D4E09745DF6BE2B71C09CDC75A3036A7C6D676069'
	$b_Image &= '625B6C665F706172635C838B788D7A8F89767F81908A7714797B9B98852FA4A5'
	$b_Image &= 'A6A524A9AAABACADAEAFB0B11B110021F904090A0000002C0000000020002000'
	$b_Image &= '00048310C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBECB4210C3902445'
	$b_Image &= '6118C781201C546C56BBE576BD5FF034A4D9703A9E0FB811CA9CC66892AAB112'
	$b_Image &= '9F47A9B2CABC16A1C8E9D2D43C87B7EB401BAC5593D9667A7ADC2D7FB37B5C19'
	$b_Image &= '5E5868628218846E757C837E856F767D787F8670772F999A9B9A249E9FA0A1A2'
	$b_Image &= 'A3A4A5A61B11003B'
	Return Binary($b_Image)
EndFunc   ;==>_GIF_Green

Func _GIF_Red()
	Local $b_Image = '0x'
	$b_Image &= '47494638396120002000F30000FFFFFFFF0000FF0000FE8282FE7272FEA8A8FE'
	$b_Image &= 'BCBCFECECEFEDEDEFE9494FEE8E8FE686800000000000000000000000021FF0B'
	$b_Image &= '4E45545343415045322E30030100000021FE1D4275696C742077697468204749'
	$b_Image &= '46204D6F766965204765617220342E300021FE1A437265617465642077697468'
	$b_Image &= '20616A61786C6F61642E696E666F0021F904090A0000002C0000000020002000'
	$b_Image &= '00047010C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBEC34010456118C7'
	$b_Image &= '8120201ACFB55B6ED73BFD68369C8EF7F1C990C265D1740C2A894DE3D33A647A'
	$b_Image &= '9CC064771AA88AA559EAF68CFD6AC3D176070CBD7AE7EFFA385D5EC7EF1C745C'
	$b_Image &= '686E2F86878888248B8C8D8E8F909192931B110021F904090A0000002C000000'
	$b_Image &= '002000200000047010C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBE4591'
	$b_Image &= '24C34010C78120201ACFB55B6ED73BFD68369C8EF7F1C990C265D1740C2A894D'
	$b_Image &= 'E3D33A647A9CC064771AA88AA559EAF68CFD6AC3D176070CBD7AE7EFFA385D5E'
	$b_Image &= 'C7EF1C745C686E2F86878888248B8C8D8E8F909192931B110021F904090A0000'
	$b_Image &= '002C000000002000200000047010C849ABBD38EBCDBBFF60288E52609E68AAAE'
	$b_Image &= '6CEBBEC76118459124C34010201ACFB55B6ED73BFD68369C8EF7F1C990C265D1'
	$b_Image &= '740C2A894DE3D33A647A9CC064771AA88AA559EAF68CFD6AC3D176070CBD7AE7'
	$b_Image &= 'EFFA385D5EC7EF1C745C686E2F86878888248B8C8D8E8F909192931B110021F9'
	$b_Image &= '04090A0000002C000000002000200000048310C849ABBD38EBCDBBFF60288E52'
	$b_Image &= '609E68AAAE6CEBBE8A8220C76118459124C340101C546C56BBE576BD5FF034A4'
	$b_Image &= 'D9703A9E0FB811CA9CC66892AAB1129F47A9B2CABC16A1C8E9D2D43C87B7EB40'
	$b_Image &= '1BAC5593D9667A7ADC2D7FB37B5C195E5868628218846E757C837E856F767D78'
	$b_Image &= '7F8670772F999A9B9A249E9FA0A1A2A3A4A5A61B110021F904090A0000002C00'
	$b_Image &= '0000002000200000048E10C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBE'
	$b_Image &= '94A220C87118465124C93010040C2A36ABDD72BBDE2F78194E64341B4EC7F301'
	$b_Image &= '852762F448555E9BD967518AAC2EB126AD719AB4322D4E09745DF6BE2B71C09C'
	$b_Image &= 'DC75A3036A7C6D676069625B6C665F706172635C838B788D7A8F89767F81908A'
	$b_Image &= '7714797B9B98852FA4A5A6A524A9AAABACADAEAFB0B11B110021F904090A0000'
	$b_Image &= '002C000000002000200000049010C849ABBD38EBCDBBFF60288E52609E68AAAE'
	$b_Image &= '6CEBBE98A220C87118465124C93010040A2A36ABDD72BBDE2F38195E64341B4E'
	$b_Image &= 'C7F301852762F448555E9BD967518AAC2EB126AD719AB4324B610B745DF6BE01'
	$b_Image &= '4EF998DB3E83D3625B6C665F70807A82756E68016A645D8B7F8D8174907E8693'
	$b_Image &= '88957D85787115738F9C772FA5A6A7A89924ABACADAEAFB0B1B2B318110021F9'
	$b_Image &= '04090A0000002C000000002000200000048310C849ABBD38EBCDBBFF60288E52'
	$b_Image &= '609E68AAAE6CEBBE9CA220C87118465124C9301004546C56BBE576BD5FF034A4'
	$b_Image &= 'D9703A9E0F28DCC89CC66892CAB4129F47A9B2AAB916A1C8E9D2D43C87B7EB40'
	$b_Image &= '1BAC559333667A7ADC2D7FB37B5C6C5E5868628272846E757C837E856F767D78'
	$b_Image &= '7F86702F98999A9B89249E9FA0A1A2A3A4A5A619110021F904090A0000002C00'
	$b_Image &= '0000002000200000046F10C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBE'
	$b_Image &= 'A0A220C87118C6B210041ACFB55B6ED73BFD68369C8EE7FBC890C265D1740C2A'
	$b_Image &= '894DCFD33A641A9DC064771AA88AA5D9CEF68CFD6AC3D136150CBD7AE7EFFA38'
	$b_Image &= 'CD59C7EF65745C682F85868788248A8B8C8D8E8F9091921B110021F904090A00'
	$b_Image &= '00002C000000002000200000045C10C849ABBD38EBCDBBFF60288E52609E68AA'
	$b_Image &= 'AE6CEBBEE4B210C43024091ACFF59D9F3B9A0DA71BC984BEA2E8D823028DBCE1'
	$b_Image &= 'CF146C4E0355A932C4D43E97D1E4971B7652A14833166DDD82BAE2977C4EA793'
	$b_Image &= 'EEF8BC7ECFEFFBFF1B110021F904090A0000002C000000002000200000046F10'
	$b_Image &= 'C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBEE0B210C43024495118061A'
	$b_Image &= 'CFB55B6ED73BFD68369C8EE7FBC890C265D1740C2A894DCFD33A641A9DC06477'
	$b_Image &= '1AA88AA5D9CEF68CFD6AC3D136150CBD7AE7EFFA38CD59C7EF65745C682F8586'
	$b_Image &= '8788248A8B8C8D8E8F9091921B110021F904090A0000002C0000000020002000'
	$b_Image &= '00048310C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBEDCB210C4302449'
	$b_Image &= '5118C6712008546C56BBE576BD5FF034A4D9703A9E0F28DCC89CC66892CAB412'
	$b_Image &= '9F47A9B2AAB916A1C8E9D2D43C87B7EB401BAC559333667A7ADC2D7FB37B5C6C'
	$b_Image &= '5E5868628272846E757C837E856F767D787F86702F98999A9B89249E9FA0A1A2'
	$b_Image &= 'A3A4A5A619110021F904090A0000002C000000002000200000049010C849ABBD'
	$b_Image &= '38EBCDBBFF60288E52609E68AAAE6CEBBED8B210C43024495118C67120080A2A'
	$b_Image &= '36ABDD72BBDE2F38195E64341B4EC7F301852762F448555E9BD967518AAC2EB1'
	$b_Image &= '26AD719AB4324B610B745DF6BE014EF998DB3E83D3625B6C665F70807A82756E'
	$b_Image &= '68016A645D8B7F8D8174907E869388957D85787115738F9C772FA5A6A7A89924'
	$b_Image &= 'ABACADAEAFB0B1B2B318110021F904090A0000002C000000002000200000048E'
	$b_Image &= '10C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBED4B210C43024495118C6'
	$b_Image &= '7120080C2A36ABDD72BBDE2F78194E64341B4EC7F301852762F448555E9BD967'
	$b_Image &= '518AAC2EB126AD719AB4322D4E09745DF6BE2B71C09CDC75A3036A7C6D676069'
	$b_Image &= '625B6C665F706172635C838B788D7A8F89767F81908A7714797B9B98852FA4A5'
	$b_Image &= 'A6A524A9AAABACADAEAFB0B11B110021F904090A0000002C0000000020002000'
	$b_Image &= '00048310C849ABBD38EBCDBBFF60288E52609E68AAAE6CEBBECB4210C3902445'
	$b_Image &= '6118C781201C546C56BBE576BD5FF034A4D9703A9E0FB811CA9CC66892AAB112'
	$b_Image &= '9F47A9B2CABC16A1C8E9D2D43C87B7EB401BAC5593D9667A7ADC2D7FB37B5C19'
	$b_Image &= '5E5868628218846E757C837E856F767D787F8670772F999A9B9A249E9FA0A1A2'
	$b_Image &= 'A3A4A5A61B11003B'
	Return Binary($b_Image)
EndFunc   ;==>_GIF_Red
 
Верх