Leaderboard

This is great. Thank you for sharing.

#include <GUIConstantsEx.au3> Global $g_idLabel = 0 Example() Func Example() GUICreate("Busy or not, here I go...", 400, 200) $g_idLabel = GUICtrlCreateLabel("nothing", 10, 10, 100) GUISetState(@SW_SHOW) AdlibRegister(flipit, 2000) While GUIGetMsg() <> $GUI_EVENT_CLOSE WEnd GUIDelete() EndFunc ;==>Example Func flipit() Local Static $bBusy = False $bBusy = Not $bBusy GUICtrlSetData($g_idLabel, $bBusy ? "busy" : "nothing") GUISetCursor($bBusy ? 1 : 2, 1) EndFunc ;==>flipit ..to tell the user that the script is doing something.

== A final note on your WM_NOTIFY, you get to have 3 notifications (except for the very first one), 2 for the previous selected item and 1 for the newly selected item. So there is 2 useless calls to the "whoami" process, which slow down a lot your listview. By having a static variable that check if the item has effectively changed, you would accelerate by 66% the performance of your GUI...

..using your script I figure that you may want to prefetch the info. It does not change that often.

Another thing with your code. While playing with it I noticed that sometimes a small + (copy sign) was appearing. It seems that your WM_NOTIFY2 winproc doesn't like much staying in the function too long. By using a dummy control, and sending the responsibility to get and show the registry read and the run is solving the issue and accelerate the display... ... Global $idDummy = GUICtrlCreateDummy() ... Case $MSG = $idDummy GetMsstyles() IsMsstylesPatched() ... Case $LVN_ITEMCHANGED Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam) Local $iItem = DllStructGetData($tInfo, "Item") $iMsstyles = $aFileList[$iItem][1] GUICtrlSendToDummy($idDummy)

I have that. It doesn't work. The denial seems to be based on too many requests from my IP.

I see. Unless "whoami" process can be loaded once and run all the time, instead of calling it (with run) every time, there is not much value to try multi-threading or IPC. Maybe there is a dll that could return your request, that way you would get the answer instantly. Nevertheless, if you want to speed up your code, you should replace ProcessWaitClose with your own. As per help file : Which is quite slow. You could use something like this : Func ProcessWaitCloseEx($iPID) While ProcessExists($iPID) And Sleep(10) WEnd EndFunc ps : Another option is to read only once the answer from the "whoami" process, you could do it on the initial load or have an array containing the answers once read. pps : If you decide to go with the initial load approach, then you could delegate the reading to another process (then IPC or multi-thread would be helpful) while you prepare your GUI and show it to the user...

It's hard to tell the reason without knowing the internal workings of DllOpen() vs DllCall() with and without a handle. Also that it's only related to uncompiled 32bit scripts makes it even more hard to explain. And that it seems not a common problem, but only few people seem to experience (or realize) it or seem to be able to reproduce it. It seems to be related to a certain system setup only, though I think at least @UEZ, @@therks and myself stumbled over it now.

...too late I'd make a GUI and master script, and IPC everything else.

No, all uncompiled 32bits scripts using CreateFileMappingW, CreateSemaphoreW and also CreateMutexW fail when called like Local $aHandle = DllCall("kernel32.dll", "handle", "CreateMutexW", "struct*", $tSecurityAttributes, "bool", 1, "wstr", $sOccurrenceName) but work when called with a either a global or local variable for kernel32.dll like Local $h_DLL_Kernel32 = DllOpen("kernel32.dll") Local $aHandle = DllCall($h_DLL_Kernel32, "handle", "CreateMutexW", "struct*", $tSecurityAttributes, "bool", 1, "wstr", $sOccurrenceName)

I don't think multi-threading would help you since you are waiting for the answer of the other process. But without an actual test case script, it is just about what I can help.

