Transparent gui, while using animated gif

[Rex]

Hi

I'm trying to create a loading pop gui for my app.

But I'm having problems with transparency

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <_GUIResourcePic.au3> ; https://www.autoitscript.com/forum/topic/100167-_guiresourcepicau3-udf-supports-gif-animation-using-gdi/?page=1
#include <WindowsConstants.au3>
#include <ResourcesEx.au3>; https://www.autoitscript.com/forum/topic/162499-resourcesex-udf/?page=1
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$hLoading = GUICreate("Loading", 64, 64, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_TRANSPARENT))
GUISetOnEvent($GUI_EVENT_CLOSE, "hLoadingClose")
;~ $idPic_1 = GUICtrlCreatePic("Z:\Loading.gif", 0, 0, 128, 128)
_GUICtrlPic_Create(_Load(), 0, 0, 0, 0, -1, $GIS_EX_CTRLSNDRENDER)
;~  GUICtrlCreateLabel("From binary image!", 0, 370, 240, 60)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;~  GUICtrlSetFont(-1, 18)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func hLoadingClose()
Exit
EndFunc

Func _Load($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $Base64String
    $Base64String &= 'R0lGODlhQABAANU7AAwKDOXk5RASELW0tYSDhP7+/h8hH/v6+21rbRsZG6+wr////yooKv39/cXExebn5vj4+Pz8/HBxcEpLSuDf4I+Oj9vc2/n5+Tw+PC4wLoeIh87Pzvv7+/X19bi5uJKTkvLy8uvs662rrdrZ2lRSVOrp6mFfYfb39sfIx728vTg3OL/Av+7u7u/w7wQGBCQmJHRydJyanDQyNExOTGxubAwODBwaHCwqLGxqbBQWFAQCBP///wAAAAAAAAAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo/IpHLJbDqf0ChxERCJAgupdlti6L46Q2lLdgYAYDAgUG4jF940mJF124UUuZxyZx5GIxdKA3ppCn1JDxNoOgATbEeEhV8DiEcOjGkADkcWk18WSREOBBoOEVoPmXJrRgsGkwZ1RiEJaQIhUiSfOhNHZ3oAfEcRtnIJqE8nq8EnRw9xXwYPSSmTHlB5vDqhRwVVIhSzRxKTElCe291l5YUIUB3MrB1uHtdRE7y+bgWwcgYFogArJOwOiwxpMrTQginYCkQFUhAg4CHglgAYGAHAAMlSnw6A6HkcSbKkyZMonxSwmHILhAoZN1aA0DIKCmO3UNR0MkDeF/8Ah3YqAeFTDYiWDT5gUPGB5RAC23QQSHkgmg4Ggojg/CQg5Qc9FYgcKKrpAEqrXxKIJavG7El/aQwUERC1K8oKejQU0RB1KsoLVg24HUKUF4CjKRtUyJDhQ7IiCooCFcrEAV05AjhRZgJBgwoAADJooLn5SYMGpVOrXr3kwAATAgCYGDCYNZENW78I2GCbCAHJfm33NFyJNQS2P7PaWalFUtTibRpIAC0BNZR8UXWQsNPuyzkouT/JbRNhFQAOUC5HVduGg3n0T7BH3e4GQZp3UBRk1xGUPALQCMD3xHFRAUCaHadtEdk2/R0RQi4t/TYJAASMU8R/AOCX0gbqgbElmxIDtdLSAQqYABoJAyiHRAkaUdMbEhhq+OIzLs5o44045vhEEAAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo/IpHLJbA4Po9HFSa02HxOATgeYBKzg8M6h3ZoBDrGa+Sibz9+13Eh623WTObVQUJ7cd1wnekoQFRgAABgVEEcUgXYWhEgoCXcCKEYWkG+SRwsBIiIBC2EDgG8ACkUdqHYAHUclDG8GJVYgrqkgRROceEcBrgBxTgS/WwRFwpAAFEYLtIEMpU6WyAJGZHcAK46/z00Huq8HRgGIW4rFRQO/q+LkqeZHHVGxSe6cA1QCyDrZ1mzi5KmJhn/K1iwwAMlAtSa5fgHgJYfZq3BUFJBTReiBtC0GHoRx4M+OgDSTCoQSQeEhGAgaVCTKoKHRpJtDGjTAybOnz/+fhA4MMCEAgIkB9ICG2XDtjYANSsEQ2JgwapNTEvlZjeCAgAYHEYpAkHdmitIQTQGGIELj3xatPyOk3ZIgrJAXbnWQUJoCkochLvIaUCoBkgTAeRMQhoRgCF63e4F68DsER154PwswtGOgj5Cx/wDYBMoiw5sMLYpoRIZZaYEUBAh48FxkajMCLq0u2VDSKVTdVQ4oMJGIxACzwJMrX868ufPn0KM/b/ABg4oPtNWEWMvzwEcdDJCHQZCoMc4PdyqosUgM53e6akqUASDy5uZaa8gDMH+zwh0NcjxQH04XfGdAUrrx4UQDFWSQwQd26daABIlIsJN0SBRmxmEYGhEjASAAcNBhERyAKOKIRCDwBn8oChGBfgic2CIROs1o440zBgEAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPw0IByWw6n0xIBQMAYCoQqHYLRSV04LAAxS2bhQNAeK0DKM7wJ0jNXgNA8fyRUK8T9E8HAyYCACYDB0dffWsCgE0bi40bRQd0jGAAiUcHIyMXcASXbAB/Q5aYYZpGDxN0ABMBZWmpAANEAqlgjkUO'
    $Base64String &= 'o5kOWxC/fQCgQhq6OqZDD8SZslADymC3QnO1eEQkqRNaE9Q6JEQKz21vRCfmmSdQkroGvblsAsFFFMoWUPPKCUYQGlRUyaAhixEL+aCAozYOSYMGTTqsa9MBioJw6OAsZOQNyjBlAAzCCWAOAIUt5XRljOOrDoAVZUQxKrXgUQAqmTBEK7OBnxj/So+GdPBUMc4BBSaqkBhwLKjTp1CjSp1KtarVq08WBBAhIkBNrGdKMFhjoATYMiRd7jwSIsRZIQvG9mHw1QiCKgje4sN00kjaNmutTsO0ckiJVw/ODmZkzS7etwgx6UPyIPHbBQYYGaj7tslfO307P3kgF4wBy6KhFNgqggLn1LBjy55Nu7bt27jjRHBAQIODCICUSA3xToBbOA0kVJEA0WmEd2ASAD8jYY2EpykYeTgTYRQADk6r97luhoN38EHF18l7BsEa9kE9aIcT4S4ABOiDFsjMxsCSOA9p0cAHGKjwwX9MsJDBGhm0ANYBpenAQFNIFJACAQR4gOBVH9RRJ0FuQ0QYHYhC8EcWiTtUUIcGKF4QoQGbkNhABRlk8MF0KOaoI21BAAAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo8HmEynk8Eux6h0Sp1uEsysLrGper9fAkCrBRDA6PRwMCaXB+p4FdJ2l6HyvHFgt8P1gEITfW4kUgUFgV5YhFoGRhAVGAAAGBUQilICjVoJRSiMWgIomUeDnEyGa3VkAAqlRQqoTK9CIKxuACByISFSdKgAmEIEqGdqCJQIUgq4brVCoYQCagFtAAFSYn1mC0MHzrkHaSXXD1abZAJdRODB42nJAMtUBwomlCQDeEXpjdRxHpwrpcEYLD23Guk6qKcZN2gM5Tjwl0WAg4iBIGhQQSmDhmEYFTVoELKkyZMoU6pEMmIEv5VgHky4NiEbTC8OnAG4eCjRyv8H4XRgO9JAAiUJJFOSaDThiAQtElKeCMoEwIkiEVgB4ICSAioLRTho5XrSwlcjCLTQO9mBqtAORiLIQ0AW5ak+TaOMhGmNG4WbVHLmWgG4SoBJVTHYLFylQ0u4jCNLnky5suWTCwKIEBHA22UiJRg4KpGnwQcMKj74zNS31WI0B0RnYfBSzwLZbhh4RvPBTYVMXgn9TYM7iydFfAhB/GLAzSPkjf6gqeBGQyazhMCmuVDcADwpERwQ0OAggpQFze0Y2I2mQYUMGT6YnxJCmgBfUVqXGV4ygjQmCcx3xAPdDWRSCn14MEUBmolAAXslPWVHVJ9J6MZalnmQ4Gc7FJAaniOrXcZCBlpk0AKHQxSQAgEEeBAiijDeFAQAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPyKRyyWw6n9CodEqtWq/YrDYU0nqRCAAAwTwMTAKAaXD4LgMAnQ4QUG4S8rxOsHEnS3FzD0kEgXpyAAR+YGJkSAOGh4gDVAUFUA+DSBCRkogXUQ0SYhINWQOenpRQEnoSWROpkiRQEZEAHFh4snoGUBy3uVcCvHoJUQh6jlexxXK0tWFjwlcKznIKUw2mWpzOABCLUgqdktniUoWpiQvoUxvEh3zuVQcKJmIkA6D0/f7/AI9YCjgFQgUMYjBUCEewCYpdegSgaLgE0rpzRRp8wKDiwyV/IMrpAQCiyAEGehjwo0fAmSIiHyRV8AdRloAiKA8do3dA5CH/AG2GGJDki6fPkUGFVJCkwV88XjeJXMgpx0BSdxpcGmlQIUOGDxH+heRFkiISchfNJnHwNI8AB2qVQNCgQkwGDQzjLtmmt6/fv4CFHBgxYmXgIQ8mBAIwoQ6VCA4IaHAQ1ouDcgDgSglRU0CXLA980okSoaacBJWvkOA1IUqKVB6wnDg65wSrVK+uUHBm4banZVUs8IbiAbaSBQFEiAjQ7kgH2gA6QCkw9JCBj0dKUNVhoASSZqlaR2GRQU+GFkngSBptRL0nABSmFEhBgIAH7EYWbE/ZvMjl9SvQs5ss8R0RAEKIYOCY'
    $Base64String &= 'O6jIgpFzhEnnT4OprPKXcLL0BtgC1RHVGd9f7o1U4GEPbGeAJocJUUByIlDwYYr0BAEAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPyKRyyWw6n9CodEqtWq/LQgHLXTYkAICk0S0XJbq0TmJuRwBqHYDTLnPg6nm9jIgj9kkNHxgqH1tLEQhhCHSARgcMcQwXTQ1kTyEhVx9xaRV1igB/VZGdCW0BeAABVQadOgZtJaoPVRWvGqCLVhelaQYHew+1Vw0VGRkfEY7Mzc7P0NHS09TV1lUHAyYCACYDwddJGwmvAhvhRwR4rwAERxEOBBoOy88D669yA0Uh5GoCmppBwJdPDiUhEfzFSVDP0YCCr2AMSVHQQ7MJEDu9GIImHxtmCjPqqMGx4ChHAkTmGeKh4kWVaW4MKeCqk4FDjhTA1EGDCIv/DHEytHA2UCUACEUKpCBAwAPOZgoIvlKAjoi6gu0WVCWyIWUnc1sfKTARhsSAg2HTqu2iZa0RCBUwhMFQASmVBQFEiAigtQyKkGkEoJhSwhesEl3uYaUKJRU7VldASI0DAMSTBYYl9a1CQKU7JxQyUrgCOJ+AJw8hMqZyYHInAOCYpC64L8mBESPQFmltNPYSCxktIHkwQdUEyEW8ZjztZEHNVwY2E3EgFYADIxo8N64+2sgD16uKSM5YOcoDwwaIGSGRcYKRqIunFMgrgoJ0IidcpwFwwogD5f9c50hoIgn3lgYqhJGBBnY5AlyBSlgCTQf6ydFBWhhB5F5ajuUDGUB3aVHHzgpu7RCAXPthgFyJHcQQw4VtBAEAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPyKRyyWw6n9CodEqtWq/Jxgej+hSwYOSBoSvrGJewevgxmyvrNdmtS8TVBrrOcE9GHAQaDhFLFXoafUchCW4CIUoXc2UGB00FX1URjHQJhFkVGRkfnkoNEgAAEg1UKXplHmsSbhJUsq60YREAbgAcU7Z6CGocu2a9Ux6uOrBqCG7CUwV5dAaYuQioCL5ULBluGS19DatXBSkEBB7Wiezt7u/w8fLz9PX290MLASIiAQv4TEpI2lMCYJIAxXgFMGhkwUA3DP7NC/EICQVlZSjMwwYAmpEBGHUokIewDICFH0MOkFeiGIAHRyyEtLAxG5IF0/QYkCjvAcz/gwmNaWRo5MFAAz+JGimwTwQFnkqjSp1KtSq8AwNMCABgYkClKgdGjEizZsOmRhumPJjgcgJKLASC8iIQxYFcHQAcYBlwl9dKJw/64n07BYJgXmSZkAg5wQrIkGb+LjlxGO+JKhMgmyHR5CJkmkkuJTkLmQ8TmZ+PQKiAARWGChCMCNBcxg6TDpUBdDCCgnQZASiKZKbNuclwZY2L8FUGYOQQBbRFOinpCsDQISBygxhiWDOA2E7s6gGwwggBzXSfV5YOJUBrkxgID/HtSkCRuMwJQH3SQezuIwesh9dXQ2wwGx0CpJVIgN4ROMQBCpiACgkDJJbIgSHZR5QG6CmVHl1IAGynlAKCNTeVAxiaIYBeVEEwgw1l5DADeGEEAQAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo/IpHLJbDqf0Kh0Sl1GHASNI1LtOkMJnVgnCHnPyEh4LE5w0XBhis32xOMS+lhyVy4CIiIBC0p5ejoIfUglDGwGJUkehzp2ikUBAHoAAUgFBnoGBUoNHxgqH6JSC42HDIRHLBlsGS1KB6xiDBdSFJNiFEkFKQQEHqlJH3oVUgO+OgpwuGMJzM4DcJ90BlIWzhZwFXoaqtmgr2cX0gYHU5iawHENFRkZH29TD+oPlnAFgCIUzvEbSLCgwYMIEypcWOTAiBG7GD55MCGTDgATOElc4sAiGwAONiZ54JHOpoUFjhkh4WxCwgYSAACQ0MDIiZKaTiA0JIZPkf9eznR8MxihJAAORboFHVqQg1GkRDrgNNkBIQI2iYxMaJkwAgKZCKBemioGALyXNZN01LRC'
    $Base64String &= 'pJIAGCwCwKDRrZIOD6va3cu3r98mKf8egVAh7twKEAQLQbGGjQAUggeQvQitL4jJZUH0JRBUB4E7IcxMaexLQJyvALJCOYB5DAB2DQeYEADAxADYSdxdrOuEdefXRTaQFiNgg5IScvdFEdDZNBECkwF8ToJaNRQNnacLkewMwLWRyqVc7q5ZCITWZSMqUhC98vbOYr5bcsCcjoCQRLbCJ0EQggYVMmWgQWJFDOfLNgY1kNYR9XVGjV36dcafXQrA98xe5/1GIIXoubcQF3STSCfQXhu4oIcLxsERBAA7'
    Local Const $bString = Binary(_WinAPI_Base64Decode($Base64String))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Loading.gif", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_Base64String

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

The animation is working swell, and is transparent but, the gui isn't I tried to add $WS_EX_LAYERED to EXstyle but that ended up with an invisible gui

Could any one point me in the right direction on how to make this work?

 

Cheers

/Rex

[UEZ]

Try this:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include "_GUIResourcePic.au3" ; https://www.autoitscript.com/forum/topic/100167-_guiresourcepicau3-udf-supports-gif-animation-using-gdi/?page=1
#include <WindowsConstants.au3>
#include <ResourcesEx.au3>; https://www.autoitscript.com/forum/topic/162499-resourcesex-udf/?page=1
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$hLoading = GUICreate("Loading", 64, 64, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
GUISetOnEvent($GUI_EVENT_CLOSE, "hLoadingClose")
;~ $idPic_1 = GUICtrlCreatePic("Z:\Loading.gif", 0, 0, 128, 128)
$hAnim = _GUICtrlPic_Create(_Load(), 0, 0, 0, 0, -1, $GIS_EX_CTRLSNDRENDER)
;~  GUICtrlCreateLabel("From binary image!", 0, 370, 240, 60)
GUISetBkColor(345)
_WinAPI_SetLayeredWindowAttributes($hLoading, 345)

;~  GUICtrlSetFont(-1, 18)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func hLoadingClose()
    _GUICtrlPic_SetState($hAnim, $GUI_GIFSTOP)
    _GUICtrlPic_Release($hAnim)
    GUIDelete($hLoading)
    Exit
EndFunc

Func _Load($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $Base64String
    $Base64String &= 'R0lGODlhQABAANU7AAwKDOXk5RASELW0tYSDhP7+/h8hH/v6+21rbRsZG6+wr////yooKv39/cXExebn5vj4+Pz8/HBxcEpLSuDf4I+Oj9vc2/n5+Tw+PC4wLoeIh87Pzvv7+/X19bi5uJKTkvLy8uvs662rrdrZ2lRSVOrp6mFfYfb39sfIx728vTg3OL/Av+7u7u/w7wQGBCQmJHRydJyanDQyNExOTGxubAwODBwaHCwqLGxqbBQWFAQCBP///wAAAAAAAAAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo/IpHLJbDqf0ChxERCJAgupdlti6L46Q2lLdgYAYDAgUG4jF940mJF124UUuZxyZx5GIxdKA3ppCn1JDxNoOgATbEeEhV8DiEcOjGkADkcWk18WSREOBBoOEVoPmXJrRgsGkwZ1RiEJaQIhUiSfOhNHZ3oAfEcRtnIJqE8nq8EnRw9xXwYPSSmTHlB5vDqhRwVVIhSzRxKTElCe291l5YUIUB3MrB1uHtdRE7y+bgWwcgYFogArJOwOiwxpMrTQginYCkQFUhAg4CHglgAYGAHAAMlSnw6A6HkcSbKkyZMonxSwmHILhAoZN1aA0DIKCmO3UNR0MkDeF/8Ah3YqAeFTDYiWDT5gUPGB5RAC23QQSHkgmg4Ggojg/CQg5Qc9FYgcKKrpAEqrXxKIJavG7El/aQwUERC1K8oKejQU0RB1KsoLVg24HUKUF4CjKRtUyJDhQ7IiCooCFcrEAV05AjhRZgJBgwoAADJooLn5SYMGpVOrXr3kwAATAgCYGDCYNZENW78I2GCbCAHJfm33NFyJNQS2P7PaWalFUtTibRpIAC0BNZR8UXWQsNPuyzkouT/JbRNhFQAOUC5HVduGg3n0T7BH3e4GQZp3UBRk1xGUPALQCMD3xHFRAUCaHadtEdk2/R0RQi4t/TYJAASMU8R/AOCX0gbqgbElmxIDtdLSAQqYABoJAyiHRAkaUdMbEhhq+OIzLs5o44045vhEEAAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo/IpHLJbA4Po9HFSa02HxOATgeYBKzg8M6h3ZoBDrGa+Sibz9+13Eh623WTObVQUJ7cd1wnekoQFRgAABgVEEcUgXYWhEgoCXcCKEYWkG+SRwsBIiIBC2EDgG8ACkUdqHYAHUclDG8GJVYgrqkgRROceEcBrgBxTgS/WwRFwpAAFEYLtIEMpU6WyAJGZHcAK46/z00Huq8HRgGIW4rFRQO/q+LkqeZHHVGxSe6cA1QCyDrZ1mzi5KmJhn/K1iwwAMlAtSa5fgHgJYfZq3BUFJBTReiBtC0GHoRx4M+OgDSTCoQSQeEhGAgaVCTKoKHRpJtDGjTAybOnz/+fhA4MMCEAgIkB9ICG2XDtjYANSsEQ2JgwapNTEvlZjeCAgAYHEYpAkHdmitIQTQGGIELj3xatPyOk3ZIgrJAXbnWQUJoCkochLvIaUCoBkgTAeRMQhoRgCF63e4F68DsER154PwswtGOgj5Cx/wDYBMoiw5sMLYpoRIZZaYEUBAh48FxkajMCLq0u2VDSKVTdVQ4oMJGIxACzwJMrX868ufPn0KM/b/ABg4oPtNWEWMvzwEcdDJCHQZCoMc4PdyqosUgM53e6akqUASDy5uZaa8gDMH+zwh0NcjxQH04XfGdAUrrx4UQDFWSQwQd26daABIlIsJN0SBRmxmEYGhEjASAAcNBhERyAKOKIRCDwBn8oChGBfgic2CIROs1o440zBgEAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPw0IByWw6n0xIBQMAYCoQqHYLRSV04LAAxS2bhQNAeK0DKM7wJ0jNXgNA8fyRUK8T9E8HAyYCACYDB0dffWsCgE0bi40bRQd0jGAAiUcHIyMXcASXbAB/Q5aYYZpGDxN0ABMBZWmpAANEAqlgjkUO'
    $Base64String &= 'o5kOWxC/fQCgQhq6OqZDD8SZslADymC3QnO1eEQkqRNaE9Q6JEQKz21vRCfmmSdQkroGvblsAsFFFMoWUPPKCUYQGlRUyaAhixEL+aCAozYOSYMGTTqsa9MBioJw6OAsZOQNyjBlAAzCCWAOAIUt5XRljOOrDoAVZUQxKrXgUQAqmTBEK7OBnxj/So+GdPBUMc4BBSaqkBhwLKjTp1CjSp1KtarVq08WBBAhIkBNrGdKMFhjoATYMiRd7jwSIsRZIQvG9mHw1QiCKgje4sN00kjaNmutTsO0ckiJVw/ODmZkzS7etwgx6UPyIPHbBQYYGaj7tslfO307P3kgF4wBy6KhFNgqggLn1LBjy55Nu7bt27jjRHBAQIODCICUSA3xToBbOA0kVJEA0WmEd2ASAD8jYY2EpykYeTgTYRQADk6r97luhoN38EHF18l7BsEa9kE9aIcT4S4ABOiDFsjMxsCSOA9p0cAHGKjwwX9MsJDBGhm0ANYBpenAQFNIFJACAQR4gOBVH9RRJ0FuQ0QYHYhC8EcWiTtUUIcGKF4QoQGbkNhABRlk8MF0KOaoI21BAAAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo8HmEynk8Eux6h0Sp1uEsysLrGper9fAkCrBRDA6PRwMCaXB+p4FdJ2l6HyvHFgt8P1gEITfW4kUgUFgV5YhFoGRhAVGAAAGBUQilICjVoJRSiMWgIomUeDnEyGa3VkAAqlRQqoTK9CIKxuACByISFSdKgAmEIEqGdqCJQIUgq4brVCoYQCagFtAAFSYn1mC0MHzrkHaSXXD1abZAJdRODB42nJAMtUBwomlCQDeEXpjdRxHpwrpcEYLD23Guk6qKcZN2gM5Tjwl0WAg4iBIGhQQSmDhmEYFTVoELKkyZMoU6pEMmIEv5VgHky4NiEbTC8OnAG4eCjRyv8H4XRgO9JAAiUJJFOSaDThiAQtElKeCMoEwIkiEVgB4ICSAioLRTho5XrSwlcjCLTQO9mBqtAORiLIQ0AW5ak+TaOMhGmNG4WbVHLmWgG4SoBJVTHYLFylQ0u4jCNLnky5suWTCwKIEBHA22UiJRg4KpGnwQcMKj74zNS31WI0B0RnYfBSzwLZbhh4RvPBTYVMXgn9TYM7iydFfAhB/GLAzSPkjf6gqeBGQyazhMCmuVDcADwpERwQ0OAggpQFze0Y2I2mQYUMGT6YnxJCmgBfUVqXGV4ygjQmCcx3xAPdDWRSCn14MEUBmolAAXslPWVHVJ9J6MZalnmQ4Gc7FJAaniOrXcZCBlpk0AKHQxSQAgEEeBAiijDeFAQAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPyKRyyWw6n9CodEqtWq/YrDYU0nqRCAAAwTwMTAKAaXD4LgMAnQ4QUG4S8rxOsHEnS3FzD0kEgXpyAAR+YGJkSAOGh4gDVAUFUA+DSBCRkogXUQ0SYhINWQOenpRQEnoSWROpkiRQEZEAHFh4snoGUBy3uVcCvHoJUQh6jlexxXK0tWFjwlcKznIKUw2mWpzOABCLUgqdktniUoWpiQvoUxvEh3zuVQcKJmIkA6D0/f7/AI9YCjgFQgUMYjBUCEewCYpdegSgaLgE0rpzRRp8wKDiwyV/IMrpAQCiyAEGehjwo0fAmSIiHyRV8AdRloAiKA8do3dA5CH/AG2GGJDki6fPkUGFVJCkwV88XjeJXMgpx0BSdxpcGmlQIUOGDxH+heRFkiISchfNJnHwNI8AB2qVQNCgQkwGDQzjLtmmt6/fv4CFHBgxYmXgIQ8mBAIwoQ6VCA4IaHAQ1ouDcgDgSglRU0CXLA980okSoaacBJWvkOA1IUqKVB6wnDg65wSrVK+uUHBm4banZVUs8IbiAbaSBQFEiAjQ7kgH2gA6QCkw9JCBj0dKUNVhoASSZqlaR2GRQU+GFkngSBptRL0nABSmFEhBgIAH7EYWbE/ZvMjl9SvQs5ss8R0RAEKIYOCY'
    $Base64String &= 'O6jIgpFzhEnnT4OprPKXcLL0BtgC1RHVGd9f7o1U4GEPbGeAJocJUUByIlDwYYr0BAEAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPyKRyyWw6n9CodEqtWq/LQgHLXTYkAICk0S0XJbq0TmJuRwBqHYDTLnPg6nm9jIgj9kkNHxgqH1tLEQhhCHSARgcMcQwXTQ1kTyEhVx9xaRV1igB/VZGdCW0BeAABVQadOgZtJaoPVRWvGqCLVhelaQYHew+1Vw0VGRkfEY7Mzc7P0NHS09TV1lUHAyYCACYDwddJGwmvAhvhRwR4rwAERxEOBBoOy88D669yA0Uh5GoCmppBwJdPDiUhEfzFSVDP0YCCr2AMSVHQQ7MJEDu9GIImHxtmCjPqqMGx4ChHAkTmGeKh4kWVaW4MKeCqk4FDjhTA1EGDCIv/DHEytHA2UCUACEUKpCBAwAPOZgoIvlKAjoi6gu0WVCWyIWUnc1sfKTARhsSAg2HTqu2iZa0RCBUwhMFQASmVBQFEiAigtQyKkGkEoJhSwhesEl3uYaUKJRU7VldASI0DAMSTBYYl9a1CQKU7JxQyUrgCOJ+AJw8hMqZyYHInAOCYpC64L8mBESPQFmltNPYSCxktIHkwQdUEyEW8ZjztZEHNVwY2E3EgFYADIxo8N64+2sgD16uKSM5YOcoDwwaIGSGRcYKRqIunFMgrgoJ0IidcpwFwwogD5f9c50hoIgn3lgYqhJGBBnY5AlyBSlgCTQf6ydFBWhhB5F5ajuUDGUB3aVHHzgpu7RCAXPthgFyJHcQQw4VtBAEAIfkECQcAOwAsAAAAAEAAQAAABv/AnXBILBqPyKRyyWw6n9CodEqtWq/Jxgej+hSwYOSBoSvrGJewevgxmyvrNdmtS8TVBrrOcE9GHAQaDhFLFXoafUchCW4CIUoXc2UGB00FX1URjHQJhFkVGRkfnkoNEgAAEg1UKXplHmsSbhJUsq60YREAbgAcU7Z6CGocu2a9Ux6uOrBqCG7CUwV5dAaYuQioCL5ULBluGS19DatXBSkEBB7Wiezt7u/w8fLz9PX290MLASIiAQv4TEpI2lMCYJIAxXgFMGhkwUA3DP7NC/EICQVlZSjMwwYAmpEBGHUokIewDICFH0MOkFeiGIAHRyyEtLAxG5IF0/QYkCjvAcz/gwmNaWRo5MFAAz+JGimwTwQFnkqjSp1KtSq8AwNMCABgYkClKgdGjEizZsOmRhumPJjgcgJKLASC8iIQxYFcHQAcYBlwl9dKJw/64n07BYJgXmSZkAg5wQrIkGb+LjlxGO+JKhMgmyHR5CJkmkkuJTkLmQ8TmZ+PQKiAARWGChCMCNBcxg6TDpUBdDCCgnQZASiKZKbNuclwZY2L8FUGYOQQBbRFOinpCsDQISBygxhiWDOA2E7s6gGwwggBzXSfV5YOJUBrkxgID/HtSkCRuMwJQH3SQezuIwesh9dXQ2wwGx0CpJVIgN4ROMQBCpiACgkDJJbIgSHZR5QG6CmVHl1IAGynlAKCNTeVAxiaIYBeVEEwgw1l5DADeGEEAQAh+QQJBwA7ACwAAAAAQABAAAAG/8CdcEgsGo/IpHLJbDqf0Kh0Sl1GHASNI1LtOkMJnVgnCHnPyEh4LE5w0XBhis32xOMS+lhyVy4CIiIBC0p5ejoIfUglDGwGJUkehzp2ikUBAHoAAUgFBnoGBUoNHxgqH6JSC42HDIRHLBlsGS1KB6xiDBdSFJNiFEkFKQQEHqlJH3oVUgO+OgpwuGMJzM4DcJ90BlIWzhZwFXoaqtmgr2cX0gYHU5iawHENFRkZH29TD+oPlnAFgCIUzvEbSLCgwYMIEypcWOTAiBG7GD55MCGTDgATOElc4sAiGwAONiZ54JHOpoUFjhkh4WxCwgYSAACQ0MDIiZKaTiA0JIZPkf9eznR8MxihJAAORboFHVqQg1GkRDrgNNkBIQI2iYxMaJkwAgKZCKBemioGALyXNZN01LRC'
    $Base64String &= 'pJIAGCwCwKDRrZIOD6va3cu3r98mKf8egVAh7twKEAQLQbGGjQAUggeQvQitL4jJZUH0JRBUB4E7IcxMaexLQJyvALJCOYB5DAB2DQeYEADAxADYSdxdrOuEdefXRTaQFiNgg5IScvdFEdDZNBECkwF8ToJaNRQNnacLkewMwLWRyqVc7q5ZCITWZSMqUhC98vbOYr5bcsCcjoCQRLbCJ0EQggYVMmWgQWJFDOfLNgY1kNYR9XVGjV36dcafXQrA98xe5/1GIIXoubcQF3STSCfQXhu4oIcLxsERBAA7'
    Local Const $bString = Binary(_WinAPI_Base64Decode($Base64String))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Loading.gif", 18)
        If @error Then Return SetError(1, 0, 0)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_Base64String

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

 

[Rex]

Uhh thx so much UEZ 

That works like a charm.

 

Cheers

/Rex

[guiltyking]

.

Edited June 13, 2016 by guiltyking
wrong post