Rex Posted November 28, 2015 Share Posted November 28, 2015 HiI'm trying to create a loading pop gui for my app.But I'm having problems with transparencyexpandcollapse 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_Base64DecodeThe 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 Link to comment Share on other sites More sharing options...
UEZ Posted November 28, 2015 Share Posted November 28, 2015 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 Please don't send me any personal message and ask for support! I will not reply! Selection of finest graphical examples at Codepen.io The own fart smells best! ✌Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!¯\_(ツ)_/¯ ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ Link to comment Share on other sites More sharing options...
Rex Posted November 28, 2015 Author Share Posted November 28, 2015 Uhh thx so much UEZ That works like a charm. Cheers/Rex Link to comment Share on other sites More sharing options...
guiltyking Posted June 13, 2016 Share Posted June 13, 2016 (edited) . Edited June 13, 2016 by guiltyking wrong post Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now