Что нового

Индикатор запущенного окна в 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,320
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,665
Репутация
2,463
Мой вариант:

Код:
#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
Спасибо всем, разобрался....

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

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


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

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,665
Репутация
2,463
Код:
#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,320
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
 
Верх