#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=E:\Downloads\Star.ico
#AutoIt3Wrapper_outfile=Master.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_LegalCopyright=NuDann
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#include <WinHTTP.au3>
#include <Date.au3>
#include <Array.au3>
#include <gdiplus.au3>
#include <memory.au3>

Opt("MustDeclareVars", 1)

Opt("GUIOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
Opt("MouseCoordMode", 0)
AdlibRegister("AdlibTest", 1000)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "SpecialEvent")
TraySetOnEvent($TRAY_EVENT_SECONDARYUP, "SpecialEvent")
TraySetState()
Global $show = True
Global $test = ""
Global $pos
Global $MousePos = True
Global $start = ""
Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")
Global $nArray[10][2]
Global $n = 0
Global $temp

Global Const $tagWINHTTP_PROXY_INFO = "DWORD  dwAccessType;ptr lpszProxy;ptr lpszProxyBypass;"

Global $hInternet = _WinHttpOpen()
;~ $tProxyInfo = _WinHttpProxyInfoCreate($WINHTTP_ACCESS_TYPE_NAMED_PROXY, "proxy.marksys.de:80", "localhost")
;~ _WinHttpSetOption($hInternet, $WINHTTP_OPTION_PROXY, $tProxyInfo[0])

Global $hConnect = _WinHttpConnect($hInternet, "0.0.0.0")
Global $string = _WinHttpSimpleRequest($hConnect, "GET", "/chat.php?sec=XXX")
$string = StringTrimLeft($string, 2)
Global $array = StringSplit($string, ";")

Global $aArray[10][2]
Global $step = 0
For $i = 1 To $array[0] - 1 Step 2
	$aArray[$step][0] = $array[$i]
	$aArray[$step][1] = $array[$i + 1]
	$step = $step + 1
Next

