GDIPlus Icon animation

[Mugen]

Hi, does anyone have an idea on how to make an animation like this
in GDIPlus using 2 Icons?

 

#include <GUIConstantsEx.au3>

Example()

Func Example()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Example", 300, 200)

    ; Create an animation control.
    Local $idAnimation = GUICtrlCreateAvi(@SystemDir & "\srchadmin.dll", 1301, 120, 50, 300)
    Local $idStart = GUICtrlCreateButton("Start", 60, 150, 85, 25)
    Local $idStop = GUICtrlCreateButton("Stop", 160, 150, 85, 25)

    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

            Case $idStart ; Start the animation.
                GUICtrlSetState($idAnimation, $GUI_AVISTART)

            Case $idStop ; Stop the animation.
                GUICtrlSetState($idAnimation, $GUI_AVISTOP)

        EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
EndFunc   ;==>Example

 

[1957classic]

https://www.autoitscript.com/forum/topic/97826-animate-udf/?tab=comments#comment-703407

 

[Mugen]

Thanks, for the link, but It's all about systray animation.

[UEZ]

You need frames to create an animation.

Something like this here:

expandcollapse popup

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

Global $aFrames[8], $hCanvas
Example()

Func Example()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Example", 300, 200)
    GUISetBkColor(0xF4F4F4)

    ; Create an animation control.
    Local $iPic = GUICtrlCreatePic("", 120, 50, 48, 48), $hPic = GUICtrlGetHandle($iPic)

    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    _GDIPlus_Startup()
    $hCanvas = _GDIPlus_GraphicsCreateFromHWND($hPic)
    Local $i
    For $i = 0 To UBound($aFrames) - 1
        $aFrames[$i] = _GDIPlus_BitmapCreateFromMemory(Call("_AnimFrame" & $i + 1))
    Next
    Local $idStart = GUICtrlCreateButton("Start", 60, 150, 85, 25)
    Local $idStop = GUICtrlCreateButton("Stop", 160, 150, 85, 25)
    _GDIPlus_GraphicsDrawImageRect($hCanvas, $aFrames[0], 0, 0, 48, 48)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                AdlibUnRegister("Play")
                For $i = 0 To UBound($aFrames) - 1
                    _GDIPlus_ImageDispose($aFrames[$i])
                Next
                _GDIPlus_GraphicsDispose($hCanvas)
                _GDIPlus_Shutdown()
                ExitLoop

            Case $idStart ; Start the animation.
                AdlibRegister("Play", 100)

            Case $idStop ; Stop the animation.
                AdlibUnRegister("Play")

        EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
EndFunc   ;==>Example

Func Play()
    Local Static $iFrame = 1
    _GDIPlus_GraphicsDrawImageRect($hCanvas, $aFrames[$iFrame], 0, 0, 48, 48)
    $iFrame = Mod($iFrame + 1, 8)
EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2018-02-02

Func _AnimFrame1($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame1
    $AnimFrame1 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABGlBMVEX09PTt7e21tbWTk5OIiImFhYaMjIycm53Nzs3y8vGfn598fHyHio+Tm6SnqrGxsrl/f3/ExMSnsbm/ztrV5fXd6vjl8PzZ6fzL1N23usCPj5Dj4+Oyxta92fnf7fynp6qw0vrF3fnF1uelpaaZmJnPz9DQ5PvU1NS31ffL4fjY2NiysrO81O3i7/2tra3p6emvr7Ho8Prk6vfHx8e+yNG5ubrm5vHZ2uTO2ebO0Ne+vb7T1NyiscSgs8pwcHG+wMdqcHjCwcHh4OLFxcvi5e7r6urW1t+8vcPc3Nz5+Pfr7vLd3+dgYGF1dHbKy9J4eXnIyM5paWpZWVlTVFSmsaRPiS9kcWFChxlU7QAgHiBa3wwAAABRwA9RaEWI1XmrAAADlUlEQVR42uyRQwIDURAFx7ZtdWzr/qeKt39ygNT6VRP78wYnSIpmWO7HOC+Ikqyoikxp+k/lGckwLduxXc+Xgv58GMhR7DoPksQyU6pXYOUoy523kLhFWfXkaynKsuYrJI1JteiBSKPLMvctNBB3nU/xKEGnHg265JXu4hwaMOkBShhWo67rkgTivHFfM40CAiUI6SiOYwBwkzduV7KomVjikc/htcR4PH506CbVFCXMRnkOluPM54tXBxiVbIgQJlWRw0OYP3DGtp1AwcxQwpI2obGsxUtwEruBlajjGIJgbVmWvZhvtp7n7XYAabBEP0LbW7bt+Yf90fNWp7N6EdAdsCG5vxr+UWdut5tcrO7Vk01vmzAAhhPHX8RTA7cFDhywhQSSQUNWFiNR2c0auoXWSbZ1n///b8zupE7d1N73nt/n5cGyESaglsAI+wzWtMxc7Wazd5m9fv12D1NAx0okWtVtq5LqL7tIqDptJSxoFt28/5AsGVF09ECX+BilVPOkrevEkgtymDBDZEkQwwXoqrIsBU2Mj8ii/LFemdaMUcQv'
    $AnimFrame1 &= '5DDoUrQ8TUnRGiqEoJQaLs2tzcaM/G6PSQ1o5MOXBh6ksJmtQu8hXaKLGOkxs2XS8Yc6ACKaRzc3s3ZRpoc71XvAm5fCucv96oK8woXIsrJTBcDRfNZLvsAL3na3ClrOjlKLbb/Z7XYftpfrVZ3nuSqzrPL1NG3japw5tExMmxcETTaHp6Lz0zQcitFaAQC0r4/CyAWEPI1pAJS79ZPXU6/S83FARCYBMaoGSmlhg3xNIIIpO0nR/Aa2fY+uBJ6Q1jWJhzsuQWe01tQ2QX6J4xjjw0GWTTRzaR4ALi2Gg+53b95snEwRwtyUo5enOk9RDPFwxskY7sclRwGI7QIfVs7/63W/dW7/cREPY1MFecQYhqcBhHmfUa8xXqoJwsPSbQKwvXX79afPOF7YIM8Y8vOpn/f9EKWcWxd3pzOTob/pt+H47798RUwsMZsYRqejpFn0eIkqlUvnHJkmstKbB2Bd33/7fmYFmqY4zJvKzz8C80wonhLtzUEMiVxd7der+x8egH4+Pg2teJj/Q3jElopAGCBXM8SLIgBxiuDRz4//PJ7ANJmlLffQ3v8SYezn1yOU7DxIap971FHTZGMXvsSv9tyvQ3ZeJMH+pcy9njASLwoEYwaC/Ut51BsrqoGi45P5l7H5vGmeqT/3odD+L/ILaxWf2jcEUIcAAAAASUVORK5CYII='
    Local $bString = _WinAPI_Base64Decode($AnimFrame1)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0000.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame1

Func _AnimFrame2($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame2
    $AnimFrame2 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABIFBMVEX09PTGxsa0tLSsrK2UlJSIiYuFhYZ8fH2MjIzHx87Cxs7n5+e/vr67u7u2t7ewsLDa6vykpKagoKKcnJ6Xl5fc3N2RkZHU1NXS0dHOzs6AgIDl5eXv7+/t7e3I4PvA2vi51/m3uLy51fKx0vmxs7q6u8G/zNirrbTQ0dqpqarU1dzY2uDy8vLf397d3ubk5/Dl8PvNztTBwcjM4fl5eXpwcXJra2xYW1dSUlLP5PvC0d/U5vmUm6Pf7fyyusHe6veLjZW5wcqzxdTu8PKqucvW4e7Z2NlkZWdgYGHF3fnK0dxChxn29/nR2ODC1Oe70ebe4+q0yd/i7/3i4u2nsr/G1+kAAADS3OdNuQtWxxNa3wxU7QAfHx8hHSFPiS9kcWHqlKidAAADkklEQVR42mIgH4wCQPdklSDHEQTRLW5mhmFmpmXmXbHMvv8tXDVmmtG34jteZFR2dg4xoZIbf6E9cxk5ataaRyQBXxQvnX1oXJ+OTq83JwTv96f46KJijUaj4+Pjw02b7AXco7fV+2MBCOLF9vb4I3JRrU5/B6zphoR7CjUr1aq1Bax1oViqlEm+CwBiQIkD3F0q3hemhQb1dwGm91oqlSxrXSxMLaH1K4Y7n9yulErFNXcfC1nWYcV2sx2AB0vF4v3aGnG9eycmVJGn7gAcxP3Tw9FWW6DiuOnON3y8n/4OnFqnVuFFMncBgDa4/+PD8/Pz52s+4rCgMG3nXgPjenP14ZwTY6XRaLx9tQOQ7QIgO7nanJPb+VltMHi4uKotiAMi/3+GqMCEHu6O3gwG3c5geP35RaG4revQRAiCm97f3VkEzTh/8pkWXj49PR1ccqBOJaQBIR1CQ/2rO9RNkD5xuSYiNvDTtNuquzOeH8dA03UtSrP2H3ZfQ7rf6wm/h9y7OWHUc7xkRr22AWLNQ1rcT/3U+83Ni8diEX25'
    $AnimFrame2 &= 'o+K2uViYmuYSSgPPhppWdhjV/bQfArAFfBNGWX7AO2fqDZAcjSydyU03jEC9Xi7XkEskO0rTEEAHStzYQR6WsAdBlPZ6efssDO5YuTUYDt88nJ/UmqiNjDBNfWA4QWAmvn8gU2eiI9t2SZJImA4wu+W1AdA03TAghLqwRxrChGCcxAIwlHFHJLaAM+vbZEVQFMUAQBMahh6lorzJ40jAlmaUcqCsjMed7mB4OWA3RrCczxfMQ1BsUo/7v5aXkiSQ7m7NUM0OZGzL45YAhlSJpHkykQHClEpYC33eJtZtnDAqzZeBtr0P4FEOdAfvh26zL5FFbdJqjQWTzH11W56yRCLLOQzT7NdPVpYkByrvh0kfB3dN4ecL/elnKcF9UZ6J+BUGfv7bJcGyLNcdhtGMkDtn0uq0ZFCvPX7/I2WRI7EZk+jy1ox5/G/KfIiasiwbyWo1d1rdzpgDzcfvPq2YQ2ezhMcH+g2P/wPI0wh6gVuXZQfPqNusKfVy7fFbDhAenywXZvRnvFAvz/muDZcQt67IismoZ7cfv/m0SgJKFius/8fPw49CTfsx8ghxJopSd1my/GFBTLaab9v/tzJV3Azkk7zJxMOUkNkKa6L9DmW5qvZDHUm4TUkyg6L9XuU5n+THBjT+3P1uiSfxN6Vqnh18lfoFAp6AfWUG2HoAAAAASUVORK5CYII='
    Local $bString = _WinAPI_Base64Decode($AnimFrame2)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0001.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame2

Func _AnimFrame3($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame3
    $AnimFrame3 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABSlBMVEX09PTt7e20tLSTk5OJiYmEhISMjIyenZ3Ly8vv7++hoaN8fH2GipGRmqSmr7ext75/f3/CwsW+ytbU3+ve7Pvk8P3X5PDF0t6Pj5Dj4+O1xte72PbX6PvA0OGoqKq0yuKx0vnG3vrH2OmlpaaYmJjPz8+uwNLQ5PvT09O40/C/2vm41/q4uLrGxsbX19exsbG90+qqq6vp6emhuNKgtMfK1uPO3e6cpa/CxMzd5/KNjJHf397e4erj6fDp7ve6vMNtbm/z8vL39/nw9PvBwcHQ0ti4ub9xcnPd3NzT1tzY2eC9v8bm5ub49fPHx87Nzc+wsLe9vb2ampyrqrFiYmN3dnjc3eXl5e9YWFhSUlLo6PSDgIji3+RPiS9namiVlZZDhh1U7QAhHSFAiRZa3wwAAABISUhWxxNDhBxNuQtdXV5RaEUfHx/x8fGBk3ykAAADjElEQVR42uyONZbEQBTEzMzM1PCHGe9/seG07XjfKpbqFffP34IXRElWVG2irhumZTuuY0ueP2lesZwgjOIoSV0lG/fzzC7KKn4RVXUjjQaq3XZ9/AmiakB4xCcW7Tr4BRHU0ox9SHTmXfd5VEG/WJYriWcFa7noumX0XId+uex76AN5wwq2eLdcLqMKFj1U0RPYZQIrMJr5clnC235TzZGhMwIslGU5b+swDJO3D90eHxiBut+1x1Px9M/pOU0vl36O1Jx1STwdW2pfr9fb/R6e6/p4elRPVt1uAlEUDgMzyFSgChXuWgWqQyjUsDjxhhhcd6n3/7/21F1e+z2fvY/j2E1+M6jARTY9d+vW48fn07RWj6JL52+sNJq2hzyPabdbP5ycg5DEtXl2Cfq92OnU67Xo0uP7Kxa1NE3LEGLBd9HM04w24OLutSiqvSeFklZ6fcXPAMeQzS/h1czLBq1WpQ3AJoZQUDoajYaXz10Zq7HC'
    $AnimFrame3 &= '+5mUGIOnn65qoCHkypNJK8mHAcdxGs3y4fD2bWc6PXdupqq4j+cDI3Fc1/4QjpAjc5N2e1IJqq6bD0e2Z2Ilk6Q8HM/sZrNJLckwbrvIQkTmKkPf5gm/QK5kyDJnDG478VIsmrjEtmJTiCamYxhVl1m67qmDQSXHipZ5piUSFcdIGyT6ctksFqZJyn5JMW+6ULyTmbwg2LoqvRfMQ2m4uraWdsfMinGpZHjd9rIM+b7vMQiH4pFIsKDTdd8JQMDCaXc4StfqnUonFXlHX9/AFnKzOZtLSfC+eIWoakyKwnMCuZLzZg6C1XRtE+htbdtlEWOMiZ05AyheykwdQ7XN9VgbvL8Pd4FBMPooyMttkxTK2XDs82p/EHwoHlNKhKKJwP7DVOc9QhQWroFgVFaZXsSzXqO3sxurfOJ6okBLTPobOth/uiTE8rxn0T0zzLdCh/RLiG/M9g8OMZUUQktKcLHrw9C/HFEVmcs8zxkpZwnBu0sWjnvLo+OTDWrh8qN9VgX7z8C2HGTri15Ot+34GRVnYaM3O3oOAgHs1fWm54D9N7Q4zkhuM1EosLAeL02KYW0vXp5sqDoWdsEehvMjrRYXGIlWbLwqeS0MeyKlr9/sCh7daPpSAva/RA6MjDFkC8Ii1GweC0K5wWufq/81cH5ckMDwCW9irJbow3D+Bmi2B1Vpjpj7efZ/5e2HVAEH9v9MCx72P+Edc1ek/FMfDDIAAAAASUVORK5CYII='
    Local $bString = _WinAPI_Base64Decode($AnimFrame3)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0002.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame3

Func _AnimFrame4($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame4
    $AnimFrame4 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABZVBMVEX09PSwsLC5ubmMjIyHh4eEhYWXl5p8fH3JytHx8fHa5vS8vcLAwMDExMSsrK2kpaeenqDj4uSTk5ORkJHh4OHd3d3Pz8+BgYHMzMx6enrn5+fE0d/J2erAy9bA2/m5zubM3/Suuseop66urbT49vScnJ2zs7OWlpa1t7vT4fG9vL3u7e3l5fDNztTIyMjDxct2dXZsbGxWVlfS0tmuyOanw+TZ4+/O3e7c3uVnamdSU1OYtNTL4vy1yd+1tbXT09LN1+Gysrri7/2pqqjG3/vg6PHe6vfBwsW/v8bm7fe4xtPV5PWos77E1ena2tmEhInZ6v3R3OrV3OPZ199xcXK71/a01PhjY2NcXF3W1tqu0fqUnamkrLTP5Puyxdjo6PT09vtDhRxAiRapsLXC2PCXq8KuwtMAAADh4eq5ub9NuQtWxxNa3wxU7QB6jqR/lrDw8vrn5/FLS0xRaEUhHSEfHx9PiS+9V1FvAAADY0lEQVR42u2U08KsRwAEd/zZXtv8bdsWkuNYev7MIrZZ1109Qux//uePpV6yMEHF4GfGRYPhu/uV+7sjX/1Z9QjtJ6vS6uZePIusn86b1t3jxfHqgL24jn9SMMoLt6nVEccHOv2JvIde3t4+fJFffYjjpZ+Y0LPLy8vjYfxhPXVxsYjFHxNUvMuFTWlvKj0+nkqtP6wniftjAiinLyfmTg7SE+ML8URiKpNJ26UfXXJubm5ufOH99+6ycUnaq04dzBlhzXPq3x+P1A6YuEilnlclaVKS+kZmQgtBCWgabI19azFiAEFQ1PjE54eL3tyUpOrzcYPAlqoqEMLo62mvBlSzUIA0sT4/v7ezs7OxIU1Wq9X0Iy5DheOZov5l/EzRFFcUC4VCQJKZTKY6ubGxMTl5cjKVnsh2qKUpgWM6ER2mnTYoBTwcc4SxSEQwkUgsL59OT5+eLi/H'
    $AnimFrame4 &= 'H18a3S6puaazpAZ0EAfAE+sFTiw6bLUFjSUPuLA8iO9mX9zPnNueaS6pJR0gsR4706iFLApagSmKdd4TUCuZmOLTiSd3s/sv9hkBjnPWgrptA991YwIxthRN14vI9xFQD00HMrnd3pblWqWyn33mY+i5nrJmYVy2/FZfqLWbY9ONRuNmu6LbBBePwBoxoFIDizKgIYUtTwVFRLDNesAzuVBpN5s3Z9ONnQ9ef73RzLNcsTfb7fqWQf0QaVBVocFHt9H1FfAiMSbYutAcu5l+o/HaACsHur1OpzNzFeKyBhW1plvEJ6jTs1W3fz+2Kfma8CE1FNwrr1TWLNYNXK/FJ08YQ/j6vMQPLsZx5TcRMha3hkLOGrOvwtxK5bMZ5FsOnzxmjNfP9utHN6m0KAiyzixtq/mafORQdqXn5cqTdz85YoGBWMgQuZ4BAa8fIbqltbwgCBVMUOjo6NrIy3L+6TuvZplOwtDv1yuHvP5LoW56kNpFWdju3EC7FxqyXFl5+jYXMK/3e10wnP2XDA8YFnGn7aHOebmDqZ578tarWd8meIbX8835NtyJTJp3EPmI5Ntt2WDs40+7GLDeOQicH/oDfIfa10WDYky3ZGoTgsNZS+3P/ocEjK/0/rXnNwdZOUL8cDj7HyIiXZvvXn9JpusGtRIM+nv/I4jBaL4iJzLNiMd/PtyJ/UP4HPaPjIcGyj1TAAAAAElFTkSuQmCC'
    Local $bString = _WinAPI_Base64Decode($AnimFrame4)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0003.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame4

Func _AnimFrame5($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame5
    $AnimFrame5 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABX1BMVEX09PSMjIx8fHzMzMysrK2mpqifn5+XmJiWlpeTk5WRkZHy8fGJiYqEhIWCgoOAgYHp6Oh4d3jJytGwsLDEw8PBwcG3t726urq1tbXPz8/d3d3j4uPg39/U1NS9v8RwcXFsbG5oaWpbW1tVVlaqxOGw0vrC0+i5z+ikpKXc6fibmpvt7ey+vb3X5PTU5fjO4/vGxs3N3fHm5vDZ2drO2ujg7v3V4u+6ur/GxsabmqDp6fWrv9Te5/C21fivucPZ6v3J2em81/OoqKvG0dzLztLB0N9QUFHJycnH3/u9ytmzv8tiY2JfY1708/OysblChxnBxMqUm6OosbikssLT09uXstGhvNyysrOtyOXg4OqzxtiuzO/z9fsAAACutbyOorqlrLXu7u7i6/aGipHb4+zI1eLPz9Xc2+Tk7vn59/Xk8P1U7QDr6upRaEUhHSFLgSyurrNNuQtWxxMfHx9a3wwclxa6AAADZklEQVR42u2SA9OjMRzEm+SxLdU2X9u2dLb1/efS9uzx6Tcqdjd/xf7zn9+JssOIEqDRL8p5Ct7eu3Htxp4gG78UD24frPWKj4q9hWnA/lwfsHvnczOPBtSWSOGnhtLeeXZ1IO92uzOzBfonehdMZLP1oRxTXxLCH+p9Zn8qm53pdovVajOXv5iaswT+RwZDPM9OTXWLvVz+9DiTyeRP12VD+YFBZ/JTF8edXO74+vWD9aVqrTkBgE44puuVv2mgyOOjo0x9tV4t4qKqxVrttAAQMiq2ThC2EX5R3k2kEpm51dV6dzimYrHWvCAAclcMjGnbtvKp2q3oBkNgeX2whgfFfuNzpxQw8BMmxvV58oO8bRKmx/MOPVuv12sPMJOTvV6zkz8XWBOZNGEizw8UeqgODN1B/EP8gZTXmpje5OQdTKeTy0zHS05BFitYHhqIHsh13eXLDzExpQ1PzvO5'
    $AnimFrame5 &= '2c6dvqFzd2ligopLAJCu74crdsEBfDl2SNAMYGl9Bfk8X7bh7trawt3O5K1b1c7axNF+QmTs0PfbyC5wnC57XkwTqWiEIMkSkGXgGCVGW9C0xihmffpgGsol5Puea84zgsCwMuobrIZ2736rdXY4ahU4Va2M7C4uotHo2v70C1km3X7xeglIAgfTuqu8MxzeP2uNX15ennH6vMRQpO4Y0QkdB47rhcimgCRxYHNTDxU+pnGkNjS0xsdbDFHaTKoJyNEsjIuFihuiCslKsgjiac4c3McoLWqL99r9F8bHGVJPJEnLomFyI5V2kItw8SKEQEjFnX48xotGAKCsRt8wRpliasxqNKzt55siZD1cvABVHL/MGV4Z6/vYlqaNFCBH7I4xIbch45ZGre2dx89EiCgAVQjEVFJHPpYP4T17ntA0zZZlj1YT29GiFlknO2+u0rAgqqrcjzfbg/ghfNl3bZobI9WABMsJQFiNCL/w6moZCjheSid0F8d/Ao8tQUgk2jaXEojoBIo0Se68vFqWOVFIDofzJTzviw0XJFKqVIoajZExCJ++Tgo6TMd1FOD4r6GIAIgJxzBsWhDo3YjG6YK6zA6q/xZSwHAbeNTlJ36ALwewpCTKqjOo/tsGUdggXWU4BcUPPFRxbDSY/bdRpCSH/I893VQwWP59eIS8T//f2tqK/SG8BYg9j6ds0OJLAAAAAElFTkSuQmCC'
    Local $bString = _WinAPI_Base64Decode($AnimFrame5)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0004.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame5

Func _AnimFrame6($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame6
    $AnimFrame6 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABQVBMVEX09PTMzMzCwcGwr7GEhIR/f4C3t7e0tbXx8fGsrK2pqamhoqKbm5yYmZqUlJSPkJCMjIyJioyIiInPz8/ExMR7e3txcnLp6enj4+Ph4OLc3NzY2Ni4uL52dne7zeK8ytqvwtS+vb3g3+rCwsjU1NTY2OKfnqHQ0dptbW9eXl5UVFTT3uvP3/LO4/vV5/va5vTh7v3r6url6PGoqa7Gxs6lpajKytG+2fi51/mw0vm41PHD0uDc3OWuyui40Oqrucucs8yzx92ysbhjZmS/1e7I2OrP2OPj7vrV4vG3xdG3wMm9vcPb6vvJycnk8P3U1N3e5e3OztWWlpjp8v2Um6Omr7ewuL9paWn59/V9fn7HztaSj5jn7/dAiRaHipHF3vsgHiAAAABNuQtWxxNa3wxU7QBRaEVPiS9Dhh1DhBxISEhQ2mXZAAADaUlEQVR42u2UU4I0WRhE+ypts2xbatuc3xhp/wuYm9Vj2+c5TmR8hdz4n//5o+iyioE1GfzMOCeSV3f3D/d3BrF+Vr326j591Lo4a88fNOWn855ylxm3LhIOW3PB+ElButuevr5Y0+m09kX5J/KmlplOm18InebcKPzEoPvZdPq46Kz5ejyeRQb3Y4KFj6fTSWedXi6Xq73VMQ5/TEDyajKZdFrN8So1rzcajb0tzYAgcH9IEPuzyXjcXG2n6+16enNzM7Uc6hAyiGeh6Xe/K0jsZDzLbKWPDumqdrvdaEx5rRAEoWllqcWzVvjNk0p8Zmtru3FLWd991pyJylo4tyiQYZivr+NMXcnsNVut24T1M/ZSegkUCgUTWJBiepzwZTyEPGTxM5pvXdy+eHHYo5P2lyeOABKgzEPge4EnPaYDC7GAe7KhsplUo93u9XpXV/X6fmpbJAI4t7IiwdnA8wsWkNdxhEyu+4QCySCTSc8Prij1g9T2gyMLbF/S'
    $AnimFrame6 &= 'tKHpeYVzRmQ1rrtxycuKeiOjc+BxSCkfPKMc1I+OGnvHBMv9vsAzBc8LASOqKiJhsDHCpXyWF0RJI5jYECyK9Mj8yckJIkQZsmyWtgcm5BXDkBUCEoEZXF8uer1cGeqIJzLPWuYoz0iOrQpM1vST8UjSsa6SGjJdKkSD6/JlMdfryX2puutUYlVWbOepKvNZ4Ltega7RCFG16i7NcxsjRRhRYZHrPe8jpxJdX4vEqVLRYMwgGZ8VVEyw5tRUK0h+H3kZU6G4yEkliKvDQbFYHuUhPZE4gRsCOh7bTzWj6rBJPSWAkaqV2IHwvKDuGvni4jIRoo92VaL4dLxh20m9QutpPoGJRqNIjImv2JXTcu5RYD/+4A22AR0f2xquvoOAR+OPcCHD8zuxL+ifxuJprkgFGKGX77+t2SKO4/V6GNI5Xwpdz+SdkFGr+pAnWEY7AxjtvHyPCgatJ7UKMmn91+A4Dw9MWhSrp6PRCNlYHvY/efdtjajYqNQUGHznzyMiX8MVxPKyrpfyg0Ek2faHb94xkE3rgf/dNwE9WN1lTc/1AsBIhi7n87KCDSOu3VjJ+u8K2KgOTXeD0nU934S8dtPHmMTsev13cXFFBd6XN7n0SfQbZhnwxWf/HTjw7aVct+u6dM3Ph+No+p/BZ+T+hfMwnNBxAAAAAElFTkSuQmCC'
    Local $bString = _WinAPI_Base64Decode($AnimFrame6)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0005.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame6

Func _AnimFrame7($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame7
    $AnimFrame7 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABPlBMVEX09PSUlJWQkJCEhIWBgYG9vb26urqzs7SurbOwsLCsrK2oqaqioqWgoKGdnJ2Xl5fv7/DExMuNjY2JiYnDw8PAv797e3t4eHnNztTPz8/MzMzd3d3f39/l5eXn5+e9v8aJi422t7zZ6fzQ5PvF3fq51/lwcHFra2tjZWRSUlKnqrGx0vnN1+LU1N3b3ebe4OrI2OrHx87t7e3BwcbT0tLX19fo6fTk5O/f7f3m8f1eXl7JycjE0d7X4u69y9jV5fb6+PbK4frt9PvQ3e1YWFjP0dmlpqdChxmVm6OYp7nd5/KlssGwucO70+y1wc2zxtbm7/rY2N7e6veysrmrs7m1zOa/2vjCzNO6u8Hs8PXi7/21trYAAABRaEVPiS/K3/ZNuQtWxxNa3wzX2eKgv+Sct9J0i6YhHSEfHx9U7QDppX/IAAADgUlEQVR42mIYHmAUABgnpwTZkiiKZuDadtp22farZ7U9/wn0ibptZNb+XuvEDk0FREhZj5+JmxotX3Zfdy8d6j5rPLZv9veut17u7d7aeD2f4cuHRnVra2tzc/NgV3HWCvrlQ6++mQub1fG5sYaP7Ider5YLkNquM19dCL3u9XrVXKgdvW00Ks50lbBDYIHG5uYW0I1G/ah2tE8WqwTJuGs0QKi9PapVnzrdYWGVoClMqDE6T/VO1cwVgiE2WJPqR5bqyXh8971sFFetIANfP2D4Xn93PB6/+UELFC9O/k+SjHG9Xjv4eN3f7e/1b6+ufryyVdf1eEkWvSiZ/scpvfuqNr6/Pxu+OH5xfX0wfnMf8EmaJovI5QRJlnl3/vctYeHh5mb/+phlCw63rmAvy5iw40I8nuf/2s6MUFA62dw6zoWX1aNZILmAz+dR7HqQKDOVP/CFJ3OJhL5j/IcPy+XeyfgdQWIMMMRDMhenWVo0cjp1JSE2DwuR701Gy+m0'
    $AnimFrame7 &= 'OBr1+xVSVjhGu5xKCZdk6dyNjSdcEiNzWjg8LOiiQrT34eNwOChpAVYFyypVurptq1GWzXcEVcQADmQDYWSIOzHq6tstGlCkGSSwu7elUqkiKorMA76IeRVjkSZJYULUmScr53rQlVqnOueqNiEO1uVPcCqfRIEDPIk8BTkOwjRmAm+Fg+GGrnmkE1Dq6ArPDhEuTOR5hkN5SbdhCD2VogyEihWGg3MU4bYdPoaiTpuBIQs7Hsexo8nbUIrxdluKimZhgpRJeCaSFPnN94MlZGjJmJAygvfAcE7BhBK7eYq9p/dhGWQSVoL03G7L4cbGxmg4OAsnMwXRZlJMYihPfN92tptClD29jMSrYLv5yONtwxotQRgMQqtU+rKNKUqhvOMHML6D3WQKPItQsagV4VZbmS2XGyMQJnD8F7/8RPwYygd+mZy2pJiNz2MubDmzSRv5RBdL0AgKlcSLbz93fJUEAS3DeG4B4/8QpjRFuOMrVjgTKDHkV7DAq4tvQHBgPIXxefs/YlLibCMNOY5emkwsySeGqlx8/blDMXFaHcT96/MUSQu7iyyNZcO2tRm8IM33v/i55Uh+p/nX9n/EjOPENM0iPIJY0B3HsGYGIo4TdJCXt/+3Yv6+oWIxhZdjI4UQGois/dpMp+xfxpzAx/nZr48JgaWKa/B/SYVfN0QAAPP9h1lQpis3AAAAAElFTkSuQmCC'
    Local $bString = _WinAPI_Base64Decode($AnimFrame7)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0006.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame7

Func _AnimFrame8($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $AnimFrame8
    $AnimFrame8 &= 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAABI1BMVEX09PTAwMC0tLSxsbGYmJiPjpCMjIyHh4eAgIF8fHyEhYXS0tHNztSurq7o6Ojl5eXi4uLd3d2cnJ3JytGUlJTLy8vJycjY2Ni2tre/wMW3ub95eXqlpqfCxMrBz9zY2uLd4uzt7e3M0dnF3vrA2vm51/nDw8OioqOfnp+61vKx0vm9vb3V1t3y8vLV1dXf7PzQ5Punq7Gys7pvb3BmaGZeXl9VVVW6wsrc3ufL4fni5e/o6PXq7PDx9frf6veosbrZ6fzW5vfS4O7l8PzA0+bL1uNChxmCiZKUm6MAAABOTk+2yt67vML4+frG1+jp8fpfcIWzxdSxxNumus5RaEVPiS+sxOFNuQtWxxNa3wxU7QB2dXfS0t3GxcUhHSEfHx+pqqv2Api2AAADiklEQVR42mIgB4wCQLVkldjKEURRN8Mwk5iZ0cz0OMzJ/leRHkdxWPZv7q/Oqb5Vmir0Gadu8Ep82BF399PZ9J7x1qvG07uz0uXp1ellKaXkZd7y7z91z6/yjC9KBfai4N6/6dUVnQvj8/dt/AKv0U+93uR3YTwpsdELhc66vd6u0aTeaHZTNtwnhEw90Bw/0c1GvT7ZlmS0T0D4utlsqiqN+uR8nHe6JnCf0Cl0m83GpF7P6Tzn3ba7rxOGzUY+fLezeqFnYHPfUY1uo7692F0pF9QL1t4d3te3SviQJxfq1xTtE0JZ2k4uLk5zvnJzc/3mq7UA1X1bk/hS8UrY1PTaTemzz90Mg8D57zVavKb48jrVN7Xp3ceP0wzFLRAjAwLN/tenoF9bn83045OTw8rl9Vp2gGPbTqSFfQgRgq3ob0ceQgGKlZN3KicfThOGQWRZlq2ElgqAMDb/TI/6iCCDFUJreHBcTjrChYFjR9FopAUtoKJZw8IzHgEEHDx1l99TId0OloK2YTiKRpoWBAHABghsyzZ337vd'
    $AnimFrame8 &= 'gjAYHuCpMV9AXUM+JbiD+mHwRLf6bS77jmWPWiF+wiHUhtWDd203YSsyLQ7Kg9FTtMBL3s6mLqVtzbKiELYhVWDZwD71MXR9nSwY0HRN1wflSqWyqa3TGTIKhVhXeBC3CUE8cg48dTyACkTaOHv0YaSuMgrCUK3Z78cQQqBwRwOGzxj2eZALcVEfJMJu0xUhlDMXAdX9RwARjGN1GlOVh676gYiVoZm/CUk2iMmyox9XdOTyeYYNGOZPBLap2sAO5ZzQ5QLp5vDA8wuex4sanfNi+ShPuWgQKSkGIyfH+wXCuSTzFQFO/n0kWHq+YVE2T384PDo63JQHNd1LDJ/PHTPKy0shKFvOYT5eJQIpzWyfLA29ongl1PTi2/TLBeG+3UIuE0JSNb7lVHNeBaZextjjHKe6Eiq5oM5/+91PUgQdKjJB5XJhBGr8LsMIdhZLMf2FcQwT1UgVStHttw8r0ZZZxvPxIFLjn4WqpUEuSOrpCeTSNWaq0ez2m4dHwdR4vpojzdrhO2NYVbeGLmNu4nkeFBK3C7dfP6w4kWyx8vPj/CPKMe0A4VwqFlNXiC9+XjAkVnMjUOP/PcqxnAAqCRcT7EvJMjX+uf1/Wuo7Bgb1C1zyDGrmXvy5nuWofxjG4fPtX2WZ5mvx3e0U/f/Ir0uzgmBsgoYPAAAAAElFTkSuQmCC'
    Local $bString = _WinAPI_Base64Decode($AnimFrame8)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\Search0007.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_AnimFrame8

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

 

[Mugen]

Perfect, thank you UEZ