aVen9er

I was looking for this code. I translated it into AutoIt for posterity: Dim $objWMISvc = ObjGet("winmgmts:\\.\root\cimv2") Dim $colItems = $objWMISvc.ExecQuery("Select * from Win32_ComputerSystem", "WQL", 48) If IsObj($colItems) Then For $objItem In $colItems If $objItem.PartOfDomain Then Msgbox(0, @ScriptName, "Computer Domain: " & $objItem.Domain) Else Msgbox(0, @ScriptName, "Workgroup: " & $objItem.Domain) EndIf Next EndIf

I clicked "Run Script (x64)" it showed Msgbox, but didn't change the icon. I also clicked "Compile Script (x64)", and then doubleclicked exe file. It also showed Msgbox, but didn't change the icon.

Your example works, but I am trying to change the Total Commander (x64) icon and it doesn't work. (Interestingly works on x86 Total Commander) #include <WinAPI.au3> #include <WinAPIIcons.au3> #include <WindowsConstants.au3> Const $sTitle = "[Title:Total Commander (x64);Class:TTOTAL_CMD]" Do Sleep(10) Until WinExists($sTitle) Local $hWnd = WinGetHandle($sTitle) Sleep(1000) _WinSetIcon($hWnd, "shell32.dll", 41) Msgbox(0, @ScriptName, WinExists($sTitle)) ; checked: Window exists Func _WinSetIcon($hWnd, $sFile, $iIndex = 0) Local $hIcon = _WinAPI_ExtractIcon($sFile, $iIndex, True) _SendMessage($hWnd, $WM_SETICON, 1, $hIcon) ConsoleWrite(_WinAPI_DestroyIcon($hIcon) & @CRLF) EndFunc ;==>_WinSetIcon How to change the icon in Total Commander (x64)?

It checked and it works on 32-bit applications. How to make it work on 64-bit applications?

This is it! Thank you for a such a quick reply!

I would like my script to do something different depending on whether my * .au3 file was launched from Visual Studio Code (by pressing F5) or by double-clicking in Windows Explorer. How to detect if *.au3 file was launched from Visual Studio Code?

My friend decompiled my EXE made with newest AutoIt 3.3.14.5 (2018). He did it with decompiler made in 2014-01! My question is: Why is it still possible? Every newer version of AutoIt should be protected a bit different way so that it would be unprofitable to create decompilers! 3.3.14.5 should have different key than 3.3.14.4, and 3.3.14.3, and so on. Why is not? Why were the exe file security issues abandoned? How to protect my work?

Func FileIsBinary($nazwa_pliku) Local $iMaxLiczbaZnakow = 100 If Not FileExists($nazwa_pliku) Then Return -1 Local $iFile = FileOpen($nazwa_pliku) Local $strZaw = FileRead($iFile, $iMaxLiczbaZnakow) FileClose($iFile) Return IsBinary($strZaw) EndFunc

A file contains over 200 lines. When I run this: $str_list1 = FileRead($file_name) $arr_list1 = StringSplit($str_list1, @CRLF, 1) Array contains only 1 element. $arr_list1[0] = 1 It should contain over 200 elements. $arr_list1[0] > 200 Help file sais: I think with old version of AutoIt it worked fine. Has something changed lately? EDIT: I figured it out. Sorry, my mistake A file was Unicode, not ANSI. When I changed it to ANSI it works fine