#region ### START Koda GUI section ### Form=
Global $Popup = GUICreate("New Message!", 414, 389, -1, -1)
Global $Pic1 = GUICtrlCreatePic("", 8, 8, 400, 168)
Global $Group1 = GUICtrlCreateGroup("", 8, 176, 401, 181)
Global $Pic2 = GUICtrlCreatePic("", 18, 190, 124, 160)
Global $Group2 = GUICtrlCreateGroup("", 148, 176, 261, 181)
Global $MessageEdit = GUICtrlCreateEdit("", 156, 188, 245, 161, BitOR($ES_READONLY, $WS_VSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button5 = GUICtrlCreateButton("(Click here to see the last Messages)", 116, 360, 183, 25)
GUICtrlSetOnEvent(-1, "MainFuncs")
GUISetOnEvent($GUI_EVENT_CLOSE, "MainFuncs")
#endregion ### END Koda GUI section ###
_GDIPlus_Startup()

Global Const $STM_SETIMAGE = 0x0172
Global Const $Logo = Load_BMP_From_Mem(_Logo(), True)
Global Const $Pic = Load_BMP_From_Mem(_Pic(), True)
_WinAPI_DeleteObject(GUICtrlSendMsg($Pic1, $STM_SETIMAGE, $IMAGE_BITMAP, $Logo))
_WinAPI_DeleteObject(GUICtrlSendMsg($Pic2, $STM_SETIMAGE, $IMAGE_BITMAP, $Pic))

Global $Form1 = GUICreate("Send Message", 260, 124, -1, -1, $WS_SYSMENU, $WS_EX_TOOLWINDOW)
Global $Edit1 = GUICtrlCreateEdit("", 5, 5, 176, 90, $WS_VSCROLL)
Global $Button1 = GUICtrlCreateButton("Send Msg!", 185, 10, 66, 26)
GUICtrlSetOnEvent(-1, "MainFuncs")
Global $Label1 = GUICtrlCreateLabel("400 / 400", 192, 56, 51, 17)
GUISetOnEvent($GUI_EVENT_CLOSE, "MainFuncs")
GUISetState(@SW_HIDE)

Global $Form2 = GUICreate("Last Messages", 206, 240, @DesktopWidth - 210, @DesktopHeight - 310, $WS_SYSMENU, $WS_EX_TOOLWINDOW)
Global $List2 = GUICtrlCreateList("", 0, 0, 201, 188, BitOR($WS_BORDER, $WS_VSCROLL, $LBS_EXTENDEDSEL))
Global $Button2 = GUICtrlCreateButton("Send something!", 0, 190, 100, 25)
GUICtrlSetOnEvent(-1, "MainFuncs")
Global $Button3 = GUICtrlCreateButton("Exit", 100, 190, 100, 25)
GUICtrlSetOnEvent(-1, "MainFuncs")
GUISetOnEvent($GUI_EVENT_CLOSE, "MainFuncs")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown')
GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')
GUISetState(@SW_SHOW)

_GUICtrlListBox_BeginUpdate($List2)
For $i = 0 To UBound($aArray) - 1
	_GUICtrlListBox_AddString($List2, $aArray[$i][1])
Next
_GUICtrlListBox_EndUpdate($List2)




While 1
	Sleep(50)
	Global $entered = GUICtrlRead($Edit1)
	If $entered <> "" And GUICtrlRead($Edit1) <> $temp Then
		$temp = GUICtrlRead($Edit1)
		Global $length = StringLen($temp)
		GUICtrlSetData($Label1, 400 - $length & " / 400")
		If ($length > 400) Then
			GUICtrlSetData($Edit1, StringTrimRight($temp, $length - 400))
		EndIf
	EndIf
WEnd

Func SpecialEvent()
	Select
		Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOUBLE
			If ($show) Then
				GUISetState(@SW_HIDE, $Form2)
				$show = False
			Else
				GUISetState(@SW_SHOW, $Form2)
				$show = True
			EndIf
		Case @TRAY_ID = $TRAY_EVENT_SECONDARYUP
			If MsgBox(33, "Close tool?", "Do you really want to close?") = 1 Then _Exit()
	EndSelect
EndFunc   ;==>SpecialEvent

Func MainFuncs()
	Switch @GUI_CtrlId
		Case $GUI_EVENT_CLOSE
			GUISetState(@SW_HIDE, @GUI_WinHandle)
		Case $Button3
			_Exit()
		Case $Button2
			GUISetState(@SW_SHOW, $Form1)
			WinActivate($Form1)
		Case $Button1
			_WinHttpSimpleRequest($hConnect, "POST", "/chat.php?sec=XXX&stat=write&msg=" & StringReplace(StringReplace(GUICtrlRead($Edit1), "&", ""), ";", ""))
		Case $Button5
			GUISetState(@SW_SHOW, $Form2)
			WinActivate($Form2)
	EndSwitch
EndFunc   ;==>MainFuncs

Func _Exit()
	_WinAPI_DeleteObject($Logo)
	_WinAPI_DeleteObject($Pic)
	_GDIPlus_Shutdown()
	GUIDelete($Popup)
	Exit
EndFunc   ;==>_Exit

Func AdlibTest()

	$string = _WinHttpSimpleRequest($hConnect, "GET", "/chat.php?sec=XXX")
	$string = StringTrimLeft($string, 2)
	Local $newarray = StringSplit($string, ";")
	Local $nArray[10][2]

	$step = 0
	For $i = 1 To $newarray[0] - 1 Step 2
		$nArray[$step][0] = $newarray[$i]
		$nArray[$step][1] = $newarray[$i + 1]
		$step = $step + 1
	Next

	For $i = 0 To UBound($nArray) - 1
		_ArraySearch($aArray, $nArray[$i][0])
		If @error Then
			TrayTip("New Message!", $nArray[$i][1], 5000)
			_GUICtrlListBox_BeginUpdate($List2)
			_GUICtrlListBox_InsertString($List2, $nArray[$i][1], 0)
			_GUICtrlListBox_EndUpdate($List2)
			GUICtrlSetData($MessageEdit, $nArray[$i][1])
			WinSetTitle($Popup,"","New Message!")
			GUISetState(@SW_SHOW, $Popup)
			WinActivate($Popup)
		EndIf
	Next

	$aArray = $nArray

EndFunc   ;==>AdlibTest

#region DoubleClick Check
Func _PRIMARYdown()
	$pos = MouseGetPos()
	Select
		Case _CheckCtrlDblClick($Form2, $List2)
			$test = _GUICtrlListBox_GetSelItemsText($List2)
			If ($test[0] > 0) Then
				GUICtrlSetData($MessageEdit, $test[1])
				WinSetTitle($Popup,"","Read Message")
				GUISetState(@SW_SHOW, $Popup)
			EndIf
		Case Else
			$MousePos = False
	EndSelect
EndFunc   ;==>_PRIMARYdown

Func _PRIMARYup()
	If $MousePos Then
		If $n = 2 Then
			$n = 0
		Else
			$start = TimerInit()
		EndIf
	EndIf
EndFunc   ;==>_PRIMARYup

Func _CheckCtrlDblClick($GUI, $CTRL)
	Local $CtrlPos = ControlGetPos($GUI, '', $CTRL)
	If ($pos[0] >= $CtrlPos[0] And $pos[0] <= $CtrlPos[0] + $CtrlPos[2]) And _
			($pos[1] >= $CtrlPos[1] + 20 And $pos[1] <= $CtrlPos[1] + 20 + $CtrlPos[3]) Then
		$n += 1
		$MousePos = True
		If $n = 2 And (TimerDiff($start) < $clickspeed) Then
			Return True
		Else
			$start = TimerInit()
			$n = 1
		EndIf
	EndIf
EndFunc   ;==>_CheckCtrlDblClick
#endregion DoubleClick Check (powered by autoit.de)

Func _WinHttpProxyInfoCreate($dwAccessType, $sProxy, $sProxyBypass)
	Local $tWINHTTP_PROXY_INFO[2] = [DllStructCreate($tagWINHTTP_PROXY_INFO), DllStructCreate('wchar proxychars[' & StringLen($sProxy) + 1 & ']; wchar proxybypasschars[' & StringLen($sProxyBypass) + 1 & ']')]
	DllStructSetData($tWINHTTP_PROXY_INFO[0], "dwAccessType", $dwAccessType)
	If StringLen($sProxy) Then DllStructSetData($tWINHTTP_PROXY_INFO[0], "lpszProxy", DllStructGetPtr($tWINHTTP_PROXY_INFO[1], 'proxychars'))
	If StringLen($sProxyBypass) Then DllStructSetData($tWINHTTP_PROXY_INFO[0], "lpszProxyBypass", DllStructGetPtr($tWINHTTP_PROXY_INFO[1], 'proxybypasschars'))
	DllStructSetData($tWINHTTP_PROXY_INFO[1], "proxychars", $sProxy)
	DllStructSetData($tWINHTTP_PROXY_INFO[1], "proxybypasschars", $sProxyBypass)
	Return $tWINHTTP_PROXY_INFO
EndFunc   ;==>_WinHttpProxyInfoCreate


;Code was generated by: File to Base64 String Code Generator

Func _Logo($bSaveBinary = False)
	Local $Logo
	$Logo &= 'cb4A/9j/4AAQSkYASUYAAQEBAGABABAA/+IMWElDAENfUFJPRklMAkUAYAAADEhMaQBubwIQAABtbgB0clJHQiBYWQBaIAfOAAIACQAABgAxAABhY4BzcE1TRlQAAADgSUVDIHMASAEWBwAI9tYAAJIAANMtMEhQICALNh4AEWOAcHJ0AAABUAALoDNkZXNjAAuEAAtQbHd0cAEX8AALFKRiawELAgQBC3IAoNUACxgBC2cDCywCIwMLwkABC2RtbmSABYFZUHBkbWSBBcSABYhIdnVlgAUDTIAFhlB2aWV3gAXUgAUkUGx1bWmABfiBHW2AZWFzAAAEDIELUHRlY2iABTCABQwQclRSQ4AFPAAAKAgMZ4gFYogFdGUCeIBTAABDb3B5AHJpZ2h0IChjACkgMTk5OCBIAGV3bGV0dC1QAGFja2FyZCBDAG9tcGFueQAAK4N5AgASga0gALI2McA5NjYtMi4AvwYATxoOJADBdkMC81HCbAEMFszHBNEJb6IAABQ49cBGkMcEYpkAgAC3hQAAGNrHBCAkoAAAD8Btts8FyDMWwYtodHRwOgAvL3d3dy5pZXxjLgFUBgAeCCAAyBsuA4EThkcgRGVmYXUIbHQgwU1jb2xvAHVyIHNwYWNlHCAtDbE2DtMhLFJloGZlcmVuQAxWQJkIaW5ngHtuZGl0wGlvbiBpbhVxtA0HDADDtQAAE6T+ABQAXy4AEM8UAAMA7cwABBMLAAMMXJ6hPuY2TAlWAPEhb1cf5+NeAgCieQsARAKPgQBzaWfiBkOAUlQgY3VydmMDAcFyAAUACgAPAAAUABkAHgAjAAAoAC0AMgA3AAA7AEAARQBKAABPAFQAWQBeAABjAGgAbQByAAB3AHwAgQCGAACLAJAAlQCaAACfAKQAqQCuAACyALcAvADBAADGAMsA0ADVAADbAOAA5QDrACDwAPYA+wCZBwEADQETARkBHwEAJQErATIBOAEAPgFFAUwBUgEAWQFgAWcBbgEAdQF8AYMBiwEAkgGaAaEBqQEAsQG5AcEByQEA0QHZAeEB6QEA8gH6AgMCDAIAFAIdAiYCLwIAOAJBAksCVAIAXQJnAnECegIAhAKOApgCogIArAK2AsECywIA1QLgAusC9QMAAAMLAxYDIQMALQM4A0MDTwMAWgNmA3IDfgMAigOWA6IDrgMAugPHA9MD4AMA7AP5BAYEEwQAIAQtBDsESAQAVQRjBHEEfgQAjASaBKgEtgQAxATTBOEE8AQA/gUNBRwFKwUAOgVJBVgFZwUAdwWGBZYFpgUAtQXFBdUF5QUA9gYGBhYGJwYANwZIBlkGagYAewaMBp0GrwYAwAbRBuMG9QcABwcZBysHPQcATwdhB3QHhgcAmQesB78H0gcA5Qf4CAsIHwgAMghGCFoIbggAggiWCKoIvggA0gjnCPsJEAkAJQk6CU8JZAkAeQmPCaQJugkAzwnlCfsKEQoAJwo9ClQKagoAgQqYCq4KxQoA3ArzCwsLIgsAOQtRC2kLgAsAmAuwC8gL4QsA+QwSDCoMQwwAXAx1DI4MpwwAwAzZDPMNDQ0AJg1ADVoNdA0Ajg2pDcMN3g0A+A4TDi4OSQ4AZA5/DpsOtg4A0g7uDwkPJQ8AQQ9eD3oPlg8Asw/PD+wQCRAAJhBDEGEQfhAAmxC5ENcQ9REAExExEU8RbREAjBGqEckR6BIABxImEkUSZBIAhBKjEsMS4xMAAxMjE0MTYxMAgxOkE8UT5RQABhQnFEkUahQAixStFM4U8BUAEhU0FVYVeBUAmxW9FeAWAxYAJhZJFmwWjxYAshbWFvoXHRcAQRdlF4kXrhcA0hf3GBsYQBgAZRiKGK8Y1RgA+hkgGUUZaxkAkRm3Gd0aBBoAKhpRGncanhoAxRrsGxQbOxsAYxuKG7Ib2hwAAhwqHFIcexwAoxzMHPUdHh0ARx1wHZkdwx0A7B4WHkAeah4AlB6+HukfEx8APh9pH5Qfvx8A6iAV'
	$Logo &= 'IEEgbCAAmCDEIPAhHCEASCF1IaEhziEA+yInIlUigiIAryLdIwojOCMAZiOUI8Ij8CQAHyRNJHwkqyQA2iUJJTglaCUAlyXHJfcmJyYAVyaHJrcm6CcAGCdJJ3onqycA3CgNKD8ocSgAoijUKQYpOCkAaymdKdAqAioANSpoKpsqzysAAis2K2krnSsA0SwFLDksbiwAoizXLQwtQS0Adi2rLeEuFi4ATC6CLrcu7i8AJC9aL5Evxy8A/jA1MGwwpDAA2zESMUoxgjEAujHyMioyYzIAmzLUMw0zRjMAfzO4M/E0KzQAZTSeNNg1EzUATTWHNcI1/TYANzZyNq426TcAJDdgN5w31zgAFDhQOIw4yDkABTlCOX85vDkA+To2OnQ6sjoA7zstO2s7qjsA6DwnPGU8pDwA4z0iPWE9oT0A4D4gPmA+oD4A4D8hP2E/oj8A4kAjQGRApkAA50EpQWpBrEEA7kIwQnJCtUIA90M6Q31DwEQAA0RHRIpEzkUAEkVVRZpF3kYAIkZnRqtG8EcANUd7R8BIBUgAS0iRSNdJHUkAY0mpSfBKN0oAfUrESwxLU0sAmkviTCpMckwAuk0CTUpNk00A3E4lTm5Ot08AAE9JT5NP3VAAJ1BxULtRBlEAUFGbUeZSMVIAfFLHUxNTX1MAqlP2VEJUj1QA21UoVXVVwlYAD1ZcVqlW91cARFeSV+BYL1gAfVjLWRpZaVkAuFoHWlZaploA9VtFW5Vb5VwANVyGXNZdJ10AeF3JXhpebF4AvV8PX2Ffs2AABWBXYKpg/GEAT2GiYfViSWIAnGLwY0Njl2MA62RAZJRk6WUAPWWSZedmPWYAkmboZz1nk2cA6Wg/aJZo7GkAQ2maafFqSGoAn2r3a09rp2sA/2xXbK9tCG0AYG25bhJua24AxG8eb3hv0XAAK3CGcOBxOnEAlXHwcktypnOAAXNdc7h0FMCUAMx1KHWFdeF2AD52m3b4d1Z3ALN4EXhueMx5ACp5iXnnekZ6AKV7BHtje8J8ACF8gXzhfUF9AKF+AX5ifsJ/ACN/hH/lgEeAAKiBCoFrgc2CADCCkoL0g1eDALqEHYSAhOOFAEeFq4YOhnKGANeHO4efiASIAGmIzokziZmJAP6KZIrKizCLAJaL/IxjjMqNADGNmI3/jmaOAM6PNo+ekAaQAG6Q1pE/kaiSABGSepLjk02TALaUIJSKlPSVAF+VyZY0lp+XAAqXdZfgmEyYALiZJJmQmfyaAGia1ZtCm6+cAByciZz3nWSdANKeQJ6unx2fAIuf+qBpoNihAEehtqImopajAAajdqPmpFakAMelOKWpphqmAIum/adup+CoAFKoxKk3qamqAByqj6sCq3WrAOmsXKzQrUStALiuLa6hrxavAIuwALB1sOqxAGCx1rJLssKzADizrrQltJy1ABO1irYBtnm2APC3aLfguFm4ANG5SrnCuju6ALW7LrunvCG8AJu9Fb2Pvgq+AIS+/796v/XAAHDA7MFnwePCAF/C28NYw9TEAFHEzsVLxcjGAEbGw8dBx7/IAD3IvMk6ybnKADjKt8s2y7bMADXMtc01zbXOADbOts83z7jQADnQutE80b7SAD/SwdNE08bUAEnUy9VO1dHWAFXW2Ndc1+DYAGTY6Nls2fHaAHba+9uA3AXcAIrdEN2W3hzeAKLfKd+v4DbgAL3hROHM4lPiANvjY+Pr5HPkAPzlhOYN5pbnAB/nqegy6LzpAEbp0Opb6uXrAHDr++yG7RHtAJzuKO6070DvAMzwWPDl8XLxAP/yjPMZ86f0ADT0wvVQ9d72AG32+/eK+Bn4AKj5OPnH+lf6AOf7d/wH/Jj9ACn9uv5L/tz/AG3////bAEMAgAgGBgcGBQiQaQAJCQgKDBQNDAALCwwZEhMPFAAdGh8eHRocHAAgJC4nICIsIwAcHCg3KSwwMQA0NDQfJzk9OEAyPC4zNDJBBAEACQkJDAsMGA3oDRgywFIy'
	$Logo &= 'DwAPAAoAAP/AABEIAKgBAJADASIAAhEBgAMRAf/EAB8wjQ4F4IOh0DWOAgMEBUAGBwgJCgsAArUAEAACAQMDAgSQAwUFBPCMAX3wAQAABBEFEiExQQAGE1FhByJxFAAygZGhCCNCsQDBFVLR8CQzYgByggkKFhcYGQAaJSYnKCkqNAA1Njc4OTpDRABFRkdISUpTVAhVVleAlmNkZWYAZ2hpanN0dXYAd3h5eoOEhYYAh4iJipKTlJUAlpeYmZqio6QApaanqKmqsrMAtLW2t7i5usIAw8TFxsfIycoA0tPU1dbX2NkA2uHi4+Tl5ucA6Onq8fLz9PUg9vf4+fpxDQEALgNjDZYNfA0RcA0CBBAEAwQHcQ0BAncBAQIRBAUhMQYSAEFRB2FxEyIyAIEIFEKRobHBAAkjM1LwFWJyANEKFiQ04SXxj6ENkg2PDY8NeXqCnw0Pnw2eDYYNdw3aAAwDAgHAGwMRAD8A9wDScUxnxSucVQBZHxQBI02PTwDKomusen5CqgBLNjvVGa6x3gCANNr7H938hQBA+okf3f8AvgBFYk17jPNUJgDUMZ5pgdI+qARHdUEBQPq+O68A/fIrk5tTxn4AaqMuq4/iosIAO0bWsd1/IVAAtruO6/kK4OUA1gg/eqpJrJ8A71OwXPQm1/0A1/IVG3iHH8QAv5CvN31o/wAAequ+tn+9TsEAc9MPiL/aX8gAU3/hI/8AaX8AIV5e2tn+9UcA/bbZ+9RYVz0AU/4SM/3l/IUAL/wkf+0v5CtEyv9w0fepf0AAqECwXPU/+EjRA1EA/wAJEf7y/kIQvLf7bMAFlGtnAPvU+ULnqX/CAER/vL+Qo/4SAiNRBHl41o/3qQBGtH+9RyiuegCH/CQn1X8hRwFgAPvL+QrzH+0Qo/3qUTALUcocAMenf8JD/tL+AEKX/v8/EhPqv5CvMhrJ/vU4awf71PlFzHpf/CQn1X8hR/wkPuv5CvNP7YP96j+2D/eo5A5j0v8A4SA+q/kKP+Eh91/IV5p/a5/vUf2wf71HIHMelf8ACQn1X8hSf8JCf7y/kK81OsH+9TDrJ/vUcocx6b/wkX+0v5Ck/wCEi/2l/IV5idZP96kOtH+9S5R8x6f/AMJEf7y/kKT/AISP/aX8hXl51s/3qadbP96lyjueo/8ACR/7S/kKP+Ek/wBpfyFeWHWz/epDrh/vUWC56n/wkZ/vL+Qo/wCEk/2l/IV5V/bh/v0f24f71Fgueqf8JJ/tL+Qo/wCEk/2l/IV5SddP9+k/t0/3/wBaLDuerf8ACSf7S/kKP+EkP95fyFeU/wBun+/Sf26f79KwHrA8SHP3l/IVKniLP8S/kK8jXXTn79WotcOfv0WA9bj17PdfyFW49ZJ7r+QryqDWicfNWrbauTj5qVgPS49Uz3X/AL5FXI77d/d/IVwNrqecfNW3a3u7HNAzrY593p+VWEbdWJbT7sc1rW7ZxSAfMcCs+d8Zq9OayrlutAFK4mxnmsm4uMZ5qLxBrVro1oZ7ljzwiL95z7V5+3xAkuSxTTPkB6mbn+VMVzrrm7xnmsm4vcZ5rAfxdFLw9pMn0YNVWXXbaXozr/vIaYXNS4vzzzWZPqB55qhNfRvnbIDWdc3B2sR6U0I0JtQP96qMuoH+9W/rFpY2CLMLbcrbFCLySxUGq1npjaiG8jRiQv3ssoP4A9adONSpHmjF2+QpzhB8spanPPqB9arvfn1rsr3wfBc6YRbW2LtlMkUsbccdVYf5Irzm3jlu7qO3jB3u20D0oi+aPN0G1Z2L7Xx7tTPtx/vV3gi0jSLSGx0zQ/tmoum55phvY+p9h9KradFFqLF5TpZCH95FHMGdRnqV7iiCqSjz8ll5ta28hSlCMuXm1+ZxwvT60ovG9a6Txb4Zgt7V9QsLbyPJx56RnMbKejr6H1HSuKDGqi+aKfcT0djTF6fWlF4fWul0TQYLrSLNjaJLPKNxLehPf9Kj8XeHYdM023vIE2kzGF1U'
	$Logo &= 'YA4P9RSpy55OK6DmuVJvqYIvG9aeLw+tZ9t811CrDIaRQR6jIrudasNN027KpYq4kkZY0Vcng/8A1xTu+ZQirtk2XK5N2SOYF4fWnC7J710VnpL30Rkg0UFBnq6BvwB5q7P4Thn01hb2w+0FDLHKj9MdVYVbUoyUZRab22/zJTjKLlGWxyguj609bo+tTeGrWG81XyrmMPH5EjbT6heKv3UVpbXbWsdi00igEhFzgEZoTbnyRi2waSjzSdkZn2lvWj7SfWult9Clfy3udJaCFiPndlwPQNjkVm67o8do3n2sUkcO7ZJGxz5bex7g1V3z8kk0xacvNF3RmfaTjrR9pOOtbOh6bb3enXDSxBpRMqox7Aqarw+VdShLbTHlBbaG4AP4ngURcpScYRbt6A+WMVKUrXMpro+tRm6b1rr4PDm+ZVutPSHK7lVnUiQDqARWB4l0YaXdxSQxNFbXK740ZtxX1GfxpJtycWrNDdlFSTumZjXZHeozen+9XReG7LSre0l1LWLN7oKMxRE4T6kdzmpp7lri7RJLCw02KQZjFw4jyvsOtQvaTk1COi63SX4jfJBJzlq+mrOUN6fWmG9PrXfy+HNPu7B4prVDPnYJbc/PG3Y+jKfevN7u1ns72WzlXE0b7CPU0ovmvpsU9La7k5vSP4qYb4/3q7fTrTR9D0iHfpB1DV5+AZBuwfRV7AfnUVsP7QvJIJo9NgmUnNsZgJOOoC/0pQVSpdxhp3bSv6BJwg7Slr6NnF/bj60hvj612/iPwpZ3OmGfTrXy7uOMyh4fuTKOoZezD1Fct4Ls7XUdamhu4hLELSRwD2YYwajn9znsVy+9y3M83x9aQ3zetdlb6ZpdxrA02PT1Z9xUuE+UYHP/AOusLxzosOi6hZm2BEVzDvxtwAQeg/Airim021a1n9+wnKKtZ3/4Bkm+b1pPtx9a0/B2nW1+9/LdxLJFFGANwzgnJz+QrptI0PTdXSSSLTUSKNlUs8f3iTjiobfbTT8StOrOHW/OetWYtQOfvVL4r0GXTPEtxZ2sDtEioc4AGSuTWbHpt91MYX6sKuceVuL6ERlzJNG9b6icjmtm01E8c1y8Gn3C43Oo+nNaMMUsQz97FRdFHc2N+Tjmun0+7zjmvN9MvA4HOCDgg11+mT5K80hnoNhPnHNdHZtnFcbpkmdtdbp5ztpDLlxWRdd617isi670AeR/FVJEu9JnJ/csJISM9G4IP5V53NMbR2TOM8ivU/inHu8PRvjmObcPbivIdZctPEB3QE090yWtUP8AtzE9akW755NY2GHQ0olYdaVgNr7WOx5oN2NpJx0rIE9I83yMc9jRYR7hokMU+sQmZAwUB1yM4Pl9a8f1MvB4gunRisi3blWU4I+c969Sl1K20eJbu4maIhIxEVXdljH0x6YrkLKPw5PqTXd3HdXS7zIyIGxknPOB0zVU5ylSXLFu3ZeSCcUqrcpJer82eh+HQqalJGD8gDlR9dteQeE1DeMoMjOGmI+u1q7i31G+0Wxv9QFlLNcNEfs8MRDLFH1Dsc/ie/HauJ8Ejd4us8nJIkyf+ANVzaVFK93Zt/MmCbrN2stD0XUIki8C+IbpBtne1VC464wOP1NeZ+ElDeKLFexLAj22nivRdbmKeENYgwcNbKc/gK8+8Gjd4v04ert/6C1VUuqUZeX+ZNNfvJLz/wAj069w/gLXFcZ22gx+RrxhVLYUdTwK9e1KYx+GNXt+fms8/o1eXaPB9o1i0jIyDICfoOf6VT0pxfl+rFHWpJef6I7TUlMUVjpySeWuwbjn04/oTXR+KrDd4F1G2Zi8tm0cwZurYxk/zrA8QQRLol9qD586MLHEfQnGf/QjXTzOLm2uoW+ZL634/wCBJn+pq+W0qUV1T/Hb9CZPmjUl2a/A8gtR/pcH/XVP5ivadLhjk1G7klQM0aTbCR0JIrxi0BF3bhuolUH/AL6Fet3eoW+km6mlukhdnkRFYffB64+lYuahVg2aODnS'
	$Logo &= 'kkeUWoMdzE6EqwcfMDg9a9n8PKEvriP+BUk2j8RXA6No+iy3Ek091NLb26+Y4iIyB6njgV0Ph/V1jivtRbzEsY1KJJJ1kbrj9AKujerWtFO0d+ltCK9oUXd6vY5fw0hGsOR/zwl/lXY6nbRDwPfzqgEzzRhn7kDbxXLeGEJ1Vs8Zgl/9Brqr4mTw1dwDP+sQ/wDoNaU1eu0uxFV2op+Zy+iRMbl49zBGiYsoPBIGRXYahGLnwLeFlBcSoc/981h6RaFbhmx/yyf+VdBGpm8O3kAyfmU+38NaKP8AtHL5ETl/s/N5nO6JGYrSTtm4T/0E1Y8cWkUNlokUKKqC3Y4Udztq7Ba+Rb4I6zr/ACNZWuatY3jwwm9hdbZdiOOM/X8qz5lCtOLv06NmnK504SXn1K/h2IpBIcnKTLtGemQc1d+IgB07QiP+eLfyWoLt7TTRa21ktzJqE2GMZHytnofpSeNZkk+wWYbdJbRHzOfuk44/TP40qCdRSqpWi7Wv1Cs1GUYN6q9zS0G2iuI9KhlQGPZAxB6Z61xXjkmTxpqrMc4lCjPYBRgV3OlnyrXTX9IYa4Pxcd/inUG5+aQHn/dFTR1pN+f6IqrpVXp+p23hT5LXSmz9+GLd7/NiuR8UxoPijMoHyG8h49eFrrND/d6LpUnP+oi6f79cjr7CX4khx0a6gP6LUQ1oyl5/oVPStFeX6noulRR/aLy6IHnRW8vlt/d57flXh2nk/wBpWbZO4zxnPfO4c17Wsot5Llc/ejlHH1rxXTh/xMbL/rtH/wChChfwIy9fzDatJen5HuujInm3kLfcEcoA/GvJPAfGvz47Wcv81r1NZPsuoTDOC3mqPzFeYfD9d3iS4H/TlN/Sob/2eM+9/wAyor9/Jen5HWaHP9m8aMjghLl3QH1IRj/MVW+KNukvhrRb1OTFM8TH2I4/9BqXXJ0sH0u+HDQanHuP+ySQf0q34yhDeFbu0cZFvMsw4/ut/hmt5R/e+sF+CuZp+56Sf46HMeGbU2XhW7mb79w+AB1xgAD9TXZ+GSE020UFh/pGCvbjbn9TWZ4agX+zLBZF3LtMrD65/wARU/hycPoUN0u7a91O4x6eYMY/CspW9jDzn+Rp/wAvJeUfzMvx/cCPxpeqOgWP/wBBFcy12MVe8eXW/wAXXL5zujj/APQRXMmcnpU1Y2qSXmxUv4cfQ1DekdDTkvmYFc8nisgl29qdESkyHPG4ZrOxodDGrJdWsKffkcE+wHJrvtM6iuLsAH1aRiP9XCAPxP8A9au00zqtU3qwS0O00v8AhrsNN/hrj9L7V2Gm/wANSUXrisi671r3FZF13oA87+JSb/DEns//ALKa8TvyZJY2GDiMdDmvdfH9rcXfhi5S28oSKQxMr7VC85OfxrxaJFm09JlHzqMH8Ka6ik9EZHzHoCfwpM+oq/5xj+VePSgzkrnORmkFzP8AkpHCbG6dDWiJfZT+FI7ptbMaHj+6KAuj1HUNPt9QFlFcKGjUxuV9cRdK4Aanqdvrd3b22ovaxiSTapI2YB4BHT2r0qTdHJBIobaoj3EDOAY8c+3avNr3R7zUtYlitLKaSSSVwuF6gk81pQqxhhoO+zfXyRFSF67ur6fqz0TyVeOGA7FMirl/qmcfTNch4f0aOy8arIl5bOsckwESn5sbWGK6i3lle5gtZozHPGAhQ9TtTb/PFc1oOi3kHjwXcsO2AzzHd6ZDY/nWsIOWCclC/wAWvyWo+ZLE8r8vzOh1O0W60TU1M8cW+1VQXPA46muV8LaItp4msZxqNrKUcnYjZY/KeldTrFtNcaNdQwgSfarfZH7MOCP0Fcp4e8P6npetW2pS2m6G3Ys+w5wCCP61UnGWFVo3tFr01ZNP3arTW7/yOuvrc3OmagnnxxBrTad/0bmuS0HRFttSE/2yCbYhGIz0J4zXUXMb6lpOorbxhj9n8sg9jtJ/qKwfDulTaVFdS3SBSwB4P8Kgk06nu4WDcen6smlKLryX'
	$Logo &= 'n+iNTXrQ3fhtbdZ1jaS43OrA5AGev6VrWQDaXYK08ZkjgjRsNzxlc/yrnUbxLq3lTXQtoY3X5GlXHy+wHNb2nW15H56X1zbzhYNtu0UZG0g5IqcQq9PkqzilyW666eQqMqU+anFt81+hx1xoIi1xx9sgUC4DBT1wWzj9a7LVNGttY1VftLYjheVtoOMklawtY8O3txr6XcEaeU5jYktjocfyArrHV5NSlEQBBaQFTxnkVtKKWNgku5gqilhZu/Yw/DyLb288cjW0wLAOsaAAxngggdeaTWNJEsdsqzpDHb5jCMeBzxgVFoXh/UdO1ISzRp5Dq0cmGHQ9D+eK17+0OoWojUDdIuMN2deP8KI+5i7SjpNfj0/rzL5o1MNzRfwmdoumLbXTzfaopP8/xDINqnnkVvwWgutOnUSIhZ1zu9gtZWl6JcWLSXEwQIIXHByeRWzYeS0EkU8sUIchleQ4yMD/AOvWq5YYzXT3f1MJy58JeOvvfoL/AGSLOymuBNE5VCNqnk5FX/DdkL23kjMqqHbgH2Vai1Iww6BLJaul3khWMJyFHc5rW8ARfarfzQo8ss3zfTA4/EVnOtF4mU6bvZEKM5YRRas3LS+hmeJLAaaLZAyv5j5+XtxWDb+ErK0soZEa3MjKGd5xk8joueldf4+hEM9gp7scVWTSpNQ0yAoApEa5B+gqsHV5qtRye9icU3RoUubpf8zm9gM3mEKJ4swibHOxhxz+dcleaZ5cjobuAkEg/NXcXlhJYzpDMvzyIUznjI5X/Cuc1PQ57qT7RCqFXAyAehx/hilg0kpUmr8r/D/h/wAzqxNSPLGvfSSNS3GywsEyDthh+YdDzXD+Jbbfr12xlTll4J/2RXeQWxWxtUxlo7eMkYznaeRXE+I7SeXXJ5EgcrMVKAKeeAOKww0oezlB7823yNK6lzxn05TqbBQvhzTF3f8ALvGNwP8A00rkdXQf8LAiIII+0Qf+y109pO1tptlYXMBhmiSOIpKMZIbd/LNcrqsq/wDCcxyMcKtxBuJ7Y21NFf7LN9OZ/kXVf7+K/u/qd7dPi8fnAKy/+hV45p4/4mNl/wBd4/8A0IV7RfWzxyyOELgNJEQOqknIryPTtNvm1iC3SzneaKVS6CM5UKcnPp0qKdSDwsEnte/3lTjJV5O29j1q72/2mSSAN0uM/Va84+HwP/CS3H/XlN/Su5bU0uL7eo2PtkkZT1UEjr+R/KuI+HvzeJJyD1spv6VMotYGF/735ji74qVvL8jX8dH/AIpmUBsML1SB+B5q74kv2uNFspkQuNSt0Xgd2Uf1zVPxvg+HpwP4btc1reDN2p+ENORJPLkjMlsXxnBVtw/Q1eJquj7KqukV+MRUYe054eb/ADGeaNP0K7mU8W9oVGOx24H61F4ZGzwXY43AZkI9P9YKi1q+83wxdu+CLm42jjGQG/8Asau6IFTwnYELhcOcH7v+tqasXTVCm+lvxu/1HTkpurJef4aHGeNyjeKrgghsxx84x/CK58EdhXVeLZP+Kil+Uf6tOo/2axFmO7jHT0p4j+NP1f5k0X+7j6Io/Mein8qVQSR25HWrv2lgMZqzZwrM53L8o5NZI0bNTSDvu7l+M4ReDntXa6Z1FcJojyPd3BVR5BbGc8giu70zqKO5XRHaaX2rsNN/hrkNL7V2GndVpAXZ6yLrvWvPWRdd6AOZ1+H7RpF7FjJaFsfXGa8ItQI7q8tsYUnco+vNfQd2gcMpIweDXgd/GbTxCARgMrRn6qSKW00Nq8GYM/yS49DR/Cw9KbfNuu5AB0NNEw3HNUZkv8GaWQZyPUUwSLsAzSvIu3r2NIDtJvEzXojdby709ggTbbxlgQFA+bPB6frVRdXS3PmR6vexcY3LaAH88VroDJDCRgMVAzjqAorWuNDF14F11mjBu4rQTqeu0A7uP++a4ZZnGlaDoxdrLbu7XNfq0pR9rztXv1OJg8UPp1zPcRO93cSAASTLjA6/z5wKaPF2pg5F'
	$Logo &= 'vk+u01V0fRItVtVuTq2n27B9v2aZyJXxg/KMc57V2f2d5boRx7QSQpyfz/SvTxWa16Cio7PotEZUMHzN2eu+5mW3i1JrQRyyyWUgXBDoTGx9c4/wNQnxFewafJa2erWqxPneIo2JP4811Hivw9bnwBayC6trZ59QRGubhiFAG7qQOOlc/o+kR6Yslumq2GoLK4YvZuXCYB4OQOawpY9Ymg6sqEW07etuumn4ClQlTdlN29f6ZnJ4ul0+zFpbW2Q3MkkoILnOTj8e9PXxP9psnSWEo7DHyqxDc+3btXReP/DVt9s0GBNQsNPD2byM905UOcr3x1pnhzS4/NstOa6t7qNXC+dbtlGBfnB/Gr/tatVw0cU4X30fldbfIX1OMJciej0uYVz4zuXkQC2jwibehHcnoasW/jPzbZ4LmPyTksskWSQcYAp/jXQoB451WFNR0+zjiESrFK5B/wBWp44rAbSI0/5i2nN9JD/hXTQxE8TThWmviSdn56kPDezbUH5Xubq+MLlViAto5QpHKhhkcev0qdvF5F4t1GiiRs+ZE27C5bPHv71p+E7CO9n061lKyoAqEoeGHPf0rmfE1okfjPW4lkijSO6KKmcYG0VjQzKc8a6coapXv87aESwkFR0bs3qjVHja6IwLWL8zUsuvNOqzQDy5SxLQtuKc98gda5URhf8AlrH+Br0Lwjp0OqalaQ3CB02DI9cLn+laY3MJYSHtnHm5U/6RFDCxk3Ti+VMrxeJLiWFo3ghy67WOSAM9TUj2Ud47eXq9wkROVjddyp9MjiudmcjXdSiz92+mRR6AOQBXSWNvf3SyWdpsRFjMs0rYCog6kk9P/rUYvMoUqarTpqUpJb9Pwff5lYfBznL2UJ8qXnb+thJNGWWL7PH4jXYf4GIVf0FekeGTb6PpccEMqPhQNyrgYHYe1eR6dqOiXaylrjUAQCYpvs/7mUjoMnnnsSBW9odvfMl5f2cx+xQ2xuGjb2zlf0PNY0cxcouNel7OOnS3/Dk4nBSUk6VXma8zr/FQGrSweZKiRRxv84k2tvPQDj8c1jWev3mm2ZhlS0LKFVTE5bcAMZOe9YmraiL60iAIZGIbB7ipPD1janW7eKeSObL7TF/dyOM1tjMcsBzRjS5tL76vr2MaGDeLgvazen9dxmpeI2vJkFxGECtnzEzlfp71gnX7q3jaMCKSPs5Dbj9c8dKhlEtnqklnIT5ttctC2fYkD9MVtapp8Mfwxv8AUljAn8+NN/oN65A/OjFZmsPKDpwuqjir9ddPu6mlHCKpB05vSN9On9XMS28SGO53XBkVcYUxk/KfXFPfVp1ukvbfV7ZpgMK0sLZH4DA/SuXlb3rrdOtVTTbQSSrCMAl2HrRjcTClBc9JTv3/AM0bYelJu0Ztf15mHca1ONSfUL65N9c4IiXaVUZ6/wCea5+5uJLm4knlYtLIxdm9Sa774gaVHB4U0TUoEA/0iSCVx/ESMgn/AL5rzxDiaP8A31/nWeGxv1mgmo8qTat2s7fiXOj7Ob1u31Ot0vxTMtuIrm4uoJ8/NMVLq49wQf5fjUkfiS6sjMLDW7NWm+86xMXPFdr4b0uDUJb6WaMOYoXcA9M+teQeFnb+2LNs87W/9BNc9HHQxDqU6lCN4JfO9+1uxcqcoJTjUepefV7i3tLqKATT3N0CJbko3APBA49OPaofDOpPoOqtdvbSMrQNCfkb5Q2OcY5wB0rt5reSGxub9sx2VqqtNMV+VN2MdPcimWl3oN7bs9t4jtpZ0Xc1t5TqzDvt3AZNc1TNp1HyundLSyTsvLRaHTHBRpx5+dK+u6ucfrPiJb6wurNWZ1knEqs6kNwe+farnhjXTp+iXGmsZY0mkMomiBLqSuMDHTPHPtXQ+J/CaXXhDUtdV0JsShjZVwWUkZDf99cVi+D13wXMX8LSIOnsa6nj/bx9oopuNlbppZ/hf9DmVL2el2r9eupUvr+a50u1sFibZC/BVGGRjHOe/WtCDXTH'
	$Logo &= '4fh0/wAuWN4Pu/IxD/OWO7jp04rXmEdmlrJqF7DYRXIJie5OAwGMkeuMirNvqHhazuI5rnxJp97ED80MRKk/ie1cM86nKftvZcz6aNrTTtY6/wCz+SPs+dK/mv8AM4fWL5tR1Nrh1AYoqkDPUDHes8dW/Krer3ltd+INTubZ1a2kuXaIr0254xVBpVAOOea9FVJVV7SSs3q/mcvKoe6tkBblfzrXt2EGmSynrg4rDZssGHQAVrytv0yCIdZXC01pqFrmzo8Xk2cCYwSNx+prsdM6rXLQACYKOijFdTpnUVMPhRpP4mdppfaux07+GuO0v+Guw03+GmIvT9/pWRdd615+/wBKyLrvQBwfizxlp3hu8htbtJXlmQyAIBgLnHf3ryPWtUsdT1I3UEhjHnNIFcc4PbivZvF2kw6tprQvEjSchHKglSQcEH64rwa8sDaZQrn90HLH1zzRK2jYK7ukRTxxTTtItzGM9iDTRZO4/dyRSewbmmEobVD5ahh3A602TYsSsow3GcVTITFNnMCQYwD9cU02cpU/IOn94VMl/IIirqGb+Fm9P61BJM7BiNo46CkNXPTtPt5biKJYlyyR7j9AorpPAV9Fq1ktnJj/AEvSzC+e5xg/1qj4RGLpRkcwAc+6rXO/Dm/MElvJv5huZIj9Ccj+Zr52riHOVdpaxSt9z/yOtXVKlHu3+aOS8NWuNeggkB3QsSeO65H867mVzbX2n+auBcvJIoPdVRv6kVi21iYPHmvIq8RzMI/+2jbh/OtnxTIF8dabp64xZ6a5IHYtx/JRW9bFe2rU4R2acv8AyX/gigvZU5y67fj/AMA1PiA0bfCDT1Of+QimQvX+OuL8IBFWfYHA8xc7wPQ10fjiXd8M7aMkYW/Q/wDoVc34NAeK4ZSDiVen+6a1wGIbws5vpJr8TLEQaqL5HS/GOMXF/wCGthHFg/8ANKj8AjypdMDcESjP/fyqPxUus3HhyTzdh+xyKfzWpfBTBbPTpVbI3Zz/ANtKzoYt/wBmKo1rr+bKnSaxCXmZnxPw3xO1kj0h/wDRa1yore+Il0v/AAsHVGYnJER4H/TMVzQu4yeN35V6uArReFpyb1cV+RjVoT52kup618PGC32lE9Pl/rXHeM2z8QPEOOhvD/6CtdP4LfYmlzDPKxnn6muL8Y3gj8c67uUkm6JJH+6K4sPik8xlF7cv6l+wnKgrLW7KqnHWvWfhywGs2ZP/ADz/APZK8X/tJAT+6Y4969c8GSGK8sZQPvRqcemUNa5vi1DCycdXZk0MPNVYqS3OTuD/AMVVqnP/ADEpv/Rhr0PQSg8G+JScbjp7jPttevKZtS/4ra8tfKPz6nKN27/poa9H06Yw+GdcTGd1hJ/J658yxijhqbjr8P5lUKMvayT7M5OxuVXTreEAYKKMV3/hRlXw/rq8f8eL4H4NXjWma2ZZrOHycbnRM7vcV6rosxt9J1ZcZ3WUg/8AQq3zzHKNFcmu35k4XDTjUakt0zkdMuTNaWyk9IlP8q29NlRLuOZSfPiVpo/qpXP864rwnqJvpPJ8rb5cAOd2c4Irp9cA0y78NvENgu1lhds9SQP64pZjiozxNOK8/wAv+AaYSEqVKrddF+ZP46iSDx6biLHk6hHFdJ9SNrf+g/rWnrDr/wAKT1Bf4hdx/wDoxKyfFM32qz8O3IXLw3QtHI/uvgj9R+tWPEMvkfC7UoCD8tzGT/38WuOWPbo0I21U1F/JtfkEcO/aSts1dfgefAGWVIx1dgv513NzLFbxEvkRRRqDj3OP8K4fRZRc61bR7DwS5/AV23ix1tPhvK+3Et1eRoD7A54/BDXTmmKi6lOktVJpfj/wDTB0p03KTWqT//8/ACX5m34ohivfhXrFvEQ39n3MdxHj0BAP6bq8aT/XR/74/nXr2if6bpup2DHKX1owGfUrkfzrx+3LB4M/e3Ln65qsvxC56tKXRpr5r/NMxnSnUjGcVv8A5nvngh1Eeqg97V68U8NR'
	$Logo &= 'W6ahZlZXaXaeMcD5TXr3hpjC98ozgwyA1434WUtrVmo6AN0/3TWODxTnWr30tb8mFSm/ZRa7HrmsmP8A4Utr6nqWjzjr96OvJtBtoTrlrsLkgngqMfdPvXoF/eJJpp0kpJLHMqmeLPyv3HHX0qrZ6bZ6ZZzTRaRGLh3EIZgd6E9MegPrWdDHeyVS+7ba9NNzeWFnNRdtHZHTamyj4L+I0yMhU/mlcJ4Qj8tJP9p1/ka1/F3iC10nwVN4YjnWfVbtx9pSPkQKCCQx6ZwAMVk+D28xJWz92RP5GtMFXnKjUrTjZOTt5rTUyxEFCagne1je+MSJPH4SWIIQLOTjIA6R15mbJv7ifg4r0WadtVmRvIhCfdj85xtA9i3A/Cr1jpunW94jaq1gYOwglRyT6HHQVz0syhh6ShJXavt6nVLBVZS7X80eWCzlA/1Y/wC+hUq2E23cwSNfVmxTl1ApLPiNGXzHCY/3jiofNaef98ST6GvdWquee20PNsmMG5i/DJq9HNbLJbFp12wnJGDzVFBH9pI2gqO3rQiGVpmWMEjAC445NEthxu2dFBq9iJhmZiWIA+Wu30zqK5jTNGisNMluHVXaS5EcRYAlQFy2PxIrp9M6imlZWC99TtNL7V2Gnfw1yGl9q6/Tf4aQy9P3+lZN13rXnGa8u8WfFfw5oU0lrBI2p3iEho7UjYh9Gfp+WaL2Gk3ojc1A4idgMlfmx9Of6V4z4ntYoNWlt9yj53jAz2PIqlrHxd8Q6lvW0S20+IjpGm98f7zf4Vxt1fXd/MZru5lmkPVnbOaick1Y1p0nzXLUrRraopdd2cEZ5qsblAMbiw9hVbHGfamr0/Gl7RspUIo1J9UEtpbW8MbKsSncTj5iTVGS6bBG0DimLgg88E0yTkOfQH+VTzts09jBLRHu/hQBry3GM/uQf/HVrzvwbcsLrVrdWwyS+cmfUMR/UV6D4edYrqzyduYlxjqfkFeX+GZPI8aTQ9BM08XPrkkfqK8PCq9esn1Uf1JqRf1aDXS/5o73TLa5uvED3l1A0Ul5Km5cdNi4x+VYVzefbfivq0gbKQxtAv8AwBVX+ea7PTDbw65G6t8sdsZ5huztYkAfTgE15j4PnN/4pvrtsFp0mlOf9pgf61GGjetOVtIxS+//AICRvXbdJP8AmbZ2fjsbfhwjYxm/T/2aue8B/wDHtec5/fp/6Ca2/Hcgb4fFA2cX6dOnVqxPh9/x5X5OABOnJ7fKavBK2Fqf4n+aFib6LyiW/ir8svh7Ix/orn/0Gr3grB0XTQR1PQf9dayvihJv/wCEeJzkW0mc/wDAa1vBgz4d09lKhsMRubaCRITjP4VFGL/s2K9fzZVd2rq/RnL/ABGGPH2pDphIhj/gArlhj1rt/F2iXes+KLzUIHiVJAihXJyCqhTnA9q5+88L6jZafPeyGJoYFBcqTxyB6e9ehhKkIYenCTs7JfOyCTvJ28z0bwdk6fpB5/1cfT6mvP8AxpkeOdZH/Tzz/wB8iu+8Jhl0PSpF2hhBGw3MF3YY8AnvXJeIvD95qniPUNQgkhEdxLuUMTkcAc8e1ctH3cbOb2tb53IpyXskvNnKE4Xg817L4VI/4l5J/wCWUfT/AK5mvKdT8Najp2lyX8rRNBGyqxUnqTgdq9U8NusMOlOWCloIu/8A0zNPM5RnhZcrvv8AkXB81emvM85kKt8RLnI/5ij/APow16hAf+Kf1n/rwk/k9eRXl4lv8RbmSQ/u11R2Yn08w162hY6ZdwQ7ZPPgkgdQ4yuQQG+nJqMwpylQgl5foZ06iVW77M8e0RsX9jn/AJ7Jj8xXs1gR9h1HI62cuP8Ax6vLfD3g/XptUjf7OiwWjiSSVpV2/Lzgc85r0S01JItF1m5kcKkNq6Njpuwxx+o/E0s2cZw5YO7uvzNaN5VFK2iT/I898CnGozYxj7N/7MtdV8SZTb6L4bnXIeKV2B+ig/0rkfh0xl1i6Xri0P8A6EtdJ8T5d/hbRWyC'
	$Logo &= 'EuJFPPqP/rVril/ttH1f/pLMqTvGpLyX5lq8neVrNUy0DzRzjjOGDBh+la3jGWKX4f6zJCQyGeMqy9PvrWX4QuFv/CttI10tuUQxvIx4BQ8Z/DFS+K54j8PdYWCZZolmjxIpGG+ZDniubEwtWhFL7a/NFYVt03fomcr4OiEmoTzH/lnGFz7k/wD1q6jxvFcX2gaTplvCRLbyNLOHIHYhcevU1z3gsNHodxdY+aSQ7ffAwP1NWta1S28O6lFa6s15PI0IlIt3HAJIAJY9eM1tXjzYlWV3HZfK36mkHzRlNuy0Or8NF7NNPW4VlnEaBx1GMbc579q851a2Gn+Jb60HHlXjKv8Aulsj9CK7nw5qdpqOnT31ilzHEcoBcSBirphs+2c1yXj8eT44jnUYS7jhmHufun/0Gpoc31t8ytzR/J/8FhTnGEHyu6T/AD/4Y9M0U/vro9f3Uh/lXkXhI/8AE8svcMD/AN8GvXNNcQ3V1HkBmik4/EV494Nk3+I7CP1D/wDoBpYJfva7/wAP5Mzfu4eKfZno+twRJ4G1u6VdtzsiAlXhgMp0PasrwhetNp4t2kJcFoWLHJJ+8p/pWt4glC/D/Wo92SFjyPTlK4jwfeBdYe17Tx5Uf7a8j9M1WCi5Qqp/zP8AJCxUf3UZdUk/zLvjq28vXINTVMLfQhn/AOuifK36bTVvwbwlzgY/ex/yNanjGz+2+G7hlwWtGW6TB5Ctw4/XP4VleCfnjumJwBLHkn6GqoS/2dwf2dP8vwsa1Zc1C/e356k3xKtoTbeG4xENgt5OMcfwVxAsbUrnyVFeieMLafVpNMjjeJWs4mVjv3Bt23BBH+7+tc1H4auzhRJESTwBmjA1JUsNGMnZq/5s3/cyk3KzMe1c2sscicbGDbSODimzsJZ3mGE8xs464qxqNnLpt/LZzgCWLG8D3AI/QioFAEQGK9CNeTSaejE8JRl0GQgJNuc/L3rU0swCQB5EUvKDhjjgc1loGLHI6jNJJnKkDtWntpPRmP1KC96LaPTtRIisdJtlxzG9wxHcu2B+gFaGmdRXkiXE8DKYpZEI/usRW1p/jPVNPlUSCO4j9JFwfzFbKunuc08FOOzue66X2rsNO/hryLwv8RNFv5Ut7pmsJzgDzj+7J9m7fjivXdN/hx06g1opJ7HNKEoO0kc/8VbfWbnwBqUWh+YbohfMWH/WPFn5wuO+PzGa+TQjAcDHbHpX3BPx0rgPFPw98O+IpnuJ7T7PeHk3NthGY+rDo34iplFvY0pVFHRnyyUwRnjipFHDcda9Q1j4Q6ja7m069t7xR0WUeU+P1Fcfe+F9W01VF3pVymOrKu9fzGazldbo6ocjekjnyflbP0pAB6cCrTWq4ALFW6kEYNNW2cngDrjrU8yL9nIr46AdqUgMGHY1L5LoQpWkVW28qcfSi4uR7M7yPxTfwwW/k2sYlRApcSfMRgD+704FcXZ3U0WvJeIo84XJlxnvuPFaK3QXbnqAP5Vk2rgXpkP94tXLQoxg5NLcdWTklF9DtL3xRfNFcLaWkUPmQFHMcmc8EAn5evNcx4Wv30zUzKkSy/uihVm2jGR3wfSplul87jADLhvesy0Yw3T+wIoo0IQjKCVrhVnKTUnrY6DxHr17qGkNaPAkdt5yuoVsgEE9OB61D4U1eXTYLuP7NHPHKwJEj4GdpHoc8E1Qu5lksyo6bwcUywfy1cZ4Y0RoQVF07WQSnJ1FUvdlnxTqt5qzWX2tCvlKwUlskg49h6Vs6Drsdr4ehs7uxS4iTdjfJtGCxPp6mue1JvMSHnkKR/Kp7aUJaqpAOMjB+tKVGEqCp2sl2KvJVHO+p0g13SMKBpEWAeP9Kb/4mqWr69LNod9Y2lsYrOYAFRJuUcg9SM9RWPcXJSZ1VVIGKgku5JIXjIAVhzj61lDCQTUrX23bZpKc2nFv8v8AI6bS9ehj8PWlpe6fHOkUYVWeXbwM4xgfWpU1vSMc6Sh+bjN03+Fc/BKEt41I'
	$Logo &= 'BAAAyM4qKW7MbOqqpCnvRLCwlJvXXzf+YQlKMVHt5L/I09f1qe88P3FjDb+VZtKrAb9wXnPHGavWviS7h06yjjs4/PhRVWVZPmwFx024xiuamunlheIqNrc8Vet5lAi6HCj+VOWHgqfLy6Xv/wAOC5va899djndU8261a7uJFw8szOwBzgk5rvNA8S3UelLBrVqk8IACTI22bHbP+PBrlJ1Vr9iejOc/nWoJ1WAlQAQM5rTEQjVpxjJbfh6EUoOnNuL/AK8zeudc0PYyxJrABH3N4CE+/Nc3rmr6hdaSthbRiDSy2XCnLyHPG8/XtUUN7Kk3zFdjAZGKmVkMc0ZHDg8e9ZwoRpNSte3fUufNJOLdr9tCr4RvJdJ1SWZIUlDxFGVm2jGR3wfSrnivWL3VdPgtp4VjhSbdGA2QODwOBxzVKwIius+qnP51NqLLJBEB2atpxi66qNamcabVNwT0LXhLVZNN025t5bSG5t2k3bZXKgHAB7H0FSazrdxcaFd2NvapDYyEEqj7lB3A8ZGe1UrNkjtNhUMCMkfWlnZWtJEUAAkcfiKidKDre0a1uhwUlT9mnpqaOg61Lp+gR20VlE7pkpIz/MDnOQMYzmsDxHcXmra09zdriQxooGc8AYqzbNsi8vpjJFS3Hl3M4eTKHAGQM04xjTquolq+pTpucORvRFnwpqs2maXdWpto54XkLASOVAbaB6HPQVV8RajeareWEtzHiSAYUk9RkEDoP8mpITHAjRKxb5ieR3qK6ZXmU8EhQBSUY+29rbUFTfJ7K+h1MvivUiyNDZxpJtIkZZMl/wDe+X+VcR4elm0/Wba5iTc8YbC5x1BB9exrdS5XzHb/AGTmsuyCx3kZ7AYqaMI01OKVr/8ABHODny3exva5r15daXfW0VrHDbTAeYqPuXORz0BzwK5fTWuLbUbWaL/WRyBl561uSSK9jKvdgO1UrRVS8RiPuqT+NOgo04OMVb/hi6lJz96TudNfeIrp1kSOwgjjeMrIEkzuGMHOV9Ky/Ceqy6bFcobWK4jkK7llcqMgHHY+tNvJgbdlXHzrt/DvVLTn8sPgg5KnHrWUKMPZyilv6lzjLmTb/I6P+1rMr8ui2Y5423L/APxNObW1h/eWWlW0M6sCrx3DMw+gK4rGmutoUoF+YdhjFVGv5hLgKvK8c96zjhoS6fi/8zR3Svf8v8g1e6ub3Wbm6ulAllKlgDnooH9KrjlcH1qVzLdSM7RsXPXipUtJi3KEZ7niupNRio7WHCnJ7alRJARnptODSOxPGMjtV/8As2X5tzIoI7mora2i+dZZ8bOAAOtPnjuinei4ABqXUX1Kucr3AOlJtZ8BQWOcAHFadtbeYQIbAFeQ9MngVu6fAOFr28IEk0NrABk8hBub/CriAKcvhRlOdKC9APmjklg8vmc7AFcdB1NfSHwiAINTt/B1umpCAFUGVjapL99YAHjGc9BnOB6VAM74Y8E6Jps6AFybc3d0vIluAD5tp9l6CvUtADjkqTXXTpOLALtnl4nExqLkAILQuz9/pWTdAHetefvWTcr1AK2OIxLvvWHdABIzg1vXSdaxAC6jJzVEs5zUAC0trjPn28UnAPvoDXM3fh3SAIuWW0WNvWNiALXYXMR5rHuIAE80+VPdApyjALM4248N2obMAHNMuOgJDVSbAEdouEnBA9VrAKueE5NZ80JzAEnRpy3RccXWAIbSOburGchQAIIzg884qobKAEUn9wOepBFdAByQmq7RGhYWAJ7IHj6t7tJ/ACMBoJAwzC/uAGmmJfMyVcZ6APFbvkkmp47RAJqr6knsxf2kANbxRzJiQ/KXACMH0pRAFkRUAJfvH8q6s2RAAPu0wWkZbDovANSopPAS6SLjAJnDrD8TnprQALELvHBxTfs0AIsSkMuSf61vAElvC2QYkP4VAAPawjH7teOlAGP1KotOZHT/AABpUG78jMlrAElOScZ4zSNZAE3lFsLjAHWtABeFMdP1NV5E'
	$Logo &= 'AAV284+tR9UqAK6o1WY4Z/ZfAOBW8idUHHTHAHpGtpWjdipPAFzU/wA3TJo3ADjOGIzU/VqvAJDWOw3mQLbSAJ6RnkUGO4GMACHGOtTrJImMADHijzpOuan6ALVuyL+u4VrdAP3FeeGYMrGNAL8qesdwYynlALEgelSSTySbAHcelC3EqZweALR9XrW2Q/rmABeZu7t6EPkTAAEjeW3CqaUpADK5O1uhqVrmAFMZQnggA00zALls/Wj6vV6oAB4vDdG/uIvLAJRKpEbcrwKdADwT4yY24FOaAHkYoc/dGBRJAHMsgALcYxR9AF6t1oL63hrPAFf3EKrOp+4cAGP8acsc5XOwAIU80eY+CM0GAFk2Bc8DpVPDANTyIWKoLqyRAC1nLZVMk471AGjYXTSLlecZAOTVJbudBw34AJpft9zu3b+cAGKzeGrPaxvHAB2ES1TLAtZ/ADtpAzu6E09NADpnbkqDk9TWAHm5nznfznNIAG8uP+ehpvC1AHo0KOYYZPWLAPwNRrKXzWXeAJyOTn6UkNgEAJVLTqDjsKyTAHVwTnzWzUZlAJSc+Y3HvQsHAFLWckJ5lh07AKg/vOhSzjMpAA84xyP5Uht7AEELnz23pmueAC8h6ux/GozkAPUmhYGXWf4AAPNqdrKn+J0ZAGsWdg8h+Xp8AMKijutOgkA4ACvPO7r6VgbaAExVLAx6yZDzAGl0gjozq+nIAEDylYDOOCapAF1q0Ekm6KMjAACOFx1rIxSYADVRwVOLvqZ1ADNa848tkl6GAKLrkkZykZyQAAcmo31i5kI6AAx+NZ2DT0QkANaLDUk72MXjAPEtW5y+t5cSAB+aQ89av2nUAFZsMRJFa9pCANkVooRjsjnlAFak/ik2b+n9AKuv0vqtcrYQAJ4rrtMiI20yAA7DS/4a7HTuAKtcjpiEYrrtADhjbUjL8ozWAHTpnNabiqsqAGaAMK4hznisAKuLfOeK6aWDAD2qjLa57UxHACVxa5zxWXPZAJ54rs5bLPaqADLp+e1UmS0cAETWJ54rPlsTAOld1LpvX5apAMml5/hqkyGjAIWSwPpVdtPPAKV3T6T/ALNQADaT/s1opEOJAMWmnEv0rWs9ACi5Cgda3F0oAIb7tXoLIwnOANIIrppTV9TnAKsHbQwr7QJLAEjBkTG4ZFc/AHNoVJwK9CvjAC3KASEnAwM1AIFzpxYn5a1qANSPQwoU6lvfANzjXgI7VXeAAJ7V1j6SxP3TAFG2kN/drlckAHXGLOQa3b0qABa1b0rsTo7HAPhpp0Zv7tQ5ABaicb9kb0pDAGjeldkdFb+7AE06K392puVYAONNo3pTTat6AFdmdFb+7Tf7ABT/AHKVx2OOAPsjelIbRvSuBMv7gAVJ/Yp/uwBK47HGm1b0pAEgA1dkdEb+6aQA/sRv7tFx2OMAfsjelH2RvSsCsgEC0h0Rv7hoALjscYbRvSkNAKNjpXZ/2I39AMo/sRv7pouFAI4o2jelIbRvAErtToh/uU3+UMNv7lJgBUZhBZsAeldr/Ybf3TQAf2Gf7n6UXCwAcT9jb0pPsbcApXbf2E392k8A7Db+5RcLHE8A2NvSk+xt6V0Av/YTf3aT+wkAv7lFx2OI+xMAelJ9jb0rt/4Awm/umk/sJv4w7SuBxCACIgtx/UCE39yk/sFAAy4ABxK2TZ6VZisABvSuvXQmz9wAq1FoRyPkNK4ABy1vp5yPlrYArPTzkcV0FvoAIRj5K1rbRyMAHy0hmXY2BBEAxXU6faEY4qUAtNLxj5a3bSwAduOKQFjT4MYAOK6WyXBFZ1oA2+3HFa9uuMUAIZZIzUbIT2oAKKAImgJ7VE0Qak/wmmABWsSfgOA/lULacx/AAAAUUxELaWx/gAD+VRNpLH/lmQD8qKKLhYYdHQC/55n8qjOitwT882EEuKww6K0A/wA8z+VNOjMA/wBw/lRRVcwAyeVDH0Vz/wAALM/lUDaC7H8A1Z/KiinzMXIQoYfD'
	$Logo &= 'zWIFSf8AAAjrf88j+VFFACuyrIT/AIRxAL/nkfypP+EcAG/55H8qKKV2ABYP+Ecb/nkfAMqT/hHG/wCeQEfyoopXHUEFbUVEBRtDBaLhYIUCqAUAAWkCAaKLjsJ/gMI03/PM/lTiADrIABNKIgUDBCcFncBQT/hGmyENj+QAiugpXATgA2UFBQMBAAVYP+EZYg4ABlsCBSgguAf8Iy1AGo/l4kcFAUUUgOUDAApCGGiKKADACGH1BIMAoqCAE/4RhpINo4UAAKKKBijww2f9AFH8qmTw2w/5AmTwDaALMfh9hwD8sz+VW49DZRD/AJZnYAJAXIsASWX+A/lV2OwQCv8AAdEELUduAFexqyibaKKAAD//2Q=='
	$Logo = _Base64Decode($Logo)
	Local $tSource = DllStructCreate('byte[' & BinaryLen($Logo) & ']')
	DllStructSetData($tSource, 1, $Logo)
	Local $tDecompress
	_WinAPI_LZNTDecompress($tSource, $tDecompress)
	$tSource = 0
	Local $bString = Binary(DllStructGetData($tDecompress, 1))
	If $bSaveBinary Then
		Local $hFile = FileOpen(@ScriptDir & "\BMLogor.jpg", 18)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Logo

Func _Pic($bSaveBinary = False)
	Local $Pic
	$Pic &= '/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAkGBwgHBgkIBwgKCgkLDRYPDQwMDRsUFRAWIB0iIiAdHx8kKDQsJCYxJx8fLT0tMTU3Ojo6Iys/RD84QzQ5Ojf/2wBDAQoKCg0MDRoPDxo3JR8lNzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzf/wAARCACfAHoDASIAAhEBAxEB/8QAHAAAAgIDAQEAAAAAAAAAAAAAAgMEBQEGBwAI/8QAPRAAAgEDAwEFBgMGBQQDAAAAAQIDAAQRBRIhMQYTQVFhByJxgZHwFDKhFSOxwdHhQlJicpIWM0NzgrLx/8QAGQEAAwEBAQAAAAAAAAAAAAAAAAECAwQF/8QAHxEBAQACAgMBAQEAAAAAAAAAAAECEQMhBBIxE0Fx/9oADAMBAAIRAxEAPwDowWi20YWi203MALWdtMC1kLTAAvNFtosVVa5q66dbgQxma6lbu4Ix0Lnpn086LdTYktuozrmvaVoFv3+qXccI8Fzlm+Cjk1rFt7VOz0t4YZmmgiLARzOvHlk+QzUc+y641O5k1LVtU72+nO5mMZwB4AeQHlUiT2T2n4dkmuQ7H8rCPG2sv3xb/h123eNkniWaNg6MMqynINeK1zrRYbn2d6nDZT3Hf6FfS7Sx4NtIeh/2nx9TXSita45ezLPC4XVRytCVp5WhK1SCGWgK4qQVoStARmWsbaeUoNpoCdtrO2mbazioMvbRAUQFEBTJEunMacdTWvXUHeazYMcYiWR+fP3R/M1sOoAYWqlrUT3qLIx2tC65A4HIz8+n0rDyctcddHjY+2a8t7+1kZc3MW/oR3g61JnniB2vNGnllgMmtB/6GNrqIuUvJn3ONok2cc58FFWPabs8danES3Dxd0PdAx9RkVyY6nTr9f6g9vY4rvQrtVKOUXdwc9Oc8VtWmF3020eQ5ZoUJPnxWs3nZ+PTdGkgkmeWSZe7LMADg8DoPWtrsImhsoYmYtsXG4jHHhXX41+xzeRj1KPFCRTSKxiupyklaErTiKEigEEUGKewoMUBOxXsUzFe21lDBisgVnFZApkh3ydKq7rMZSQEjY1Xk8e6M+YqruIhLE8bcBhjPlWfJj7Y6a8WXrltUaldz3BSz/f5lQkSoSAP/l0HwrDW93pzo6ma4kchSS4c/HAPHxpWj6naXMMlsLtM9YpVYYceYPiDUuW+tdMspJ5bkO2CEG7kn4Vx4dTT0cqO6El5qlnBLIB+834H+kZrY9u3gdAOK5Vrmo3EGn/tMTtBcGVPwuDhjhgTx5cc+ldK7NanFruiW2oxAKZVO9M/kcHDD6g12ePNYuHybbYl4rGKeUPlQFceFdDmKIoGFOIpbCgymHFLxTjQYoCfisUVY8axNiiVc9K90Ga0n2idopbCOPT7WQxtMhaRkPIXyz4Z5piTa/1HtPomnFkub6MyLwY4gXb4YHT51zrtj28/GaTf22k20sfexMgmZsMAeMgDx+day5YE45I86pNYN7IIzGUjUHJGOp9TQ0xxb72Y0GQdmbWGf97Lb7lPngnIwfQED5VdJoVnaxm9v2KwxDczyuTtFV/sx7X6aC+m67MLe4cDuXlUqjKByC3TPB8a132n9pLftBdfsvQps6VEQ0ky5xO/kOOVHX1zXJOLK53bsvLPWInaLVH1fUGnOUt4l2QoR+Vf6/fhUbT9Vv8ATwxsLye3LHce7cgZ+FU1o94FMMn72MAgOeGX4+dT40Cdc59fDwrtkkmo5crv63fSPaXrVlAI71IL9V/xyZSTHqRwR8q3fSO32iapJHC8j2k79FnGFJ8t3T61xUDHvEE9fv78qeF90EjwzVRFxj6JYDGRzkcEGlMK0D2a9pGMo0W9kLJJn8KzHJDAZKfQZFdDlXBximzs0jtQ0bChxQEyseNZrw5NYmw5wo6cnxrh/a/UhqfaG7ZDujjl7pB5heD/AANdj129GnaVeXhx'
	$Pic &= 'iCFnHxxx+uK+fbXO9UZiWJJz58ULxWk67ZCB0PzFIaIP+ZA3lkU6TaDkHqP82cUmR8I2ByQSMcZ9BVGhXKxNOIRH095v7fr0ohbxocbBnp8D4H4UMXdGbI3EnheefP8AhU3rwQAB5c/H+9AJWEFeFAHpQGAeGQPv+9SPHofl99fKlyNk8df0++R+tMI4BeUAdB9/fxp5kVZViAJ3g4welV17dtZOjqPcaQIxPXB+x9KIOXvGOcAJ1+tOU9J9rM8UokicpIrB0YeBByK7r2a1b9uaFb3xGJCNkox0ccH5ePzrgYdVwCQD1wfv5fKuqeybVRPp91pboFaCQyxtn/uKwGTjwweKpGU6bo4peadIvJpWKEJdeHWhzXi21Sc81ibSPazqi2mgpZA/vLuTGB/kXk/yFcdSYxzIQx6/8a3H2q6gZe03cTSLFFbQqqEsM5PJOD4dPpWizIZEYpJFKuPzoetNpjOmwIZO4GeRhi2Pv7zSHkTvVjBY7m909QMA84+VZZtmnpO4AeWMbPe6Z6n9airG0i702qrNgEeA6ZH60zSEUKrMcmQjAJGRkZGakKTwxQgfTGK9bxAIMt7x6qcn41GvrjGY0yRnBK9c8cfrQQ7u9t7dMMR8KrJNTlYHurdm56sdvn/evGH3RIWyX5/KMnjP04psuwFy46dB13E5wPqBTPSr1CW5ubdjcRRJEuWDBjwcZB9fhTLC4doUJZVkmX8x9OP5U26jZ4S0pDDafdA/L4fXgVD0c96rF8bkwoTxAB/nQpaRRANuYs5z7zZ8fGt79l7se1UIRtoMEgcDxGB/MCtLUbRgjHwH394qfo2o3GmatY3Vozd8lzGu0H8yk7WB9ME/SqiL2+gpKQakSHPOMZ8KjnrTZH1hjheuKwTQSNhc+tYKcT9o2otcdpLppLVmS3HcfmXaQOc48eprnV0Yt5a3gjX/ANZKMPpXQu3FrLB2iv1EWwyS7i+MMQemOK0zUYAWZDI49WkJ+g61U+NcU7RDJPpVoHJITK+83+o1aZWFEVEckcBcj3jVbocUkWj2vfI6bgXQOPzBmOD8KkPMTKki/wDjyePMjH60CrC4cQqxCAEAAnjJqrcrFMTKQoKjHx4J/wDrQ3Fy9yoVX9w5zjy3cUuGMIgGFZjzndzn7xTLQ2cHOwEbHJOfLBxxS3YM7yMfdydufDB6/U1iRhKXy21F53Zxn4n5/pQgmTLAFUY4UEcseB9KZvStuyTggHCAjJ6dTVTFHGb6beWilU7g2QAfSriXcFOeWZsk48B/fNJjttMktbqW5mb8ajp3Vv3RcSIc5OegwfPr0opigcY3BZWQHqp3AfT+lWNtOI5UuYFVmicSFCOTgjj54/WodtIkimGOQwkcBSm3PHgDxR2000M8UdwuVkIQOBwMnAzVRNfSccqzwRzL0kQMPmKAkZrEKd1bQxjokaqPgAKEnmltiaTQSN7hxXmalsfdNZKco9pkbN2iU7WYNboN2cYGTx9c1z/UnjKG3tVjWQgqWXjB6Dmum+1GBjfWFxhsdyyA44yDk8/A1za/tI792giYoEG6VsD3fvyqsfjSN49o0Is9Ss4IwI1i0+JfdHTBYYH0rSpd9xlUOc+6PPJBq11fVbjWrxZbxnUiNY4yBwoA4GPqfnUONVU7IizMBtJRD7nU8+lGM1DL2Kp2P7oJ/L48/wBP5ULEck/u4sglx1PQ4Hr1qRJHFGgeXLtgbIw3JHUfDxFRciYhrjqpyqjgDkeHw8fSqAX/AHkcZOAhAUA+o4J9c4pm7IZhhm6nOQBjnj6g/KhgAORIT7qgHB6Y3URJYAAYHiM8EcfyFAC54znn0+/jUO1CvdsxikcFQuVGQo9f7U25kGxlHOBknP6U7T4/w8O9xiVuX3cef8sUBMaGPulV8FQMjzHjUjTLR9RvrSxj99pplQE/Hk/oTUIuJGIdWJIwp863T2WaYkuuy3TEFLJCU/3tkZ/45+tCb8dYOERUHRRilE815nzSyaGZ'
	$Pic &= '5NATWSaWTzWdU1rt7EJezV2dqlo9rAnqOfA1x6aZbdtxQBAp/L/Txrt2v27X2lXlpHgPLEyrnpmtctew2kafp013q8r3UioTtB2IPTjk/fFRc5h1W/Hx3L45pPNcSx2/4crHDPFvjYv4ZIPzBBGPSl204sIWiVi7sdxYDgn/APBVf2zGmS6437A2rYpGoQpwu7nOKRpc8kr9zIBncMOSASPnxWku5srjq6W8haRjIzd5ITjOfI8fxoMYnU7cZGASevHSs7AtvOBPskjUlEbHXaTjHxAquF7cEZIjJPPKdKfsWlm7BA2WA3SMG8OPeoJCAXwAWO7BXoPKq176UKWaRM46Ko6/1pOpTGXLwNKnixLYz/SqCwMXfSxwY3KTliDjjxqyyYwFU4C9FYCq/QIY4LQzu6tJKc5PUDwFWNwVZNvX4eFKdlQO8j/lkY7ugrtPY3SRomgW8DLieUd7Mcc7jzj5CtE9nfZeS6vIdYuzvs4Wbukk6yMOh9QD4+Y+ddReTJoRlf4LdWN1L3VndTSkE0tqImltWZo865zVPrKXN1YXtmr8zQMIyegOCKuX5FRZo+9Up59PjWOeO+3Rw52X/XzasbpH3cq7XjJQg+BBwR+lKlGBsI48Kt+0lsNO169syOElYjnPB5H8arJUbaFJ56itpetleuivwzA5BK8YwvGaJYgBggZ9cUp7iTveWAGPKnCUDkMzH04qiTdN0661C/hsdOgEt1OcRgkKBxkkk+ldj7M+yfS4EjutZnOoTKcmM4WJT48f4vLmuGyXM0hRIkKPuG0huQc8c/Gvp7swr2egWFnNM81xDAqyyMcljjk5+dc/PllJNVtxYyqOaxt9Jv57e2hhitpkDqkm3Zuyc4B8AAvA9a0XVdIivO0saaPA0lpcSqsxtxujgbPvDI6DHvDPHOPCuran3E0bidFfjO0jPFV2m9ytuXt41jR23ELxn7xVcWd9ZE8012s4tkMKQwqFijAVQPIcVncKQGoga3choYUWaSDRZph//9k='
	Local $bString = Binary(_Base64Decode($Pic))
	If $bSaveBinary Then
		Local $hFile = FileOpen(@ScriptDir & "\me.JPG", 18)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Pic



Func _Base64Decode($sB64String)
	Local $struct = DllStructCreate("int")
	Local $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", "str", $sB64String, "int", 0, "int", 1, "ptr", 0, "ptr", DllStructGetPtr($struct, 1), "ptr", 0, "ptr", 0)
	If @error Or Not $a_Call[0] Then Return SetError(1, 0, "")
	Local $a = DllStructCreate("byte[" & DllStructGetData($struct, 1) & "]")
	$a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", "str", $sB64String, "int", 0, "int", 1, "ptr", DllStructGetPtr($a), "ptr", DllStructGetPtr($struct, 1), "ptr", 0, "ptr", 0)
	If @error Or Not $a_Call[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($a, 1)
EndFunc   ;==>_Base64Decode

Func _WinAPI_LZNTDecompress(ByRef $tInput, ByRef $tOutput, $iBufferSize = 0x800000)
	Local $tBuffer, $Ret
	$tOutput = 0
	$tBuffer = DllStructCreate('byte[' & $iBufferSize & ']')
	If @error Then Return SetError(1, 0, 0)
	$Ret = DllCall('ntdll.dll', 'uint', 'RtlDecompressBuffer', 'ushort', 0x0002, 'ptr', DllStructGetPtr($tBuffer), 'ulong', $iBufferSize, 'ptr', DllStructGetPtr($tInput), 'ulong', DllStructGetSize($tInput), 'ulong*', 0)
	If @error Then Return SetError(2, 0, 0)
	If $Ret[0] Then Return SetError(3, $Ret[0], 0)
	$tOutput = DllStructCreate('byte[' & $Ret[6] & ']')
	If Not _WinAPI_MoveMemory(DllStructGetPtr($tOutput), DllStructGetPtr($tBuffer), $Ret[6]) Then
		$tOutput = 0
		Return SetError(4, 0, 0)
	EndIf
	Return $Ret[6]
EndFunc   ;==>_WinAPI_LZNTDecompress

Func _WinAPI_MoveMemory($pDestination, $pSource, $iLenght)
	DllCall('ntdll.dll', 'none', 'RtlMoveMemory', 'ptr', $pDestination, 'ptr', $pSource, 'ulong_ptr', $iLenght)
	If @error Then Return SetError(5, 0, 0)
	Return 1
EndFunc   ;==>_WinAPI_MoveMemory

;======================================================================================
; Function Name:        Load_BMP_From_Mem
; Description:          Loads an image which is saved as a binary string and converts it to a bitmap or hbitmap
;
; Parameters:           $bImage:    the binary string which contains any valid image which is supported by GDI+
; Optional:             $hHBITMAP:  if false a bitmap will be created, if true a hbitmap will be created
;
; Remark:               hbitmap format is used generally for GUI internal images, $bitmap is more a GDI+ image format
;                       Don't forget _GDIPlus_Startup() and _GDIPlus_Shutdown()
;
; Requirement(s):       GDIPlus.au3, Memory.au3 and _GDIPlus_BitmapCreateDIBFromBitmap() from WinAPIEx.au3
; Return Value(s):      Success: handle to bitmap (GDI+ bitmap format) or hbitmap (WinAPI bitmap format),
;                       Error: 0
; Error codes:          1: $bImage is not a binary string
;                       2: unable to create stream on HGlobal
;                       3: unable to create bitmap from stream
;
; Author(s):            UEZ
; Additional Code:      thanks to progandy for the MemGlobalAlloc and tVARIANT lines and
;                       Yashied for _GDIPlus_BitmapCreateDIBFromBitmap() from WinAPIEx.au3
; Version:              v0.97 Build 2012-01-04 Beta
;=======================================================================================
Func Load_BMP_From_Mem($bImage, $hHBITMAP = False)
	If Not IsBinary($bImage) Then Return SetError(1, 0, 0)
	Local $aResult
	Local Const $memBitmap = Binary($bImage) ;load image  saved in variable (memory) and convert it to binary
	Local Const $len = BinaryLen($memBitmap) ;get length of image
	Local Const $hData = _MemGlobalAlloc($len, $GMEM_MOVEABLE) ;allocates movable memory  ($GMEM_MOVEABLE = 0x0002)
	Local Const $pData = _MemGlobalLock($hData) ;translate the handle into a pointer
	Local $tMem = DllStructCreate("byte[" & $len & "]", $pData) ;create struct
	DllStructSetData($tMem, 1, $memBitmap) ;fill struct with image data
	_MemGlobalUnlock($hData) ;decrements the lock count  associated with a memory object that was allocated with GMEM_MOVEABLE
	$aResult = DllCall("ole32.dll", "int", "CreateStreamOnHGlobal", "handle", $pData, "int", True, "ptr*", 0) ;Creates a stream object that uses an HGLOBAL memory handle to store the stream contents
	If @error Then SetError(2, 0, 0)
	Local Const $hStream = $aResult[3]
	$aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromStream", "ptr", $hStream, "int*", 0) ;Creates a Bitmap object based on an IStream COM interface
	If @error Then SetError(3, 0, 0)
	Local Const $hBitmap = $aResult[2]
	Local $tVARIANT = DllStructCreate("word vt;word r1;word r2;word r3;ptr data; ptr")
	DllCall("oleaut32.dll", "long", "DispCallFunc", "ptr", $hStream, "dword", 8 + 8 * @AutoItX64, _
			"dword", 4, "dword", 23, "dword", 0, "ptr", 0, "ptr", 0, "ptr", DllStructGetPtr($tVARIANT)) ;release memory from $hStream to avoid memory leak
	$tMem = 0
	$tVARIANT = 0
	If $hHBITMAP Then
		Local Const $hHBmp = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap)
		_GDIPlus_BitmapDispose($hBitmap)
		Return $hHBmp
	EndIf
	Return $hBitmap
EndFunc   ;==>Load_BMP_From_Mem

Func _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap)
	Local $tBIHDR, $Ret, $tData, $pBits, $hResult = 0
	$Ret = DllCall($ghGDIPDll, 'uint', 'GdipGetImageDimension', 'ptr', $hBitmap, 'float*', 0, 'float*', 0)
	If (@error) Or ($Ret[0]) Then Return 0
	$tData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $Ret[2], $Ret[3], $GDIP_ILMREAD, $GDIP_PXF32ARGB)
	$pBits = DllStructGetData($tData, 'Scan0')
	If Not $pBits Then Return 0
	$tBIHDR = DllStructCreate('dword;long;long;ushort;ushort;dword;dword;long;long;dword;dword')
	DllStructSetData($tBIHDR, 1, DllStructGetSize($tBIHDR))
	DllStructSetData($tBIHDR, 2, $Ret[2])
	DllStructSetData($tBIHDR, 3, $Ret[3])
	DllStructSetData($tBIHDR, 4, 1)
	DllStructSetData($tBIHDR, 5, 32)
	DllStructSetData($tBIHDR, 6, 0)
	$hResult = DllCall('gdi32.dll', 'ptr', 'CreateDIBSection', 'hwnd', 0, 'ptr', DllStructGetPtr($tBIHDR), 'uint', 0, 'ptr*', 0, 'ptr', 0, 'dword', 0)
	If (Not @error) And ($hResult[0]) Then
		DllCall('gdi32.dll', 'dword', 'SetBitmapBits', 'ptr', $hResult[0], 'dword', $Ret[2] * $Ret[3] * 4, 'ptr', DllStructGetData($tData, 'Scan0'))
		$hResult = $hResult[0]
	Else
		$hResult = 0
	EndIf
	_GDIPlus_BitmapUnlockBits($hBitmap, $tData)
	Return $hResult
EndFunc   ;==>_GDIPlus_BitmapCreateDIBFromBitmap