Local $hSemaphore = _SingletonSemaphore If _SingletonSemaphore("TestSemaphore", 2) = 0 Then MsgBox(16, "Warning - " & @ScriptName, "An occurrence of test is already running", 30) Exit EndIf MsgBox(64, "OK - " & @ScriptName, "The first occurrence of test is running", 30) DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hSemaphore) Func _SingletonSemaphore($sOccurrenceName, $iFlag = 0) Local Const $ERROR_ALREADY_EXISTS = 183 Local Const $SECURITY_DESCRIPTOR_REVISION = 1 Local $tSecurityAttributes = 0 Local $tagSECURITY_ATTRIBUTES = "dword Length;ptr Descriptor;bool InheritHandle" If BitAND($iFlag, 2) Then ConsoleWrite('If BitAND($iFlag, 2) Then = ' & BitAND($iFlag, 2) & @CRLF) ; The size of SECURITY_DESCRIPTOR is 20 bytes. We just ; need a block of memory the right size, we aren't going to ; access any members directly so it's not important what ; the members are, just that the total size is correct. Local $tSecurityDescriptor = DllStructCreate("byte;byte;word;ptr[4]") ; Initialize the security descriptor. Local $aCall = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", _ "struct*", $tSecurityDescriptor, "dword", $SECURITY_DESCRIPTOR_REVISION) If @error Then Return SetError(@error, @extended, 0) If $aCall[0] Then ; Add the NULL DACL specifying access to everybody. $aCall = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", _ "struct*", $tSecurityDescriptor, "bool", 1, "ptr", 0, "bool", 0) If @error Then Return SetError(@error, @extended, 0) If $aCall[0] Then ; Create a SECURITY_ATTRIBUTES structure. $tSecurityAttributes = DllStructCreate($tagSECURITY_ATTRIBUTES) ; Assign the members. DllStructSetData($tSecurityAttributes, 1, DllStructGetSize($tSecurityAttributes)) DllStructSetData($tSecurityAttributes, 2, DllStructGetPtr($tSecurityDescriptor)) DllStructSetData($tSecurityAttributes, 3, 0) EndIf EndIf EndIf $hStartEvent = DllCall('kernel32.dll', 'handle', 'CreateSemaphoreW', 'struct*', $tSecurityAttributes, 'long', 0, 'long', 1, 'wstr', $sOccurrenceName) If @error Then Return SetError(@error, @extended, 0) Local $hError = DllCall("kernel32.dll", "dword", "GetLastError") If $hError[0] = $ERROR_ALREADY_EXISTS Then DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hStartEvent[0]) If @error Then Return SetError(@error, @extended, 0) If BitAND($iFlag, 1) Then Return SetError($hError[0], $hError[0], 0) Else Return 0 ; meh Exit -1 EndIf EndIf Return $hStartEvent[0] EndFunc ;==>_SingletonSemaphore give it a try. Parameters [in, optional] lpSemaphoreAttributes A pointer to a SECURITY_ATTRIBUTES structure. If this parameter is NULL, the handle cannot be inherited by child processes. ( https://learn.microsoft.com/en-us/windows/win32/api/synchapi/nf-synchapi-createsemaphorew )

Understood thanks anyways! So far I had this unfinished draft: Global $hScrollProc Func CreateCustomScrollbar() $hScrollProc = DllCallbackRegister(ScrollBarProc, 'lresult', 'hwnd;uint;wparam;lparam;uint_ptr;dword_ptr') _WinAPI_SetWindowSubclass(GUICtrlGetHandle($minimark_thumblabel), DllCallbackGetPtr($hScrollProc), 0, 0) EndFunc Func ScrollBarProc($hWnd, $iMsg, $wParam, $lParam, $iID, $iData) If $iMsg <> $WM_LBUTTONDOWN Then Return _WinAPI_DefSubclassProc($hWnd, $iMsg, $wParam, $lParam) Local $iYStart = MouseGetPos(1) Local $aEditPos = ControlGetPos("[ACTIVE]", "", $minimark_edit) Local $iScrollRange = _GUICtrlEdit_GetLineCount($minimark_edit) While _IsPressed("01") Local $iYCurrent = MouseGetPos(1) If $iYStart <> $iYCurrent Then Local $iNewPos = ($iYCurrent - $aEditPos[1]) * 100 / $iScrollRange _GUICtrlEdit_Scroll($minimark_edit, $iNewPos) EndIf WEnd Return _WinAPI_DefSubclassProc($hWnd, $iMsg, $wParam, $lParam) EndFunc But I have a lot to learn when it comes to the low level magic in your code, your UDF is fasinating

False. It works with file and GDI+ handle. Try this instead : Local $hImage = _GDIPlus_BitmapCreateFromMemory(_BinaryDB()) _GUICtrlCreateAnimGIF($hImage, 100, 100, 100, 100, -1, -1, True)

FileExists (@AppDataDir & "\Microsoft\Word\Startup\Normal.dotm")

Hello, _Singleton is a controversy function, for unknow reason not work for everybody. The first version was using semaphore, the actual mutex. There is another alternative, CreateEvent. If _SingletonEx("Global\MyApp", 1) = 0 Then MsgBox(16, "Warning", "An occurrence of test is already running") Exit EndIf MsgBox(64, "OK", "The first occurrence of test is running") Func _SingletonEx($sOccurrenceName, $iFlag = 0) Local Const $ERROR_ALREADY_EXISTS = 183 Local $hStartEvent = DllCall("kernel32.dll", "handle", "CreateEventW", "struct*", 0, "bool", False, "bool", False, "wstr", $sOccurrenceName) If @error Then Return SetError(@error, @extended, 0) Local $hError = DllCall("kernel32.dll", "dword", "GetLastError") If $hError[0] = $ERROR_ALREADY_EXISTS Then DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hStartEvent[0]) If @error Then Return SetError(@error, @extended, 0) If BitAND($iFlag, 1) Then Return SetError($hError[0], $hError[0], 0) Else Exit -1 EndIf EndIf Return $hStartEvent[0] EndFunc ;==>_SingletonEx On my system work fine also without the $tSecurityAttributes for the Global\ since the switch between my two user recognize the old instance running, test also on your enviroment. Please be gentle, i'm not so expert in structure and DllCall. If i have loose time and the actual _Singleton() is better then mine isn't a problem for me, I won't be offended P.S. In thoery we need a CloseHandle for CreateEvent when the script has only 1 instance at exit. Since the original _Singleton() don't close the handle for the Mutex in the same situation and leave to do by Autoit at exit, i have do it the same. Another one, with FileMapping If _SingletonMap("Global\MyApp", 1) = 0 Then MsgBox(16, "Warning", "An occurrence of test is already running") Exit EndIf MsgBox(64, "OK", "The first occurrence of test is running") Func _SingletonMap($sOccurrenceName, $iFlag = 0) Local Const $ERROR_ALREADY_EXISTS = 183 Local $tInt64 = DllStructCreate('int64') Local $tQWord = DllStructCreate('dword;dword', DllStructGetPtr($tInt64)) DllStructSetData($tInt64, 1, 1) Local $iSize_HiDWord = DllStructGetData($tQWord, 2), $iSize_LoDWord = DllStructGetData($tQWord, 1) Local $hStartEvent = DllCall('kernel32.dll', 'handle', 'CreateFileMappingW', 'handle', -1, 'struct*', 0, 'dword', 0x0004, 'dword', $iSize_HiDWord, 'dword', $iSize_LoDWord, 'wstr', $sOccurrenceName) If @error Then Return SetError(@error, @extended, 0) Local $hError = DllCall("kernel32.dll", "dword", "GetLastError") If $hError[0] = $ERROR_ALREADY_EXISTS Then DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hStartEvent[0]) If @error Then Return SetError(@error, @extended, 0) If BitAND($iFlag, 1) Then Return SetError($hError[0], $hError[0], 0) Else Exit -1 EndIf EndIf Return $hStartEvent[0] EndFunc With CreateWaitableTimer If _SingletonWT("Global\MyApp", 1) = 0 Then MsgBox(16, "Warning", "An occurrence of test is already running") Exit EndIf MsgBox(64, "OK", "The first occurrence of test is running") Func _SingletonWT($sOccurrenceName, $iFlag = 0) Local Const $ERROR_ALREADY_EXISTS = 183 $hStartEvent = DllCall("kernel32.dll", "long", "CreateWaitableTimer", "long", 0, "long", True, "str", $sOccurrenceName) If @error Then Return SetError(@error, @extended, 0) Local $hError = DllCall("kernel32.dll", "dword", "GetLastError") If $hError[0] = $ERROR_ALREADY_EXISTS Then DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hStartEvent[0]) If @error Then Return SetError(@error, @extended, 0) If BitAND($iFlag, 1) Then Return SetError($hError[0], $hError[0], 0) Else Exit -1 EndIf EndIf Return $hStartEvent[0] EndFunc ;==>_SingletonEx With Semaphore, like the original Valik function but improved with CloseHandle and error checking. If _SingletonSemaphore("Global\MyApp", 1) = 0 Then MsgBox(16, "Warning", "An occurrence of test is already running") Exit EndIf MsgBox(64, "OK", "The first occurrence of test is running") Func _SingletonSemaphore($sOccurrenceName, $iFlag = 0) Local Const $ERROR_ALREADY_EXISTS = 183 $hStartEvent = DllCall('kernel32.dll', 'handle', 'CreateSemaphoreW', 'struct*', 0, 'long', 0, 'long', 1, 'wstr', $sOccurrenceName) If @error Then Return SetError(@error, @extended, 0) Local $hError = DllCall("kernel32.dll", "dword", "GetLastError") If $hError[0] = $ERROR_ALREADY_EXISTS Then DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hStartEvent[0]) If @error Then Return SetError(@error, @extended, 0) If BitAND($iFlag, 1) Then Return SetError($hError[0], $hError[0], 0) Else Exit -1 EndIf EndIf Return $hStartEvent[0] EndFunc ;==>_SingletonEx This was made just for fun from C# code: Global $iListenSingleton If _SingletonTCP(12345, 1) = 0 Then MsgBox(16, "Warning", "An occurrence of test is already running") Exit EndIf MsgBox(64, "OK", "The first occurrence of test is running") OnAutoItExitRegister("_SingletonExit") Func _SingletonTCP($iOccurrence, $iFlag = 0) If Not IsNumber($iOccurrence) Then Return SetError(1, 0, 0) Local Const $WSAEADDRINUSE = 10048 TCPStartup() $iListenSingleton = TCPListen("127.0.0.1", $iOccurrence) If @error = $WSAEADDRINUSE Then If BitAND($iFlag, 1) Then Return 0 Else Exit -1 EndIf EndIf Return 1 EndFunc ;==>_SingletonTCP Func _SingletonExit() TCPCloseSocket($iListenSingleton) TCPShutdown() EndFunc ;==>_SingletonExit All version work globally on multi user enviroment.

