Images don't show after compiling

[TanjimReza]

Hello everyone! 

I'm writing a script, the code is below 

$Button1 = GUICtrlCreateButton("Button1", 16, 72, 127, 105, $BS_ICON)
GUICtrlSetImage(-1, "C:\Users\Tanjim\Downloads\ICON\start.ico", -1)
GUICtrlSetOnEvent(-1, "Button1Click")

Here the source if the icon file is shown from a local directory that's why it isn't working on other machines. 

My question is how can I embded the 'ico' file in my executable file so that the image shows in other machines too. I'm a newbie & searched a lot about this but didn't find anything like that particular execept the base64 encoding method which I'm not understanding. 

Thanks in advance. 

[Nine]

You can add easily all .ico as resources into your compiled script.  

[TanjimReza]

1 minute ago, Nine said:

You can add easily all .ico as resources into your compiled script.  

How to do that? 

[TanjimReza]

Note: The .ico isn't used as the exe icon. The .ico file is being used as a button background. 

 

[Nine]

Google is your friend, you should have tried first...but here an example :

#AutoIt3Wrapper_Res_Icon_Add=%AUTOITDIR%\Examples\Helpfile\Extras\Soccer.ico
#AutoIt3Wrapper_Res_Icon_Add=C:\Applications\AutoIt\Simple Image\Pixel.ico

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

Local Const $iHeight = 450, $iWidth = 470
$g_hGUI = GUICreate('Resources Example', $iWidth, $iHeight, Default, Default, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX))

Local $iBall = GUICtrlCreateButton('Click', $iWidth - 168, 72, 68, 71, $BS_ICON)
GUICtrlSetImage($iBall, @AutoItExe, '201')   ; Icon resources added with #AutoIt3Wrapper_Res_Icon_Add, can be directly used without the UDF.

Global $picIcon = GUICtrlCreateIcon(@AutoItExe,202,100,10,32,32)

GUISetState(@SW_SHOW, $g_hGUI)

While True
  Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
      ExitLoop

  EndSwitch
WEnd

 

[TanjimReza]

I've tried it but nothing happens. It doesn't show any images. I have also tried to change the directory to another dir of a .ico still doesn't work. 

[Musashi]

 

37 minutes ago, TanjimReza said:

How to do that? 

See : https://www.autoitscript.com/autoit3/docs/functions/FileInstall.htm

Edit : or a solution from the grandmaster @UEZ himself :

https://www.autoitscript.com/forum/topic/134350-file-to-base64-string-code-generator-v120-build-2015-01-20-embed-your-files-easily/

 

Edited November 12, 2019 by Musashi

[TanjimReza]

Sorry for annoying. Here's the full code. 

Full Script Code

Can anyone just embed the files for me? 

Here are the .ico files 

start.icostop.ico

[Musashi]

5 minutes ago, TanjimReza said:

Here's the full code.

Can anyone just embed the files for me? 

Could you please embed the source code directly into your posting - using the code tag <>

[TanjimReza]

5 minutes ago, Musashi said:

Could you please embed the source code directly into your posting - using the code tag <>

Sure, here's the code 

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GuiConstants.au3>
#RequireAdmin

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WinHotspot", 327, 280, 523, 138)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Label1 = GUICtrlCreateLabel("WinHotspot - Tanjim Reza", 24, 16, 277, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Montserrat")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetOnEvent(-1, "Label1Click")
$Button1 = GUICtrlCreateButton("Button1", 16, 72, 127, 105, $BS_ICON)
GUICtrlSetImage(-1, "@ScriptFullPath\start.ico", -1)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Button1", 168, 72, 127, 105, $BS_ICON)
GUICtrlSetImage(-1, "C:\Users\Tanjim\Downloads\ICON\stop.ico", -1)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Setup Hotspot", 16, 200, 129, 49)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("Reset Settings", 168, 200, 129, 49)
GUICtrlSetOnEvent(-1, "Button4Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func Button1Click()
    Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan start hostednetwork")
       Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")
EndFunc
Func Button2Click()
    Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan stop hostednetwork")
        Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")
EndFunc

Func Button3Click()
   $prompt = MsgBox($MB_OKCANCEL,"Configure Settings","This will remove current settings")

    If $prompt ==1 then
       $name = InputBox("Set Hotspot Name","Enter the name of your hotspot")
       $passwd = InputBox("Set Password","Enter your Password (at least 8 characters)")
       Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan set hostednetwork mode=allow{space}ssid="&$name)
       Send("{space}")
       Send("key="&$passwd)
       Send("{space}")
       Send("keyUsage=persistent")
       Send("{enter}")
       Send("exit")
       Send("{enter}")

   ElseIf $prompt ==2 then
     MsgBox(0,"Good Choice!", "Who wants to mess up things.. Eih?")

   Exit

   EndIf
EndFunc

Func Button4Click()
   Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan refresh hostednetwork key")
        Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")

EndFunc
Func Form1Close()
   Exit

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc
Func Label1Click()

EndFunc

 

[Nine]

You need to add the resources like in my example, compile the script and run the EXE.  Just change path, ico name, it will work. Use my example first, so you know it is working then modify yours...

Edited November 12, 2019 by Nine

[Nine]

Tested with your code and your ico and it works perfect Win7 and Win10 !

[TanjimReza]

I did compile & tried. But didn't work. For now I've done it using 'FIleInstall'. And I'll try to do again what you've said. Thanks a lot for your cooperation. 
Here's the code- 

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GuiConstants.au3>
#RequireAdmin

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WinHotspot", 327, 280, 523, 138)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")

