Widget with png and transparent label

[Peca018]

 

How to make this widget but with png image. I'm asking for help.

 

Widget.au3

Edited December 22, 2017 by Peca018
Ispravka

[junkew]

Search for bitblt on the forum. And also bitblt and png on google will give you many examples to experiment with.

[Peca018]

Thank you.

[careca]

Did you check the example in here?

C:\Program Files (x86)\AutoIt3\Examples\GUI\Advanced\AlphaBlend.au3

You can change the png to whatever, and it works, maybe you can adapt to your code.

[UEZ]

Try this:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>

_GDIPlus_Startup()

Global Const $SC_DRAGMOVE = 0xF012

Global $hGUI = GUICreate("Vremenska prognoza", 64, 128, 600, 100, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(11259375)
GUISetState()

Global $hBitmap_Sunny = _GDIPlus_BitmapCreateFromMemory(_Sunny()) ;64x64 32-bit from string below
Global $hBitmap = _GDIPlus_BitmapCreateFromScan0(128, 64)   ;empty bitmap
Global $hCanvas = _GDIPlus_ImageGetGraphicsContext($hBitmap) ;canvas where we do our drawings
_GDIPlus_GraphicsSetSmoothingMode($hCanvas, 2)  ;anti aliasing mode
_GDIPlus_GraphicsSetTextRenderingHint($hCanvas, 4) ;anti aliasing mode for text

_GDIPlus_GraphicsDrawImageRect($hCanvas, $hBitmap_Sunny, 0, 0, 64, 64) ;copy sunny image to empty bitmap at position 0, 0
Global $hBrush = _GDIPlus_BrushCreateSolid(0xFF00007F)  ;create brush for text
Global $hFormat = _GDIPlus_StringFormatCreate()         ;the next lines are needed for _GDIPlus_GraphicsDrawStringEx
Global $hFamily = _GDIPlus_FontFamilyCreate("Tahoma")
Global $hFont = _GDIPlus_FontCreate($hFamily, 14)
Global $tLayout = _GDIPlus_RectFCreate(64, 18, 64, 64)  ; position of our text within the empty bitmap

_GDIPlus_GraphicsDrawStringEx($hCanvas, "10°C", $hFont, $tLayout, $hFormat, $hBrush) ;draw the text to the empty bitmap

Global $hBitmap_GDI = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) ;we have to convert the result (bitmap) to a GDI bitmap format
_WinAPI_BitmapDisplayTransparentInGUI($hBitmap_GDI, $hGUI) ;make the GDI image transparent

GUIRegisterMsg($WM_LBUTTONDOWN, "_WM_LBUTTONDOWN") ;needed to move the sunny image (GUI)


While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd

;cleanup the GDI / GDIPlus resources
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush)

_GDIPlus_ImageDispose($hBitmap)
_GDIPlus_ImageDispose($hCanvas)
_GDIPlus_BitmapDispose($hBitmap_Sunny)
_GDIPlus_Shutdown()
_WinAPI_DeleteObject($hBitmap_GDI)
GUIRegisterMsg($WM_LBUTTONDOWN, "")