The script: I got all the results you said I should (I am also confused by this). The path: Looks normal to me. Running kernel32 from command line: I get the error (no program associated). Example in post #7: Yes. Edit: Wow, so I just tested your _SingletonSemaphore function, but using DllOpen first and everything works fine. Also did the same to the Singleton UDF and it ALSO works fine. WTF..? Func _Singleton($sOccurrenceName, $iFlag = 0) Local Const $ERROR_ALREADY_EXISTS = 183 Local Const $SECURITY_DESCRIPTOR_REVISION = 1 Local $tSecurityAttributes = 0 Local Const $hKernel32 = DllOpen('kernel32.dll') Local $iError, $iExtended, $vReturn Do If BitAND($iFlag, 2) Then ; The size of SECURITY_DESCRIPTOR is 20 bytes. We just ; need a block of memory the right size, we aren't going to ; access any members directly so it's not important what ; the members are, just that the total size is correct. Local $tSecurityDescriptor = DllStructCreate("byte;byte;word;ptr[4]") ; Initialize the security descriptor. Local $aRet = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", _ "struct*", $tSecurityDescriptor, "dword", $SECURITY_DESCRIPTOR_REVISION) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then ; Add the NULL DACL specifying access to everybody. $aRet = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", _ "struct*", $tSecurityDescriptor, "bool", 1, "ptr", 0, "bool", 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then ; Create a SECURITY_ATTRIBUTES structure. $tSecurityAttributes = DllStructCreate($tagSECURITY_ATTRIBUTES) ; Assign the members. DllStructSetData($tSecurityAttributes, 1, DllStructGetSize($tSecurityAttributes)) DllStructSetData($tSecurityAttributes, 2, DllStructGetPtr($tSecurityDescriptor)) DllStructSetData($tSecurityAttributes, 3, 0) EndIf EndIf EndIf Local $aHandle = DllCall($hKernel32, "handle", "CreateMutexW", "struct*", $tSecurityAttributes, "bool", 1, "wstr", $sOccurrenceName) If @error Then $iError = @error $iExtended = @extended $vReturn = 0 ExitLoop EndIf Local $aLastError = DllCall($hKernel32, "dword", "GetLastError") If @error Then $iError = @error $iExtended = @extended $vReturn = 0 ExitLoop EndIf If $aLastError[0] = $ERROR_ALREADY_EXISTS Then If BitAND($iFlag, 1) Then DllCall($hKernel32, "bool", "CloseHandle", "handle", $aHandle[0]) If @error Then $iError = @error $iExtended = @extended $vReturn = 0 ExitLoop EndIf $iError = $aLastError[0] $iExtended = $aLastError[0] $vReturn = 0 ExitLoop Else Exit -1 EndIf EndIf $vReturn = $aHandle[0] Until 1 DllClose($hKernel32) Return SetError($iError, $iExtended, $vReturn) EndFunc ;==>_Singleton I don't know if @KaFu is still around, or was still having the same problem, but I'd be curious to know if this works for him also.