FileInstall("C:\Users\Tanjim\Desktop\start.ico", @ScriptDir & "\start.ico")
FileInstall("C:\Users\Tanjim\Desktop\stop.ico", @ScriptDir & "\stop.ico")
$Label1 = GUICtrlCreateLabel("WinHotspot - Tanjim Reza", 24, 16, 277, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Montserrat")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetOnEvent(-1, "Label1Click")
$Button1 = GUICtrlCreateButton("Button1", 16, 72, 127, 105, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\start.ico", -1)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Button1", 168, 72, 127, 105, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\stop.ico", -1)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Setup Hotspot", 16, 200, 129, 49)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("Reset Settings", 168, 200, 129, 49)
GUICtrlSetOnEvent(-1, "Button4Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func Button1Click()
    Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan start hostednetwork")
       Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")
       FileDelete("start.ico")
       FileDelete("stop.ico")
EndFunc
Func Button2Click()
    Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan stop hostednetwork")
        Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")
       FileDelete("start.ico")
       FileDelete("stop.ico")
EndFunc

Func Button3Click()
   $prompt = MsgBox($MB_OKCANCEL,"Configure Settings","This will remove current settings")

    If $prompt ==1 then
       $name = InputBox("Set Hotspot Name","Enter the name of your hotspot")
       $passwd = InputBox("Set Password","Enter your Password (at least 8 characters)")
       Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan set hostednetwork mode=allow{space}ssid="&$name)
       Send("{space}")
       Send("key="&$passwd)
       Send("{space}")
       Send("keyUsage=persistent")
       Send("{enter}")
       Send("exit")
       Send("{enter}")
       FileDelete("start.ico")
       FileDelete("stop.ico")

   ElseIf $prompt ==2 then
     MsgBox(0,"Good Choice!", "Who wants to mess up things.. Eih?")
     FileDelete("start.ico")
     FileDelete("stop.ico")
   Exit

   EndIf
EndFunc

Func Button4Click()
   Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan refresh hostednetwork key")
        Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")
      FileDelete("start.ico")
      FileDelete("stop.ico")
EndFunc
Func Form1Close()
   FileDelete("start.ico")
   FileDelete("stop.ico")
   Exit

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc
Func Label1Click()

EndFunc

 

[Jos]

The #AutoIt3Wrapper_Res_Icon_Add only works when you have the separate full version of SciTE4AutoIt3 installed.
Show the SciTE outputpane information shown when you compile so we can check whether the resources are actually added.

Jos 

[UEZ]

Here the version embedding the icons:

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GuiConstants.au3>
#include <GDIPlus.au3>
#include <SendMessage.au3>
#RequireAdmin

Opt("GUIOnEventMode", 1)
_GDIPlus_Startup()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WinHotspot", 327, 280, 523, 138)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Label1 = GUICtrlCreateLabel("WinHotspot - Tanjim Reza", 24, 16, 277, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Montserrat")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetOnEvent(-1, "Label1Click")
$Button1 = GUICtrlCreateButton("Button1", 16, 72, 128, 128, $BS_Top)
Global $hBmp = _GDIPlus_BitmapCreateFromMemory(_startico(), True)
_WinAPI_DeleteObject(_SendMessage(GUICtrlGetHandle($Button1), $BM_SETIMAGE, $IMAGE_BITMAP, $hBmp))
_WinAPI_DeleteObject($hBmp)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Button2", 168, 72, 128, 128, $BS_Top)
$hBmp = _GDIPlus_BitmapCreateFromMemory(_stopico(), True)
_WinAPI_DeleteObject(_SendMessage(GUICtrlGetHandle($Button2), $BM_SETIMAGE, $IMAGE_BITMAP, $hBmp))
_WinAPI_DeleteObject($hBmp)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Setup Hotspot", 16, 220, 129, 49)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("Reset Settings", 168, 220, 129, 49)
GUICtrlSetOnEvent(-1, "Button4Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_GDIPlus_Shutdown()

While 1
    Sleep(100)
WEnd


Func Button1Click()
    Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan start hostednetwork")
       Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")
EndFunc
Func Button2Click()
    Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan stop hostednetwork")
        Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")
EndFunc

Func Button3Click()
   $prompt = MsgBox($MB_OKCANCEL,"Configure Settings","This will remove current settings")

    If $prompt ==1 then
       $name = InputBox("Set Hotspot Name","Enter the name of your hotspot")
       $passwd = InputBox("Set Password","Enter your Password (at least 8 characters)")
       Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan set hostednetwork mode=allow{space}ssid="&$name)
       Send("{space}")
       Send("key="&$passwd)
       Send("{space}")
       Send("keyUsage=persistent")
       Send("{enter}")
       Send("exit")
       Send("{enter}")

   ElseIf $prompt ==2 then
     MsgBox(0,"Good Choice!", "Who wants to mess up things.. Eih?")

   Exit

   EndIf
EndFunc

Func Button4Click()
   Run("cmd.exe")
       WinWaitActive("Administrator: C:\Windows\SYSTEM32\cmd.exe")
       Send("netsh wlan refresh hostednetwork key")
        Send("{enter}")
       Send("title Tanjim Reza")
       Send("{enter}")
       Send("exit {enter}")

EndFunc
Func Form1Close()
   Exit

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc
Func Label1Click()

EndFunc

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

Func _stopico($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $stopico
    $stopico &= '/LJIAAABABBgYAFwIAAAqJQAABYAAMwAKAAYAJAAwAAYAVzBAgCQAAATCwMMcQCoJB+uDQMBAAMDEBeqHgADNwADVwADhwADqq4AA8oAA+AAA/8cA/+BEYEVgRmBHYEhgSWBKY0zv4E9gUGKC38Az7nIAgLEAFXJPAbAAETAAHnAAKf9wADZ4FntAMEUwRbBGMEa/8EcySDGJc0tPwA/AP+7wjZVyboFwAA6wACWwADSVcAA9cxL/sAA/MAA/f/EAMEDwQDdWeUE5QZhCO0G/2ENYQ5hD2EQYRFpYupDHwC/HwAfAB8AHwDyLuF7BOgBuiFgAGhkhGEj6SL6YAD+++gt/1p/AGUyYQphC2EM/2kDYRBhEWESYRPlFGEWapN/HwAfAB8AHwD/LuYu6Ugq9WAAimAA43Qj9S1tWWUF/2UC6WNpBH8K7wNhE2EUYRX/6Xb/MB8AHwAfAH8vtyO5dPqUMADmPCe/EXtHcSr9Mf8/AD8APQC5BD8HOwf1ALEK/zELOXs5DQ8QDwAPAA8ADwCPDwAPAH8XvxcfrgwwAPprMADn/EVxJz8QPxC5Wqrh9FrDMACoMACTMAD+lTQSMQCxADEBsQExArEC/zEDPWW/HzsAsQn5SbELMQz/sQy1Yb+SDwAPAA8ADwAPAK8PAL8XeTq1AEUwAL58DVd/Fz9ANRrJMACXMABp+7SKcVkIvx4/ADQAsQIxA/+xAzEEsQQxBb1fdUh/CXsB/7EMMQ2/Dj8YDwAPAA8ADwDvDwC/Fz0v8SGFeCfxbr8mqzMouS75MADFtBIuMAD+Ej8VdgYxAHEGPwD3Ab8D/zMFsQUxBrEGMQf/CP8ZMQz9dTh9+AX/SA8ADwAPAA8Arw8Afxf7mnEAJTAAu7gLV3UL/wz3ANgwAI4wACvvvz3yAHGh9aAB9QcPALcJ/3QAtX85BL0FMQexBzEIOQv//yI7CzEOsQ7/SL8JDwAPAK8PAA8A/xf7jUwwAN4/Res+ufUA'
    $stopico &= 'xzAAbn8u9vDyhgN/0A8AAACYsmIAEgAkH64CGAhYAV0ADAMEHAZ8AAwSAAZy1QAGyAAG/wQG/gQGBR5VBSb9BBbeAAZMBH4CXwlTWQAIswXLAQttgAH5V4RLhU+JAfyIBeCAAWv9gAERiCWKiY2dyVuYYYXD/4FNgVGRXYUBhXGBeYF90jBvPwDSXcUtxQJ43CrFBPPVwACLwAAOyA4FzaI/AP/2M8EixQPBKMEqwSzdNcEAX8FA0UY/Ks8rxdoIwACI69zqZQHEYABBcAj/FB8A/x8A/xppJ2ET5QFhFmEXcRp/7R5hIWEiaggfAB8A9HWGreQO+vASaUOPYAAPcXT/fxQfAB8AHwDtEewcYRdhGOt1fGEf+2QBf3+RHwB4E19lEmWO4Q5tL2Wj7mAAX/1oBwR/Lh8AHwAfAP8dchb/YRlhGnHcORi1SHlljwYPAL+/CL8XcQDxaT9HuyHXMAD+OLgkv0YPAA8ADwAPAA8A/w8ADwAPAH8PuTD1CzENsQ3/fzD7EDESPxgPAA8Afwh5IL5ONH+xB70XcUhxAMUwAP4g/wc/CA8ADwAPAA8ADwD/DwAPAA8Avw//J7QNMQ45D/85GLERMRKxEjo0DwAPAP8HvbZkJjSv/zf3APGzHLiN/38XDwAPAA8ADwAPAA8ADwD/DwAPAH8Q+5pxADEOtcK/EH/3wTETORQPBg8A/zdzB797fzf6AMm4F383DwCwAe3/MgC4ALAGPwA/AD8APwA/AP8/ALoHDwr/ELkNsQ4xDz8R//cAMRM/tg8A/wa7M7WOvR79dQbVOEf5m78FOxcxEPAM+u0wCu2wBj8YPwA/AD8Avz8APwCyBjEHsQcxCAG/GP8/ETwOMQ+xDz8YtxKxE39I1w8AfQZ1HkIwAPU/X/IFAfEA7yQfArNArjkkH64AADAERQRwAA0AJB/tDQwC/QAMARBcdQYBiwGTChcPx1sD3wADBQQHAfvxgAH+rYQB/4QBgQX8gAH1'
    $stopico &= 'gAG6P4QVA5WPjC+ARa6ARdSuDYABxoQn+4gtgQF6/YQDW429jS+Qu4kHPFWAAXGAAY+AAaaAAaT/5AHBGsEcwR7BINYo1F/JU95eyFzJSMFfwQHBxFLBVN/BVtlewQDBCcEBacwRzRVfwC/KC91ewGjCAQjAAGz1wADMwADwwADAEv8A+AD/wSDBIsEkwSbJKt1gxT5hIb95JWEpaiV0CuEzYQAeYADW6PBq5QnHYAAPeTp0Spo7YADQ7B9ga+365AD/fwB/AH8Aaw5pEWETYRT/YP9rhWEhYSJtMOUnYSlhKuUru2owcGqU7IxlCeEB82AArj55mnCr4QBiYAD55Bz9YAntYAniAH9UfwB/AHcA/20RYRRhFWkXeTBlIGEiYSO/YSRpVmUoYSpyJuwCKWAA7unoLekv4QCM7Qj4L+V4/+EZYRvhHGEA/yJ/AH8APwD/PwA7APkJNRi2SP8XPhixEfe9YPUYMRUq9C/yAn8csjTXNQQ5d3U04TAADn80vxf/PEexPnUmfw8/AD8APwA/AP8/AD8APwA/GLMKMQu+SD8Y23pbsRHgf1u2FIn5F39k/TJK6r8vtgB1ZL8X/xcxAPoJMADSeA3/Dj8APwA/AP8/AD8APwA/AD8AuwqxCzV5vz+pf4txAHB8fmA1MOQwALYbf4u2AGi/A7YAyHSU3zVnT5T3F/AdcgBrOFZ/Dv8/AD8APwA/AD8APwA/AD8A/39hcQBxkTYNDwA2GLWIMTC+yX8UtgAxFn6jNLzLvzP/sjPxG7AUusd/CLvMcSPxhP+xJLAHPw4/AD8APwA/AD8Avz8APwA/ADwAMQuxC84wAP8wDzfjfw86FHEAcMUyE7+Q2B+uyvzStUs6vKt5R3rfMAAXNBs/rL8vcQBA/TAA9P8vPwA/AD8APwA/AP8/AD8APwA/ADwL8O12YD8wAACHsqAAACQfrgUwAgQwqhYAGN8AGP8AGP0EHFUJDDoADAEEDAMEdpXdAAb+'
    $stopico &= 'DF4BHgEOjARGBVaiABEAJB/tAQMFBAfmbwADADvt+wQHsQOFXf5wiW2TfYbBhZGBmYmhhcWvgQeBtYUVgcEHgAHThBHq/IzV+oABK4jXkj/IX/oExAKQxC7AD/9C/wDyAPXFLpDENATVX8hgxUnBTH/BTslSxVbBWsFcwlPAAETtwAD1zGvFAcXIdta+xCf3wBPDJ8ABpv+//wB/AP9f+2EZ6EsB/C9pAGEncSphLdthLuUEeWhdbTVq6Dp2L/foL+IT4ACk/y9/AH8AfwD7fwD+L6TtG39g4gBhJ22K92UsYS5lkKhkM+AN5jRhAPr5YAAt6Zr/L/8vfwB/AP9/AH8AfwD/L/QvZcBhJ2Eov+UpYSthLGEBYS7hBB5gANbabPXlNclgABH/X/8X//8XPwA/AD8APwA/AD8APwD/PwA/AD8A/xf/F/8X+C+xE98xFDkVNRYxF7EXNzQBtXn9OTKXf48PAP8X/xc/AD8A/z8APwA/AD8APwA/AD8APwD//xf/Fz8QfpAxFDkVNaYxAO2xF1c/SrYAaTQEcJe/F/+/B/8X/xc/AD8APwA/AD8A/z8APwA/AD8A/xf/Fw8APhjfMhM0FP8VcwCxF4d8MTUw/vY4er9fDwD/F/8XPwA/AP8/AD8APwA/AD8APwA/AP8X//8XDwD/F/cvMRSxFLkVtRatsReuPAF1AOEwACB43f+PBv8X/xf/Fz8APwA/AD8A/z8APwA/AD8APwD/F/8XDwC//RcyEzQUsRQ/FrMXyr8Z9XIA0jAADfXEXwYPAP8XP/8XPwA/AD8APwA3AMexUO3/JB9WMPsEDqR2AAAAAA4BAQYBFh0AJKwfrgArAgMNAAPSAAOpAEeu/QQH/gQHygADauAME/wEB8QAAwFHBf8BByNzh0+BWYxh/wHrv8ZOv8RSyVbFWsVeyQDFaKjEDv4E/1//Qv8A/1/wX8JOxFLXyVbZAMVmk8QRAyJf/y//fwB/AH8AfwB/AP8v'
    $stopico &= 'HwBoJ+9hKWwreQBlNJX/L/8v/y9/fwB/AH8AfwD/L/8v9i+V+/9f7i+U/y//L/8vfwB/AL9/AH8A/y//L/8XdACU/xf/PwD/F/8XDwD/F/8Xvw0/AP8/AD8APwA/AD8APwA/AD8A//8X/xcPAP8X/xc/AP8X/0f/DwD/Bv8X/xc/AD8APwA/AP8/AD8APwA/AD8A/xf/Fw8A/w8A/0f/Fz8A/3efBQ8A/xf//xc/AD8APwA/AD8APwA/AP8/AD8A/xf/F/8XDwD/d/93/z8A/6f/pw8A/xf/F78NPwD/PwA/AD8APwA/AD8APwA/AP//F/8XDwD/p/+nPAD/1//X/w8GDwD/F/8XPwA/AD8APwD/PwA/AD8APwA/AP8X/xcPAP+/EP/X/9ezFzHwOQE1GjHzD7HzcvQfBgUAVLLCAAYAJB/tAQEwBFjqpAAY/wAY+wQcsQwFu8akDd8dACQfroAVggGaDYAB0oABgCOu/YQDav6EA8qAAa6MDYUD4e2AASCAAYElAoEDnzn/v3//AP9fyUzEUMFS0VjBXofV1Gb2wABExBAD/1//AP//AP9f6F9iJmQoYSlpK2UttWEvV2QB/OQAaQFpZAj+Bf8v/y9/AH8AfwB/AH8Av/8v/y9jJmQo9SthLzfkMethAOUz+uQAl2w5/y//L/9/AH8AfwB/AH8A/y91L2kmX2EoaSphLOUtYS8eYADa6+xi5TPJYAAR5Ahhyf8v//8vfwB/AH8APwA/AD8A/xf//xf/F/8XshK0EzEUORU1FvcxF7EXcRqodBnwBjYaMQD6+TAALT9gDwD/F/8XPwD/PwA/AD8APwA/AD8APwA/AP//F/8X/xf/F7YvsRMxFPUU37EVMRaxADEXdQJ5PDL5Gv5q/y8PAP8X/xc/AD8APwD/PwA/AD8APwA/AD8A/xf/F///F/8X9i+xE71fNRYxF/UC7TF69Tx6dQDFeAI/YP8X/bUApv8XPwA/AD8APwA/AL8/'
    $stopico &= 'AD8APwA/AP8XcgCmNA3/Mg6fD75fNQCxEz8Vsxa1pbWxGgcwANO/GvYaK/jE148H9xcxAAS0AJC0C/AD/78NPwA/AD8APwA/AD8APwDXPwA/ALoLkDQNBPUlDwD/ui8xADET+US5FbEWMRdxAt01SJW4efUC9RqMf5APAPf0F3CXcgBw/y8/AD8APwD/PwA/AD8APwA/AD8A/y9yAAexDLYNCwADs6IAAgAkH64FMAMEOGqMABj/ABj+BBwBDP3VBDyVCKwBBAY6CE4JXtUBDt8ABhcABgIEBgLWcQ0AJB/tAQMAUwIHO+0AA/EAAwA/7QBzAgepA/+FWYFhgWWGbY97hr2Fj4GVv4GZiaGJAYG1hbuFHQSAAVbKhM+J2fuEIWuEEwUrnL/AFO3AIO3ACe3O88AAwA7t/P9D/wDsAMEs/8EuwTDBMsE0wTbZX8VGwUr/wUzBTsVRxVXBWMFazW3BAV5oxArAHsYNxQLIwAAN78RswgsRAMzAbP+//wB/AL/6X2EYdl/oL2EiYSMOZCWv9ShhLGkuaQEbYADk5DR76WZlAWnkBOZm9C9lAAj9YADS5BhhSf8efwB/AH8A/30AZRVhF2EYZhp8j+EA4DW/bi/lvmErYSztL2nBieiOfW1n4eQ7apf0L+F15cD6/+RJfzB/AH8AfwB9L2EVYRbf5b5lGXUv5SFhI+B0uOEAX2Er4QRl9OkI5S8qYADp/3Bg5Qnh+un8Pxg3GHBOcgD+YrgNPxg/AD8APwA/AD8A/z8APwC9F/UJMQs5DL8XP49/P4+3LzEVsRX2F78EdgSU67979hjzMAA+PRj/FzYA+zJr9Az5uFV1Jn8QPwA/AP8/AD8APwA/AL8IMQq1F7UL//8XPxMxEbER9Ra9WzEVPxNrfzQxAB4wAOh/NDZNx70wAA84Zz8YOxi5SND8D/+wObI+cQA/AD8APwA/AD8A/z8ANQe5CLEJPke/F/oSMRD/sRAxEX1f9ROxFDEV'
    $stopico &= 'f1s/Be91YbF2/QT5AI9/ZD8Yv0jr8mwxhcwwAPD/KD8APwD/PwA/AD8APwAyADEIsQgxCf+1djZHvxd/o7QQvxL3AHWLb7/TvwU1HbGmxr94+k1er79gPxh/MDYAPDAAcTAA6fAL7aYwAKQ/AD8APwD/PwA/ADoAsQYxB7EHMQg/Cv+/Fz9fcwAxED1fORMxFLEUr7ZCDwA/TXQAQjAA9XQc5/kFdTWw4a45f9k/qT8OH7tVPwA/AD8AMQCSslDtACQfPjABAAYCow0uDQAkH64FBgUEDqo5AAbxAAP+BAP/BANVAQv8AAP1AANCBCsDVwU/GQAIYwQEB4YEU/2vCF8BAwFfAQfVgAEghBW/gGGGH5Ath2uEeYBJ7YBl/u2ANYaD4QGBNYE5gT2BQf4BjU+UiYlxgXmBfclCxQB/xUrBTslS2l7QGsAqwnq+69QZxQPJwAAczXnZG8xi//9e8GDZXNRDxTbBOsE82US+v8ROwVDeQ9QcxXopwAD25dTB5QHIaDD/PR8AHwB/HwAfAP8gbY5hHGEdeSHeXWAAJm2CHwD6kE5gAPnX5DtpnWEA+uQAxWiR6mD//w8fAB8AHwAfAO4uaRlhG/9hHGkebb5hJGEl/1B/EO0PrmvoPG0w5W7XYAA1aD9//28fAB8AHwAfAPOv5Rc4/2QbcY75dzESf1gPAA8AvwjRPxgfrnh0Bvs/GPY3+uwwAF8/NL8IDwAPAA8A/w8ADwAPAA8A/w4/CzIAsQz+7j9HthexELEAsRG/Fw8A3w8ADwA9CXEgtUyNPxh+MPUxAI8wAA84CbowvwkPAP8PAA8ADwAPAA8APxd4DvUT/7ELMQy/DbcXdUi1jnoODwCvDwAPAD8K/EQHMACIvzfrfjAxAMQwAEE/BD8YDwD/DwAPAA8ADwAPAL8X+iUxAL8xC7ELuRY/R7MAsRAIPQT/DwAPAA8ADwB/CrYAtUi/IdU7AfMwAIswAA78hH8Y/w8ADwAPAA8A'
    $stopico &= 'DwD/DDu29QD/MQqxCjELfw0/ATVHvRGPB98PAA8ADwB/Czs6bTR/v1H1vwrgMABqOEn/OngGDwC/DwAPAA8AvwU+DDEAEbRz/zEKvwu/PTEPsQ8/DA8ADwAPDwAPAA8A/zofDbNArgAkH65MADDe1QAw/wAw/QAY/gRYBRhXATwBXAU8xAAMbgAMElcADAF+BQYBAAYDBA4A/wEABTYtAAk3EVsIAwGDAYu+xwyvGcMB6wHzAT8CiSlfXQCMXYEBgWmBAyWAAbutiFf7jF+FYfyIB9iAAdqOgAEriCOJKwWEA4Jx/4U/mU3EAcFDwQzJEM0WwRz/wR7BIMkszV3NMsE4wTrJPlf2if9hwgAEyCOFwAD1V9wzwWDJYfnAAMXAAGn9wAAu0MXJGcEAwRnRAMUH/9EOwRTBFsEYwRrBHNUjyYv/xV7BNME2xVzKGR8AHwAfANd6MOFNZQFFYAC+6Bjhdlfpj+kC7TP6YADJYACX1WQlRGAAIWAACPQqcQD/YQVhBmEHYQhhCWEKYQv5ov/1FWEZYRpxHR8lHwAfAH8w1W1hDGAAa2AA5+x48R1XcZNlAOFO4WAA0mAAw1VgAKhgAJNgAJVgAJT/ZABhAWECYQNhBGEFYQblcP9tb3Fy5S5pNGEXYRhhGW5ev38vHwAfAB8A+JFhAB5kJP7mfyDqMOEg8TF/AP8WtQT/Pwe/HzEAsQoxC7ELPw1/F/8PAA8ADwAPAA8ADwAPAD8Yqzlw9QAqMACNMADovw//f0j/ATIAMRK1AjUBNQA1Aa81Aj8FPwX9AeMwAIq0Cv+5RjqTDwAPAA8ADwAPAA8AXw8ADwB/GH4YuSMkMABo/TAAy/8tcio1Sr8TPwA/AN8/APkWsQU9YDEIyjQJMWP/+S5/Fw8ADwAPAA8ADwAPAH8PAA8ADwB/GHck+ZpxoTr9MACW9Fq9WjVBuSw/GT8A/3UCOTN9A7EGMQexBzEIsQj/uan/dQ8ADwAPAA8ADwAP'
    $stopico &= 'AP8PAA8ADwAPAH/QdRj6DTAAqga0inkwAKcwANl/Ff8/AD8APwA4ADEFsQUxBrEG/zEH/SFyCX/fDwAPAA8ADwD/DwAPAA8ADwAPAA8ADwC/klc26X0BcW83MABXMACH9TAArjRC4H8VPgAxArEC/zEDsQMxBLEEuXS5Lv3wjwsDDwAIAPyxAgA6AP///+B4ABgAHgcAEAAAo4AASAABxQIU/kwBPjKSfwEW+DABFgwfARak5MABFgMnARbbA4gq2wELpAMLJQE62ABAAB/4AAAbADz8ACAAA+AHwAAEAD////tAABwXAOg4AALf///0AIAA4X/+hwABAC///+kAAw//AP/wwACX///SAAAMn///+TAAQGv//6AAMgFNjIAABf//SABBAWUAggAS//4QAbcBAQvtgAh//6ACAk+BBfJABf/8QAQEv4EF/SACP/gDgQ0BHhABH/QAFgL+gWt/aAAv8QAEK/QBUy/UAI/qCABHgYERgeIAVxDgAL9OgQty/QAgB9QBTpCBBQlwQIArwAA9IIEFBIC6AAOoArpAgQWAAl1AFcAEeAApgQAqHiADAAF5g31AnoAAgAjwgwUPIBABIAP6gwVfwAgEQBWFC4gCAAeC5IMFJ+AAQC+FCxLUigsAZ4UF5gCAwg+FBfABAB+FBYCvrl+FBcAZyQU/xQL8ywXKv8UC/coIAX/FAoBJ/9QF+QLhGsom4TLUPspKyFAl01z0yFzAAMdoqAKfyW7JdMl6yYDKhgBdxoz41AEOxpLJmMmeyaTJqsfAsEPiwLD8QAUA0MO2r8m8ysJoZGBnM2EBTGFn/WZqS2ttaXBpc2l2aXlpfD9qf2mCaYVpiGmLZ44='
    $stopico = _WinAPI_Base64Decode($stopico)
    If @error Then Return SetError(1, 0, 0)
    Local $tSource = DllStructCreate('byte[' & BinaryLen($stopico) & ']')
    DllStructSetData($tSource, 1, $stopico)
    Local $tDecompress
    _WinAPI_LZNTDecompress($tSource, $tDecompress, 38078)
    If @error Then Return SetError(3, 0, 0)
    $tSource = 0
    Local Const $bString = Binary(DllStructGetData($tDecompress, 1))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\stop.ico", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_stopico

Func _startico($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $startico
    $startico &= 'ErRIAAABABBgYAFwIAAAqJQAABYAAMwAKAAYAJAAwAAYAVzBAgCQAADDDgMMfQAAmLM0AJeyNACAmLIzAKSuFAELKgEAAwMAAwQBB42wAC8AkbAxAJWxHjMOOwE3EQOOE7M1AICZtzcAmbo5gQ+Dhi2BNberQwCWgkFgNQCYsTV/iGQAlsXAW5jAPJmyNsABx1wXwALBA8NkscABsTQFVcACIsAAR8AAa8AAilXAAKXAALjAAMXAAM/9wADTxADBAsEEwQbBCMEKqmrEDiPAAAbHaTPEAOnHYpe0wAOzwAD/YT8AUz8Az7qwN8I+lsBVlNSwMsECAsM/NsBfxkNVwUgzwABzwACwwADeVcAA+8AA//wA/GAA35VgAK9gAHRgADSWYA1KlmBjlmFfszNhQAQAkaspAlJrAAAAHzYAAImkGgD8jqhkhh8AHwAfAB8AHwAFcIw14i6SrTEAlvawYizhTQNhj2ED4ABhLqpAYACVYADc9Cf95DD/ZQDhKWEA4QJpAOUCaQXhAlVxCt1gAJZgAEFgPwYB4RGqxVQAhJ8TAAOGoRcDlLIrAACPrCQAh6MZ8ACQqRsfHR8AHwAfAOMfAAQAlbQyYonhq2BNteVdA2CKAWAA4QEeYADqfmAA2uQh/ugAZSxhJ//lAn8AdwBhCOUzYQtpDeEAANuYszZ+lrAxACKyz2oAwd6FBeAwFOIwf5oNAHfEkwLiYYymHh8fHwD/HwAfABoA9BU1APVdcQDxAOotMACiMAD2/y2/Kj8Anz8APwA/AD8ANQcz/bAXAP+VsDD/h6IZIPmFoBWtcAA2gICaDgB+mAwB8AAAA4eiGAKGoRbCALAAAIqlHA8PDwB/DwAPAA8ADwAPAA8ABgCUfrVyXbJz8nNzF3EvsQAn/3Rx9Vx1Lj8XPwA/AD8APwATPwA8ADP/tBf9hqJUF/uwR/4wFv8wAP4V8BaycBgvcDAAg54AEgKFoBYDi6VAHgCKpBwAcAEA+Imm'
    $startico &= 'Hw8QDwAPAA8ADwB/DwAPAP6gc140ALNGswAQ9TAAjDAA+Lwuf0U/AD8APz8APwA/AD8AtxdwLxj/q3AWcBcW8Rf7MAD9dBiC/HAYmoijGhYwAmHwLxQDh6GzMDEAiPykHY8QDwAPAA8ADwAPAL8PADV2co2ydTYvNF9SMAD+5H8X/xA/AD8APwA/AD8A3z8AvxeyF/EWOQD8NACxAQLrsGBfe5YFAIIInA8BcWF8lQMA8HOLAACwGQ8RDwAPAP8PAA8ADwB/L/FGsozyFvG0/TUvpnxGfxc/AD8APwA/AP8/AD8Avxe/Fz8A+jAxSbEw5ogwkbAABImwSDEAPxg/DwAPAA8ADwAPAAUAmbDX8uQ5drUXPDAA4PQO/10fPwA/AD8APwA6APiyEDT/l7IhMDP/mACzNv+VsDD/hwCiGP+EnxT/hVSgFgAMFR0G/QAG+ykDFhboAHZFABYAhQCgFASIoxoBhwiiGQABA4mgGgBhYQCasTYAAM8FAwFRAAMDl7GCBWuAAfy9hHf7o4nlAba9iQH8gAEC/oEFhqEXd4CZQAsAgp0RA4C9AgCHoRcAh6EYABiJpx0/WBgAl68v1cleAsIAtMIEkMQ6wV8+/f9L/wD/XtvCwGCclkCuLgJ9mQnAwBjWAsADwGAXwGAhP1rRvQSyOcpelbMzAZiosTUFwAKrZB36YAD+/v8hfwB/AH8Afy9/AHQABWFg+mMwFrWLpR8wCbvOaGCQZDCiF3AAiKseHyofAOheOFFqL4izLeEACGAAtf9oL/8hfwB/AH8Afy9/AH8AAWcwv4qkHAyUrs4sYjBgAOPBqR8fKx8A4+Mv6L2YsjVhvuFefy9/fwB/AH8Afy9/L38AezC+AIymIAn//+sA8IijGQFweXAA/3gPAIMPAL8XMwCYszO1dtACnrUysQCqvxc/AP8/AD8APwA/AD8APwC/F78XPz8APwA/AD8APxgyGLSYBLE08GAIAYmjG4ABi6cfAImk'
    $startico &= 'PxjXDwAPAH0vmHMAA/QAtXb/vxc/AD8APwA/AD8APwA/AP+/F78XPwA/AD8APwA/GDN5AJuAmw0Ag54SAAOOqiQAgpwPOACLpn9IDwAPAJax6zIvNQAEdABt/6U/AD8A/z8APwA/AD8APwC/F78XPwA/PwA/AD8APwA6AHORohdSdvPBFQTwqQBwMQC+jD8YDwC/LzUAdS9AdBf/MY5/jj8APwA/AD8APwA/AP+/F78Xvxc/AD8APwA/AD8AN3eR8akxCEixkDAAA4if8Hi/YA8Auhfx1LM1Ml9ClvBflrI0E7AA3f/0Dv+9PwA/AD8APwA/AD8A/78Xvxe/Fz8APwA/AD8APwBB/8H/hqAW4zBgGQiJpByxkAF9lgY4AIilv9kPALcvlrI3cu6wL3JIpH9HNQCQsxA0/5eydTAz/5gAszb/lbAw/4cAohj/hJ8U/4VUoBYAAxV5A/uBA4YAoRasfJgJAIEAnA8Cj6olAIeAoRYAjKYgAB0AK4BrgAEzgQMDgwU0V12Ed/z3s/+97AD8wQGHKKIXYMBhAMAAA4hAoxkAiKQb2l6WULMzAJjDXAHEXhN1wADgxDz9/0z/AMUAmQC0OP+XsTT/ifCjHP+GwF3BAP9N/wAFZAD+4wAW5oijGwQYieAuh6IZAYZAoRgAi6ghel+Y62AwaF+M5B37fyJ/AH8AEX8AmLM14l6PqyQA/36bB/97mAMQ/3+bCeIehqEXH38jfwB/AH8A6JAXlYQIoBQAYAADjaUfEACIoxpyL5W0MqlkjzQC5AAtYAD45B4e/n8jfwB/AH0vNv+UALAu/5OuLP+mALpT/7vKff+8AMt+/6S4Uf+DQJ4R/4GdDeAdGL9/I38AfwB/AGaRYF8zYAAJYGAYAuABAI+nJe1wXzXlL2VfpP++fwB/AAN/AGUvk68s/6S7QE3/5uzP/wMA/gFkAP//5uvO/5bArTX/gJwMPxg/AH8/AD8APwA/AD8Af2CxeK0Agp0P'
    $startico &= 'AIOdEQKwiaUcADBT/xezui/+Mn8XPwA/AD8APwA/AD8ACbwXsjVydp+4Q/8I8vXllBf+//DzEuIyAP7+Mxjw9OMA/4+nJ/+CnhD/MQ//ED8APwA/AD8APwA/AJu8YPAvOfAvsHgYAjF59wkAMFW9L6C/Lz8APwA/AA8/AD8APwC9Lzf/kK0gJ//R3aVyFvz94Pn/t8d1MQ0yALEACPv8+LIBydWY/+B9mgb/hz8wPwA/AB8/AD8APwA/AD8woRenAXAhAIKeEQOKo+AdAIqlHneP86a1L/ojMAD0f18/AD8APwA/ABc/AD8AOQA1tKY3/+0E8t0yFs7ZoP94jJYANg6xAM7ZobIB+Ovv2LIX8G7/qD8APwBfPwA/AD8APwC/kPiwdygDdWC1qJa0NACWsfXyLwT0F38/jz8APwA/AE8/AD8APwD/F5Wxs0f1RPfrMhaxwmoyj4iMohsyALEAscNssgGA8/bp/46nJvJ4/z+pPwA/AD8APwA/AD8Av5AFMDCGcMoAhaAUBICPqSUAjKgidV+iAXIAszQFsADW/77/PwA/AD8APwA/AD8A/xfwOUD/mbM4/+70L80U2J/4LxayAM3YoP30L9kySf/YPwA/AD8APwABPQD3s1AV/4WgHjD9ARyGAKEW246qJQiNAKkjAIikGwGKQKUeAJeyNAEGA9UEDkQABv8ABv0EDoIGAJizN/+QrSf/ENPfqf8BAPz8+AD/tsZz/4ehGMECA7XGcv/7gAkBAIDL1pr/fZoGggsHoIvpAYLBh6IYSoYIoRcAgAEDiKMYNY2/lYR5+/+7yV82/wCVsTD/l681/wjx9OTCWf7+/v+A7/Ph/+/y4MACAv3CBPL15f+QqOAq/4KeEMGa/0z/AAXJAPvDwBechJ8TQgDAAAOKpR/BXAHRwl6zNAbAAdr/v/8AAc9fNf+NqCP/fwCbCf+Xrjj/6Bzt1MNgRAABAOjt08FgAzf/gJwLYBx/Xw9/AH8AfwBy'
    $startico &= 'kOCOqSLACo2oIQCJYJBoX/o25B3+fyJ/AH8AfwBlL4CMpyH/g54SYooAgZ0N/4SfFP+AqLtY/8DOhWIA6Ki7V2ACE2IDfy9/AJd/AH8AdAD+Y5AZPeCQ1gBgAGEvBOQvdH+PfwDHfwB/AGW+mbQ5Yi9hKxyFoOOJ4HfiAH6bCPD/fJkEYgBhAWkDZwB+FmI2fzJ/AH8AfwBokHtd4AAAYABhL+VfrmQf/L//I38APwA/AD8AMQA18l6Akq4q/4ShEnAv/hG/dHQVcCQzAPIB+14xF9FxG36aB3BLCvRgP2F/PwA/AD8APwA/AD8AMAD8ATRItoKdEACBnBAPA5exsBexNAX9sA/dv18/AD8APwA/AD8ABz8AMC+wF5ayM/+TAK8t/6m9WP+qQLxc/4mjHHJfh3yiGj91PwAyArECMQOIAKMb/6u+Xv+j/LdOdks/Mj8APwA/AD8ALz8APwAzYHAg4/BsCov0pyD1jyN4R/9fPwA/AC8/AD8APwA6jpe0F9bhBrAydQEA7PDa/53As0P/e5gCco0zp/4Z8i2xFDMAMwGxATECsQJHMQOxAwUA0dunMxig/z8YPwA/AD8APwA/AP9f9jvYohgpMWD0F0a/Lz8APz8APwA/AD8Avxe1Fyz/iNnjtPIS/f78MgABAQD7/Pf/xtOTEP+QqSryRH2aBT8yRfEUMQCxADEBsQGRqbgr/8ewAjEDc6r9dgTo092r8JEM8A8/GD8Afz8APwA/AD8AP0jxB3BTTP34F2u/dz8APwA/AD8APwAzvxezF9jisxcBAM7ZIqFyjfX36zYB9/kA8P/V3q//tcUAcP+htkv/ma9GOzIAsQC1xXGwAa4jMgIFAPX47TBMW/+Iz9qkNgHT3Ko/GH8/AD8APwA/AD8AfmtwnPtojKcisQ9qtBcxAIp//xc/AD8APwA/AD8AuXaWIrG/F9LcqXItfZkgBf+PpyewGKD/OPr79tQB8761Lf7+xLQU/f8HAP4C'
    $startico &= 'UPv89wD/z9qj/5CoKQD/fJkE/4KdDhD/1N2sBpTT3KoA/4CcDP+EnxMA/4agFv+FoBUFYAYWAm+MpiD7mACzNf+XsjWJmECzNgCXsjQBA6UzAAMAEzT7BAdmA5WwIC//2OKyho3S3AKpg42gFP+IohoA/4KeEP99mgYA/5WsM/+/zYUA/+Lox//2+O0PgLSDtYW7gQni6Mj/gMDOhv+VrTSCGceBHYEhgXuBnQ2KwYEziIKeD+u9pyH/wF6rxVjAXDPFX7jEBPz/VAHjAJmzN/+QrSdw/8LRicpEwUnBXoYEoRfCLoahFv+HFKEYwAUOxrKOpycA/5uxQP+it03/wgDBAsEEwQbBCMEKwQzHECYXwj/Cwd6txhu7ynp8wGkHwgr/WOJeyVi36cFelrHCX8b/X38A6i8AtDj/hqIV/9hE4bViIe7y3uBRFDFiX4ijG+4YYSiHohoZ4jGD4FrhBH+bCf9iAGEBYQJiNWIE4y5pAGEKI+EEYQzu8d1iDtnhurbiB4b/L38Aei8gZS+haSzFlrMz5S/PZAIe/X8nfwB9AGERjagkEWJVwtCKJIj+/97A5cD/j6go4gLiLf/0ImG24QPhJmMAYAH0uOVgAWEKjqcm/9zkvIj//v5jxsLPiuKUn/9ffwB/L+YfZSzPl+Av9Jms4i/U/y9/AH8AYy8LYXFhE4XijBb/1+ACs2aC8/bp/7DC4mhiVX6bCOIYZ1p/5R9hBGVlYQFhCGEJr8FmHWAL6OYMYQ5hD4SfFB//Cn8Avxe/F/0X05ef/bAXq/8XPwA/AD8APwA7ABo1sAg2uBezXYSfEh/yEbEodSkBAHF2p7tWvP+D8AGxK/OK8RoYshX9MgChNAD0ALEBsWOxAjEDAbEDprpV/+HnxaN2ehEAw9CM9AQSMgh//xM/AT8APwC/F74X/Bc1//V3/0c/AD8APwA/ALR2cQB4jKciv0TwD7FD8RKhwLZK/+jt1JYSAQCA6O3S/77MgTJ2'
    $startico &= 'BzEW8VqxAnyZBf99HzQAsQAxAbEB8RibsT9E/70wA+fs0boE6fTu1TAGS/ICM0x7FjU2//ETM0l/GD8Avxe/F/8X80f+MvUX/3c/AD8APwC7RjAvAXEAka0o/46pJtD/gZwNcCcLMhJ+WmO0FfELtsZ0NnI1vf5A/vz/7fHc8Hq0UP/H1JSwi31wAnJxMgC7yn4yAbF8MQL9A7ACuQPv8t//t8fedfJOMhqySX1iGbIJM6v+G7RP81F/Fj8Avxf/EP13P/Ff/6c/Az8APwB/Xjb/iJaxMvK9zdqfMBAA4f/l683/oLV+SbIq9Vm9cnEAMS2xAK4AwGT/2+O5//gc+vG4vg8ADwD///nE+vOydrDBZzLAMQUfOQZ5E7EIMQmxCeXrzvD/8fTk8hyxGDLa/5T/vxc7pj8A/xfyp//XPwM/AAM/AL4XsjP/k68tsP/a5Lf2K7Pp+LBw4GX/e5gCsw+/h7IoA3FcsYl/mwr/kakgLP+tv2EyEdzjxrtyRDES9PbqMgCxAAExAdzku//I1JUBsAJi/5KqLv9/vJwKMgTyRP8edKcWsgjHsR6xCbkK1d6u88hyZ38/GL8Xvxc/ADYWMRf1F4oP/xc/AD8AMQD4tRA0/5eyBzCYszYA/5ayM/+Try0g/9rkt/8FANriILj/7vLeBjzF0gCR/4KdDv+AnAAL/4eiGv+GoCAW/4WgFQgGFv8Ah6EY/4ahF/8Agp4P/32aB/8YfJkEAl4BPoqkH/D/jaclAgYBCwETARvxASN9mgYCMwE7AUMBSwcJWwFrAXOAnAz/gREAg8XSkAaX7vLfIwKrBQDV3q4AIw3/GISfFAJPDaOEnxPQ/4ynIYB7NYqDmAGq+4QDiYABAIQBa4wNgbIBmLI1/5axhb0hiGHfr/9+gJ+WrSA2/+3x3IYL4+kgyf+ZrzuAmQP/aIOfEoCJGZDDgJehF4PFgg+EgYSAF4OeEf+CAcECwwnAW8AIw23QEcJdxhnCGsEc'
    $startico &= 'mK86wiAFABHBJpauNsJ61d6vXdBgE8hg8l7JWGrIX0YNxAT991/BIDP/lLAOL8q9xS7BK4GdDP+AiaMd/9jgtMYHCPr79sCfj/+Lpf4gwq7BU8NZz63NnsFTw2sP3AnEbsEWwRiLpCD/GMTRj8IeBQDX4LMHwibBKMMqDf/U3q3nxgfBAsHUhKDBwfZeaSzrYS7lLyPoMv5/CHBf4I6Akq8r/9Tfq2YWGNbfsGp34VKDnxEA/3+bCf+2xnIQ//f58GYF8vXmEP+9y4DiiX2ZBeVgBApiHYeh5VnhTvksP+ktYw1hB2EIYQlhCo2mGiVgDH9iDQUA9/nv8P+1xXFiEmETZQ1hFsdhF2F3BQDN2J7mn38vV3IAZSthLSJhL5hiADNaBWAB3X9gdS814F4uUP+ju0xgSvXjRd3grP9+mwhiGemm5QEB4SGRqSz/092rEP/+/vxmHPX360T/zOAcobZMYiF9/JoF4rlhteGG5oziK2cAv2UMYQRhBWEGYQdhA6JgCVjM151iCwUA/WAO0nTcqWAQK2IR9RRhGNMDYBljdfT/kqou/4CJpBr/mbQ3fyNdd1/c4C5hLmFfA+QAri1kA/z/CO++leCOobkgR//4+vJiFeDnAMT/jKYj/3+cHgpi3e1U4YHl6p60RgD/2OG1//z9+gXmI/4gAOzw2//OANmg/7HCaf+awLE+/4ylIWK9YQo74SJjLAayADEBsQGMpQAi/5qwPf+wwoJosAOh/+zx29IEEQUA/P358E+z/528s0R2erEI/wnxeQoyDAOxDLIy+PD/mLA48P+VsTC/Lz8APwC3FeuxFrUXBLQAdT94PwA/AIH4R64q/8rYmLqEf3ETsW6xQP2DdSz1FLECycDVmP/w9OM2BPYYAfAq8/Xn/+brzxD/2+O78jXQ2qX7MgCxANwwAbEBMQL5NAUAAPDz4v/I1Jb/eJmwPLIGcpd4MzsJGY8yC/EIMQwFAMnWlTIOvJizvy8/AD8A'
    $startico &= 'uBV0NBd7sRf1Lzb/Xz8APwA7eJFArin/yNaTNgv58TA7scNqskDyVb8mtD4aGHJDfLBAcXCnu1cA/8rWmf/m7NAfMgQPAA8ACQAxA+bsz7EyBKe6VjIF86sMsgY/v6QzOTEKsQoxC3kHxtX6kbANKHSGvw8/AD8AOACbsRb1LwFwi7AAMwawAB7aP2A/AD8AezCQrCYA/7rMef/7/Pfx9gvS3Khyh7EN9RZ/GB/zo7GFMSqxGDFFk6svAP+luVP/uMd2QP/G05L/0bAE2Y/wSjEvMQCxANHbp7IBiLfHdbICkqovsmD/sV2xBDEF+at7B/MYsQkxCgOxCvmZuct2/4+sPiWyDT8PPwA/ADoV2ZdKs7Bfs/IXAZY7YJYvP0g/AD8AOwCZ8DmQrQAm/6i/Vv/t8gH3vvH05P+uwGR/sj8xifM/fxi113FA8QCCfJ0P9hj11fGKcQSzBAn/MgGxATECsQJxXTIt9JO/k8dzF/VPMQCuwGMyCvnA+Ki+VbIMMQ2/Dj8APwDtvkeVfHe5AET/Lz8APwAxPwCZszjyqDEj098GqjRwc3Df5sH/oPy1SHNzsBPz1b/X+dc1vP/31TMrtTT12XNm/9c62LRoAzEgMQiftEf/3uVGwJZ/MQDT3qpwhTYdsOQrsgw/DjUAkbRQNP+XsiIw/QQcQ1UADAAADAMBHJYDLAFIl7IzAA4zBgAW1wMMXjYGmLM3/5axADP/kK0m/7HFQGf/7fHb/wMA/gD//f78/9nhtgD/orZM/4GdDgD/fZoF/4KeEBD/h6EYAAMZ/4bAoRf/haAVQgOBJTuBKYEtg4AxgTWBOaG2IkuCQf3++4RL//+O7IBRgVWBWZayM4Jhg72DiKXWl7MzBYABs4S5gL2zNoABgsEEhMsaf4QV+8A7wAA1/5kRwDCRrinAAjP/xEDUjf/19+vGYf4A/v3/4+nK/7UAxXD/kKgp/360mwjERw3CTsJjosNOAcFRhqEW/4agFv/A'
    $startico &= 'BssAwQTCBsJaxwzBEMESA8EUwRaPqCj/tMW6b8AcycIewSABAPTAJPjE04zCKMEqwSzBLv8/D8pSwVbDWsBgmLA0AKsBAMQEAsQBI8AA9MQLDv7/HsfCwQGPrCX/AJ22P//I15T/GPP250VhwgH3+O8Q/9jgs8JHl644AcJOfpoH/3yZBAHCAYCcC/+CnQ8A/4OfEf+EnxP1wAAUxAATYgJhA2EEaQYBYQiWrjf/s8RuxP/XYAv2+O5qDmEQ+MjWlGISYV5pFX8AfwD/aChhKmErZi0FAGSQZpJgAHqhZAb8/wt/AGkA4UqWBLEx4jCbtTz/vgDPgf/m7c///Qb9ZYDjIvz9+f/qAO7W/9Pdq/+9AMyB/6u9Xf+cALJB/5OrL/+MwKYj/4ijHGNcYAAHYQFhAmEDnLJC/6pAvVz/vMt/YAeqcP/p7tViCWkLYQ3m9OzOYA+AYhBhEWESY17vfxh/AGoAZSig7b4JAGxgjjN/L38AfZKWsTJiTgCUsC7/qsBZ/wDK2Jj/6O7S/xj7/PjmsQ0A+fv0AP/09un/8PPh/eDJ3WIAYQFhAmEDFQBhCgFhC8vYmf+pwFg/Yg5ivGAQf41/AH8wNDL3cV/sL2lgpH9gfwA/AH8YIphwAJOvLHIolbAAMP+lvE7/vM0AfP/S3qf/5ez6zTBC6PgxDwANALECMQMi5rAD0t6osgSlvPpQsgWQMAaxBjEHfxc/AC8/AD8APwC+L6O2FbE1r3IWDQBwID0wLTAA+H9g3z8APwA/AD8A/WE29hCzKQIntjGctj7/pr0AUf+wxWX/uswAeP/B0Yb/xtXgkP/J15UyALEAMQGIusx5sounvVIwA/49Ni6xBLEA9h6wBj8IPwB/PwA/AD8Afl8xFLEUthWUbLI1/hc2MLRyGDUwjf+/kD8APwA/AD8APwC3GHMSA7UxsVmUry3/kq5+KnYZcSzxMjEAsQB1FpL9sIuTsAIxAzUuMxd/Lj8AXz8APwA/'
    $startico &= 'AD8AOhOMtS+a4LgxAJexvy82MHOp0bepsjQUMADg/8A/AP8/AD8APwA/AD8Ac0oxKzMA//MUPwAxFrMt8y3/Fj8APwC/PwA/AD8A/750ALETEzoV7/8XPjD0kDUwV39gPwA/AP8/AD8APwA/AD8APwA/AD8A/z8APwA/AD8APwA/ALYSsRPvuRQPFw8AcgKVcBq/eH9I/z8APwA/AD8APwA/AD8AMQBGslA0/5eyijD7BAekRQADAAADA5azAgcAQSUAmLI1AJcDMwFUl7ECBxQAA90EV/3/jO//AccAxUbBSsFMw1DBU3yyM+ZfAQDEDsJvxAFA/cR2/sQA/yv/AP8A/wDFAP3FRfzESslO6l7CX8O9xQD6BMQBbczY/wB/AH8AfwDvfwB/AP+O4wBubCb/LxQAspZkMJiw5JhjCZHkDP76fxJ/AH8AfwB/AH8AfwCPegBlIWEjYiWYtDN/LwcfAGMIZcGyNAKeuPo8YQGrfzB/AH8AfwB/AI9/AH8Afy8xEZiuPrAR/DUCsxLzFw8ADwAPAD8YqbdkNAFwMAVwALU/GP8/AD8APwA/AD8APwA/AD8Avz8APwA/AD8APwC8D7bwFvAFl7M28hF/Lw8ADwAjDwAFAJuyNjkYAoH0uUFxAAhzBz8YPwA/AP8/AD8APwA/AD8APwA/AD8ALz8APwC/F3IAtzAACejM6biyEXUSma//jg8ANw8ADwA0qa4xlDcYlrL2NTE2cTCs+Ah/kT8APwD/PwA/AD8APwA/AD8APwA/AN8/AH2OtRexD3AvM7JZ9hE+rb8vDwAPAA8AfEivL6M6GDEAlLIosQCS9Aj/sZf/wT8APwA/AD8APwA/AP8/AD8APwA/AD8A9b0xDrEAsJOsALF2EHYvrn8vnw8ADwAPAA8AAQCasbpI9XEfA3SSbLgJ/6k/AD8A/z8APwA/AD8APwA/AD8APwA7/6U1Jm30ufG99l6UsX4xDxMPAA8ADwAPADkYsgI5'
    $startico &= 'OBgRs0A0AZeyNAQAMABVADA8ADDhABj/ABj7/QAY/QRYuQwBwwHLAQsB2x49BOsB8wH7gQUAmbF0OQBtAJiAO4UBgkexUYADsTQRgAWnhFf+v4RdgQP/pesAxS7FkKjAAP/BNsVewl3BAD8ANwDJIcAAQgPAAAKWsjXBAlO9wADlzJD/Yf8A7V3mwAC0VJjDNALBOMWclv9evx8AHwBtMGIUZAHhRY1gAH74/zB/AH8AfwD/LuYu+f1gAI9oXmJL5Rx/Lx8AHwBvHwBnkeJDYAAzamFkASf9YACm6KhtHX8AfwB/APu7dWVC/GSNKOlJ4S1nLzX/HyIfAB8AHwB9YeHT4TDl1OouYACjYAD28B9/MX8AXz8APwA/BzMAMQmkMAAv43RsvQsAmLM/Lw8ADwB/DwAPAA8ADwAPAA8AAQCWdLQy9Ao1tXk1SbUMHvUwAH4wANv4MHkxMSixEf9/Sj8APwB/RbEEMQV5LnUA5TEIfzAAH5ZwFzAAdRf3szswF7MMNo8ODwAPAA8A/w8ADwAPAA8ADwA9SfAXsQvAi6k2AJSvNkmyPKqVsw4G8ABBMACVMAD+3b8Tuio1AHEU9Rk5AHUBr7kCPzUzALEGljAAQjAADgbxCLEX9gmuMQC4/P9aMzw/Lw8ADwAPAA8Avw8ADwAPAA8ADwD9MLHzMICWtDUAlbc39TBX+rNxEDAANDAAdDAAsf0wAN/4Yj8APwA/APdcsQR6sLQFNfAWMhf0avXLAsCJqjIAkq6wCjAX+JmwM48MDwAPAA8ADwD/DwAPAA8ADwAPAA8A/WGwDcexJvIv92EEl7NwezEAVbKdMzEABbAAIzAAR1UwAGswAIswAKUwALhVMADGMADPMADUMADTf7QAMQGxATECsQIxA7EDJOWwXAZ0UACYcAcxADQX/zJR8i+/vA8ADwAPAA8ADwD/DwAPAA8ADwAPAA8ADwC0ScfxDvBJMBeZzhm5enIRAKa2QACftDoAXpm/'
    $startico &= 'hj1+f9C5HrYwALoHch22BbEGgPIgAJjmsLABMAKYsT8GDwAPAAEDACqxAgA6AP////5Behhegn8AEAAA+hQACAAoXwMWyEAAAFQCCwMWIgFWQgIU/FKIARYRPwJcIAEWBEkCMOiAAQsBFwEL0lUDXEsBCyQDCyQBaZC1AwsJAG39AjoAPL8ARmsAaQEAAgBI9AJGAAAvQwBSBaVX///QBQsrCP//oAULFf//SCEFCwL//xCFBQj/Yv6GEQV//QQvgBG/QvwFLwABP/iHBR+S9QeJr/KHBU/ihwUkR+SHBSfEhwUjyP2HBROJBYR2gniJBYR8gn7/lQUGWQBaoQWGMgAz/wL/Av//AtsC7UfhXNVr1XfJgMmG/8mMyZLJmMmeyaTJqsmwybb1x7wSyMIFa2RmZwByaWr/aW1pcGlzaXZqeWl8aX9pgtT/YmEBRmiIE2+LZo4='
    $startico = _WinAPI_Base64Decode($startico)
    If @error Then Return SetError(1, 0, 0)
    Local $tSource = DllStructCreate('byte[' & BinaryLen($startico) & ']')
    DllStructSetData($tSource, 1, $startico)
    Local $tDecompress
    _WinAPI_LZNTDecompress($tSource, $tDecompress, 38078)
    If @error Then Return SetError(3, 0, 0)
    $tSource = 0
    Local Const $bString = Binary(DllStructGetData($tDecompress, 1))
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\start.ico", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_startico

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

Func _WinAPI_LZNTDecompress(ByRef $tInput, ByRef $tOutput, $iBufferSize)
    $tOutput = DllStructCreate("byte[" & $iBufferSize & "]")
    If @error Then Return SetError(1, 0, 0)
    Local $aRet = DllCall("ntdll.dll", "uint", "RtlDecompressBuffer", "ushort", 0x0002, "struct*", $tOutput, "ulong", $iBufferSize, "struct*", $tInput, "ulong", DllStructGetSize($tInput), "ulong*", 0)
    If @error Then Return SetError(2, 0, 0)
    If $aRet[0] Then Return SetError(3, $aRet[0], 0)
    Return $aRet[6]
EndFunc   ;==>_WinAPI_LZNTDecompress

 

Tested on Win10 only.