Func _WinAPI_BitmapDisplayTransparentInGUI(ByRef $hHBitmap, ByRef $hGUI, $iOpacity = 0xFF, $iFlags = $ULW_ALPHA, $bReleaseGDI = True, $tDest = Null, $iBGR = 0)
    If Not BitAND(GUIGetStyle($hGUI)[1], $WS_EX_LAYERED) = $WS_EX_LAYERED Then Return SetError(1, 0, 0)
    Local $tDim = DllStructCreate($tagBITMAP)
    If Not _WinAPI_GetObject($hHBitmap, DllStructGetSize($tDim), DllStructGetPtr($tDim)) Then Return SetError(2, 0, 0)
    Local $tSize = DllStructCreate($tagSIZE), $tSource = DllStructCreate($tagPOINT), $tBlend = DllStructCreate($tagBLENDFUNCTION)
    Local Const $hScrDC = _WinAPI_GetDC(0), $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC), $hOld = _WinAPI_SelectObject($hMemDC, $hHBitmap)
    $tSize.X = $tDim.bmWidth
    $tSize.Y = $tDim.bmHeight
    $tBlend.Alpha = $iOpacity
    $tBlend.Format = 1
    _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, $tDest, $tSize, $hMemDC, $tSource, $iBGR, $tBlend, $iFlags)
    _WinAPI_ReleaseDC(0, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteDC($hMemDC)
    If $bReleaseGDI Then _WinAPI_DeleteObject($hHBitmap)
    Return True
EndFunc

Func _WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
    _SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
EndFunc   ;==>_WM_LBUTTONDOWN

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2016-12-01

Func _Sunny($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $Sunny
    $Sunny &= 'iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAaUElEQVR4XtWbCZQV1bX3fzXce5tmHi6itEPA0PpQSIgdUcQgQcSWGGk1PFECapAPjJHIA4xG4oADOESNAQRpQVBmmqG7aRARGWRoBCE0k9igTEIDPd9761bVOV9Vuurd+3Wv/pr4lqyXs9Zeu/tU1T37v/c+++xzahc/ZAuDAjDlAX72cC9a+n3U09LCKAAvZNHpL/35UaLv37CFPd49HaJ/49DWMUwE6BBGq19Z0LczVP6V/duf5jXvfp1/w5YAFKZR6UK+M3I5M6IbLeuzarqnmMWP8iu5Hrn3r0z37tX4AZv6vcB5lkmjYfekLQiVSLAlrX91J1kAwVBdUAdApgEZN/EgKpACAISot/kelaSkC29lZ3D1/+sBGTQ6O4Mj5lzkySV81gUAlDDJIFABJg3hqvhqquPZyH1v8n5DHuCOfUE9wHfdkb1o9Y/xvDikN+2OlSDS6xcSDFA1VNOAtk25edQT3AjIpmlJY4dQAXrfyGAtTio6ABYA9XhZehq6O3b2A9y2djRP+Eq/IFMgFsO66gpGjh/MxjG9SDtQgl2/ElBcUjSQMejRjd8CVBooAOEwSvExrEE9aJx+Bf9pVIIaBKASoD7wB5xnsofy6wd/RcGlrckACIVRf3i394AW/Y3pcieyPJ+isb251BNMqzMFuhEo/YCDsfnIyDxkbC0lo++ine9R/jM5ExgoP0VWziZmLUbue5u/evfotcEDzBxJlrmZuNyMXPgYv/bH/8E9oKnHt3zJbHMHpKTyH888xceuEhyr2HWFwEbDRAchiYdU2txxC1kAjUNoBwxkByCjC0OtCChBTyqtfsvPeoyswUOZZ58hcLaQ/XO3UABw7hjiQq3vSu/OUDKNjdHpyPg6ZOU69o7tw0W+Jbz76NcNrXQee40cZGQxZjwXeXY1W3t1gA4dCAJMGk5XayO2c11GlhC3lyP3TUn2AEjvUMNnPU6W+AKreilx633kpud50s8XLsgyWOJF7bVFUFjMe6HmEPsaIyXA1c88Q8HYvrR1PaGtJzAaKBoSlwdQLRPZshk/H/kQdxQXEwcYcBsjVBsVFRsNBQ1UDQkQBDp3IHCgGGvWKPo5lp9vnESRpQREI8pX7+YjgDjfy/r1L2H1R9TEYLk7yIlafBtoQsg4jJkS4ifjn2HVuH60LSrGIowWDBJQQqSggacEzCq443amTHmCXhtn8Icrr+SRWAUoQTT/PhkkBNCkFYGiYswPnqDv4AfJMU6j26XYKc2g+BRLnlvEt25cclcEgPrx/OtNcd2qvrXWd7nC13hJLEVWL8KqnodpbUNWfc7O8VlcBjB5DNfZGxDVK5zr+cQjBYhIHtLYjJRfI+39yMjHDuVjO9dN9x6jAHnuY3YM7IkGsPAZ7rR3E4l9gozMx3bGknYOMvsxevh5RD3Jmpb2faZGz3QCDvnASUtDS57XyYNOHEqneA6xyBJkdBkishjL3I6M7eK7fUt4s3Qb/3BjhLUG4aa4Yp1Dn2FU5XPuXD5nKws4Jz4l7vRJ97r9KTKaj4hvRX63npziXObKA9ixde5vYztj2OYy5MkPWNelQ92kKuwaLg097MkXBvp0Rs9Ia1ARiaxr9194v/wdDq1/kj+OzODipCVQ/eePg5K8JB7OZpGVh4yswIrlO3w5ZnQ9ltyPlDuQxmrOfD2fxavf4LE3/0DP5x7isoF9aBoOkzqoD82ffYiOM56kz4Z3ePKbhaw01lDhKkPsQli7XQ/Bjq5ARPOR1cuxpMPzn2MwgANWw+WebHiydQNez+JnO57jregUzi4Zwd0A9eYryVadci83i1wMV/jYBsr3ZZP97hAyuuE1T8uOBQIAc8ZypyhARnKxI/lYsdXYci2ybDlf5L/Cg0P60Rw/dU4Dwmi9M2j6+EDadOtMqtOnhMOJ3OHRLNp9+hZPlK7goPwEGS3AjhRguZ7hKrhqGceG9qUF'
    $Sunny &= 'QGcHdFrS0puVRqPlT/Kbkzl8am/BlIXI0hlsH9iF1PPKFv05P3MEfYwPqXI0L+1tCLkT8V0uG5ePZ1BWB1I97asALw7lUmsV1VX5CMsR2PiE46veYGifDDSAvj1I/fBZBhS+x9Rji9lyainHHCovy6fKEfTcqWUcOvgRqzdM5oVJj3J9N2/63dObRtveY4y1jor4J8jqlRjWx8gjc1gFAGiEUdIAJ/Beuvktnqn6jMNyFzK+ASu2GFk2g8Kx/WnzL50tpIe9bGsYfc2ZRKtmYFctwbS2IOUeN8jx7fZpPPfiIK7qAOS/wSB3nou1yONLyBkziIsAHupPu41TePnMCk5EXUt+jojsdPh+ZOxrhxcjjUMO3+vQFw5tQFatRp7IYcfyidzfrwcBgFdH0qmsgM32OmSkAFm9liPPDeXyvmFC2aO4+cA85lg7qZK7kYabk8wlZmQjy6exfWwmbZO9+7zJTzlnPUofawEVkQ+RVXOIVy/BMjYi5T6kuYdYRSHfmkXE5AZk4bu81L0zhMOwdCLDylZyJroOWb0LETuBFS/DNMsdfg7bKEHEHTLOIMxSbLffOIcZPYKo3oZwFXZyOdveGU0GwL29Sfl2MXPcdDm2ETtWRFlVISfkPoRwgEfXIKoXYFbNxjDmIStms3HcXTQDSK8ffC2XqD/17HF/L/Li0BwQigShI9RmaEoKMmihbt3D+BtG8sJdPWny8gim/+gi/tNsjghehlBDqHaFQ+UgoiBtQJJoKigBUBuD3hzUVGyzDCm+RSeC+fleRvUdxeTMHjB1NNlpLXnQULC0ILpViaDalQlNgK0r6EaMTS8uIHPiUiocDKqDQTSkgIaVMIoeD/QmLy5ojoZQNFRbYKWkoB/6jsnpD/Do6Pto5bj/siap3KRcjhkMo1lnUc0zIE1QdFA0D3DSyFICNkiXBKgpEGwHaiPs6GEIlqFt2cdLvR7l6X7dUWeMY0W75mTGIpiqSgAJ0sbWQYu54Oc54Jc0CD6hgPNVwgej6THoFvJMaC5VbD2IFomz5aFJ9Dx1Djn7GVZe1IZblSsx9RAB4xsQcVCDNeBRAcUbVPFI1pDE4zZIC6QJegsItkfGjmPrJ9G3HWTcL0YyaewDtHt2KJs1uEJYCGmDrqAaUTZNmOuAX1QHfMMKCNef++MtN4GiY5iLx5M54CbyIhakNsKYsZKbhk1i++7ZvP3j9jwmO2JqOoHYEVACSVZXarii1FF7QgkuCUDUcBGrUV7Kj5DRY8jgGdScjdxx31/IXzSBe+++mQXRCJYKuhnn4MS53Ogo4KybtDng7YZxJY60lNq5tH9YEQoBQBAoNtDCJZhffET+pe25/atjvNXpfkY5S9ztA3qQL9IQgaaoscM1bowLXvWAq4CvCIU6TUogCby0PTJqng9dgTCKUY0zfDVuGtfPWE7pyWXktW5Cpq7A2kIe7TOOyZ07ECqPY+K1Y8eQ9S33biDWvSMt+qWBdQwAVI+qS5AbkpTRxQF//yN0bNKaztLGXPgZb2Z0hlu78axoCoHmSOMwKCF/F5gE3udKgieDVwSggFRBsUm0EMgYxE+g6u2x9Bg/fuh2/ugoYPwnX/DXQb8k0zKhYyduGJTBtF2FGMe8yRUG+nhYAISHS3SAXZXYJYA+bTC9+3fltdBF2Epz4oqK5pDqkGII4ueixFQVVSqIVs1JbdmWq7QqWnxTzLynp3FkwQTubtqEn8u22OYpNJSE2ycTqscVX6JECFCkLxlge33J0yMEdiVoTdBEK7j6MoaNyOLtl+ew5vbubGmq0z3tcu6fMZ1bzp3iUGUEoQCqhDapNFZBkQIcskUcoZylaUUJh19fwxD9RClHtABnW11BHyTSjKMItcZKjTRo09IDoINtgXESK1WFncUsAvjZlTwomwI22FWgpoKi+JZPAq97XEkEQ3zmub/0p4edrBiQosarzDMoehg7tSntBtxM1pQlTNt7hJybrqF75DssvSnt27Wm/SVhkCZI'
    $Sunny &= 'u0Zm4U0tXSK1VijxIFbx1+QfLaNCfzaXw8v3cuv9Xbi697U8fGUa9zVO5RITiINtqFiqjqboKGhINYgeD1Kev5m1QzNp07o5PWUqiApURfct7JEP3ud+X+1AKBOxQSYpRWqA9BQhQcRBxEBpDFeE6Q9M23GQj2/szERVI2CXI+wzSCyQNkJYCEUSCCmoig1ny9i562veW/oFCyZv4mwYFHe/z9FK1NFL2cdS/uvhPjw34DoGOJYdFm7NjYpGyBRgq9iKhqIHoaSC/dNzKZ0+lv6hxjSzQYgYqhpMjva+tZPBe7xWDPCtj2d1iT8lPKUo4E8tGUEVIXCm43X39CY1bwtFD2dyNKBxqZAoKCA00CWBgAKWSdWh4yxbv4dpczaxaUMRtnfWoVWWYKvHSpCUIJwO1T08mLGGyv6v8MGdL9Hz7RVk7PmGKUJyJjWIBghVgYjBQYArLqarGgBhICBhRVxKDnh1qFZ8SFJM8nOKUitoqiBNEDY0SqXdtT/iytVbiFdEOaKpIKUrH4ojqxox2LdpL2PGzyX91hd4YPg01u8vcgM+ehpQ7IAv8YajpKZDOMqw0kBxE58jlagvZ7Oj62OMHD2djtsO8icUTFWF46f5FuDiVlwuFJCmB7w2+WCUJK7WVYqSfF8ScJIV4hESRVrY7pS8pDVpANURvlNUUFU0U3B44QYnV3iVa3s+yWuvLOIE1BzoAPKAg/FYUiKuU6u5FzmGFQaahtGagrJ2N5Ep+byy6hUq+/bkncooZwEENPKzN0Wt/SYEqEt1req7v0/U/dvnPgnLBQsXtaKxd63KixvRt5fQ/6ls9rkHJQ7pGAjX2t/rVDgQgngIec5AArRqRaNksVQNpAXYfs8FIAVkHJB1x0RH1QKkAMQNzqvpUDdDCoZQKw1sN51MA4b2pf39Qxh9zX8wUp6Dti1pA2BZRBAg62a2iehdi6TXL0WtB3wCkA30CRQh4dQ5qgCApgiQKqFRw8nr0oE/vfsuC5cWE/GP8lqFUM85eEpA1vGAsHdWluYdL7vv6q4Poc36A302LGL+yxM52KUrfzROoUoJrZtzOYBzb7GqALIeEj7oJC58npT4iFrX6/sNXI4EVw7EiTMcBWicwsUCkFFsqmjX705mfvghBwqnMnFCFumtShAHDKwSwJ0WSYcjiWPvA948ebQ7F9+XxaBrfsrQ5m25RlhgnkWKSmwlgGpr0DyVTgAnStjpCa8mg1V8gH4SU3uOAzLxd12lSJB+n6ylIIl0I30sxvFdB/lqYB9SWjThCtsGRUMVZchoGUJvQdp1NzD2pz9n1JD7+XTL50ydn0PBomJi/gGwUYJQXYu3CiEmD+TGvdOY+fqr7O3xS15LCXBN1SHM6AEMUYqNBoC0bWiaylXD+hPetJutRpxzikSVAulQYkvr8mQLJllb2smUuIbwwPok63qDO46uQEkphUs2YPziJ3RJCdLeFoArg4pEgHUSs2ovMeMYWruLue2e+8nJfpc9W15h/LN9ueyYtwzqz/an88hf8mH4OrqSghSnUMxvQAPcPT2NE0mMVMGw3UMQmtxxI33ueoq5Tw9lXft2ZJkCoQg0PyDig/LjlV4r71dqz20ffC2l2HUVpqqw52tWAGRcRV8FkAJTUwjoiWxUkzYBIiC/BjMATdrQ8fq+PHv9tTw3qAfvP5nLcD2tBS0jgu+K9nBGKcFWNHSlEdVomKgo/jotNWQwSMolbfkpkou7duReYO6GL8m+rx9Z0kZxKHlTk7z0IS1QNM/1ZfJmyFdAXfCytkcIpCLRYgZHV20hp0s6dLyEu8w4BHX0aJT9R06zX9qeNyY8S2KRKg4SlCEsvRkhIZFtUkhV/pVymBKQ4x8gPOpeNrRoRvqr87h63Lvs/2Yxn7Vuzc0W2GoQDR0Uj853O+yDTHiBR1YNxwQrjpWqoX9RxFM9RvDy7GfIHNSHPGlBUTFTx01jxBdHUEpKkJxn09NAJewbo/6jsiDQFLQpcyj5XX+O'
    $Sunny &= 'tmxB+oBf8ISjgEfyPmf80P6sFQJFsf2gl2RdzVv6VN9DzvNAxAdvgbCwddBLK9j16ke8RRj6ZPCEbYGuQEk5+woKoVs6oRCY9eCVSXiUyhLEeXtA5w41b2kXv8S9A25hQeQMMrUFMvtjbvnd86zf9h4vdu3EU9UWphYg4HuAb3mXOK8jMQ+0z22QJtI2oZGGNTOXPiNeY33BZIbc1pWZkUosDXQrlW9f+Ts3TJjPicSRWMNNo4HmFyfsK8aaPZq+997Ngvg5dEUgpES7uhPdTpcz+4OlFPwygy6tm3FN3MJUFLRkgLIWyETg8ykBHDtheWkhbBOZGkDd+g9+f++fWfzcSDr89jbmWlU0USSKjCODjWlxQwa97ZPkLNtBlauEsxUJi//Pj8Uf57bBQ1kaP0uKqPTO+iVmqDGBkwYfPvgnHhCQOnUcCy67mDsiJqYaQFM1VLTkTU89oyYlQb4ChIWFjeqC37ybx3v9nrcze5Iy80VWtRLcHI9iKhBAgIhhh9qjRQ2+fOFFbpu0mtPn4wnKeYLPGjyEeUYJuixHKikgQGo6mgSR0gp172ne+M3DjL68E4FXhvNmp8sZadhIW0FoNdtejWQFKHVXAaQf/LCFDUEVDZuqTwp55NdPMjezO4F3X2L+JSEGGBVYmoruegcCWxForhKCl6HHYo4SXqLfpDWcakgJDb8ae4wsUYgVzceumoNRvRjbWIqUBcjoCspKl7Izkke5LEQe/YR3MzMIACx+kbvPrOSb2HpkxaeI0rXYpeswy9ZjlW/ALt/okfN32QYsp990r5c691atQ0TXIQ8vZtVLw0kHeOROmh9dxwq5DRlzxy7geGkORfZKTJGHjOUgqxZiua/GzA3IyrXs/+/qtfOvJK1biia2YFXnYFbNxIovQgoH/Lm57FnzEr8flcXFADnPk2kWIK2tyDObWTfxMToAPNyfZp/9nT+eymW/Cyi6Hln1GbJi3f9LlQ5F1tdcr/yE+OFFfDL9Sfo7gVcBmPpnMqp3stfegoytRJ5dxqFR99CqZxf463Cu3f133qxeRIlcijQWICuzMYxPHf6xo4ReXFpPkXYDr8eH8WtrI/HoYqQ1E2nOwzj6LsvdWNA/w6vcSn49vppI1QqEuQlpF1FWOJ8xd/agEUDPbmhTx3DTxilM+GoBK0/nsedUHkdP5XP8dD5Hji7liz1zmLf6TR4ffR+dwmEAGN6fVruW8qrcj2G4ysvFsNYgv/6A1X6Bxn/XFGTScs1z/J+SbL605yONGdjGGmR5LkVjetHew6acV4XIzEH0F/kIezmycjInt73IpAkD+XF6OJEUpScVSCyZwN1yrVcgkYsVXY0t/4Es38GBzXMZM2YQaZ7ACi6vITVMDQCHSL4+YQTpO5bwSmwPJ8SXSLc4wq0hiq5ERHORsdWcejyLsF8g4cntl+drM4bT++s3WRSbSrVcg6yYxYHh3WntK6FBBex9nqkl77Bl6WMMfrg3zZJLZGrVCqlpwPHlrLBWISPLvBKZPCxHUFt+jpRFSHsfkVOb+bRwAc/Pf5UBz47gJy88wmXPD6Pd849wxfOPkrHgdX6zfTGvlm5nq70fw1WgWI+0CpD/BJ+PiOYhq3OwpNO/8nWG4W1vE1WnfvmOp8h76LjhKcZXTeVQzgju8uNBg6tAjw4QBwqLASDpaEkkl9O4/08axrVPDGZHvARd0UEq2LqOFhcc2fkV2Y5QmS1a0l1pgtCboBLAbzEJAtAUCAIKcbCqwKxAaDbqoZN8YEsqOl/K7+ImKQgENmgB1CqdrVm/o/u6YxBOetfnH+XFAXfH5xV9ETN9PA1Twtr1fhOQKE7aM4vX7dXI6vlY1W4lqDttctj49H20BnhjBNcYKzEjK7CrlxOvzsWKrETEPq6pCLPcqbMS2+2vXoHp8Li5Cnl8Ppu7dQCvBulmO4+yaE21qVuOJ+x1yJlj6e3LUl/Nk0P6v3xgF/aoobL5x/vRJrKaE9H5yKp5xI0lyMoF'
    $Sunny &= 'bBx3r18Uhd4vg1DpEg4Z+choHrZLxkpk2VIOvj6crvkv8VuzADPqXs9HRHIx7QLk/vf4G4CjhEYA7qt5axllkUXIqo8wrFzk4Xl85AfD/wme750jrH2VEXIVsmImMWOBw+eycew9NPOCkwaQmYFWtpAiYzkyuhw7sgwhCpCzxnALXts1hdfEypoY4pBp5yEPTE/UCnf2xnOLNKzFlEXmIqtnI92PK/4ykI7+6nVBaoXDgJsd9kqDLlfyUOwchHRC/yxLWUjmJK844bSXfVmABMXb1NgBBeXUGTa8vphPHWBBgFWFvGdbxLHRsJDYIEm0Imc8V+lD3mTTh+voH1Spcn9Li5F6+00MBgiGULkQzU8oZo7iVjMXGZ2BrMhm6zgnU/MLkmp9L6CWzqco5rruAuJiOTL/WR5O8iS3wJGj77MsnuPeQ8xy+L6pCQ+ok52OpK85m+rILGTlUg4NyqCJv4z+4B5Q6fEe6fxWrwYjzvYJS/nVxOWUu0vMgbqFFhoWQWxQJYFohBN528gBqDawHVDuFyNsP8D7AUBaKNiAoE474HvCZFZ/+DkDNJPqVJuOd/UkE6AVP6wXJIJfb1qKGVSVTeHLsZmEa6+vtTwgtXQOR6MfIq0FyN1v8JafcyTfd093QqWz2B/9CGnNR+57J+EB9cWg7IfpLWchD01ksf+bP7QH+CS3fcX40R/Re1I+Je5yc6D+108SicQGbMS63cwCCIIEKAHpLlWLtmDs/ZY5Ae/VFzZN/Oehrie4zzw0g7XT19B9VzF5AEYJggvZwqDWk1omPKALjc6+x5H4B8jjf+fjLml1K7z9CD4+i47RmVTEZ7sfTpJ9np/NKVzYVvfDyQY+hW10ZjKH5QfIvP/ivvp2ZmHQAL56jY/kbGTRyw1+OZqc7Gj/az+d7deFlNK/czo6ne9G9qZJfRsSH8TsR+jrKmvvi0kK+Hds4UR9IeV/Y+/Wp/mzD7Shj63PvMmO7c/wyr/1x9PJXvB0JukDM2js9TV0v7vKXDqiF+0SfT9c+78nVGPihmLKtQAAAABJRU5ErkJggg=='
    Local $bString = _WinAPI_Base64Decode($Sunny)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Sunny-icon_64x64.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_Sunny

Func _WinAPI_Base64Decode($sB64String)
    Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
    Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
    $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
    Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode