Jump to content
TanjimReza

Images don't show after compiling

Recommended Posts

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. 

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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. 

Screenshot (14).png

Share this post


Link to post
Share on other sites

 

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 by Musashi

Musashi-C64.png

"In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."

Share this post


Link to post
Share on other sites
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 <>


Musashi-C64.png

"In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."

Share this post


Link to post
Share on other sites
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 

#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

 

Share this post


Link to post
Share on other sites

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 by Nine

Share this post


Link to post
Share on other sites

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- 

#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

 

Share this post


Link to post
Share on other sites

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 


SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Here the version embedding the icons:

#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.


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!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...