Leaderboard

Released v1.3.0! Added COM object syntax highlighting for properties and methods using dot notation Distinct token scopes for COM identifiers (support.class.com.autoit) to enable theme-specific styling Contributors section to README.md with auto-updating contrib.rocks integration Added missing AutoIt macros: @exitMethod, @GUI_DropId, and @SW_ENABLE to completions and hovers AU3Check parameter parsing support with corresponding tests to improve syntax check behavior Parameter validation and improved status messages in OutputChannelManager (#230) WinNet API completions added to IntelliSense Fixed Function pattern incorrectly matching COM object methods (e.g., $obj.Method() now correctly identified as COM, not function) Incorrect documentation for @GUI_CtrlId macro (now correctly states "Last click GUI Control identifier" instead of "Drag GUI Control identifier") Duplicate WinNet signature removed and WinAPI COM signatures added to signature/hover data Incorrect CRLF constant definition corrected Duplicate parameter documentation entries removed in signature help provider Removed stray duplicate (misspelled) Clibpoard completion entry Improved parameter checks in runCheckProcess for more reliable regex matching Changed Consolidated macro data into single source of truth (src/completions/macrosData.js) to eliminate duplication and ensure consistency between completions and hovers Converted src/hovers/macros.json to src/hovers/macros.js to import from unified macro data source Rate and View on VS Code Marketplace Rate and View on OpenVSX Star & Submit Issues on GitHub

Perhaps a starting point with the ownerdrawn approach if you wanted to have a crack! take or leave it #include <GUIConstants.au3> #include <guibutton.au3> #include <WinAPIGdi.au3> #include <WinAPISysWin.au3> #include <WindowsSysColorConstants.au3> #include <WinAPIGdiDC.au3> #include <FrameConstants.au3> #include <SendMessage.au3> _WinAPI_SetUDFColorMode($UDF_RGB) ;So _WinAPI_RGB works as expected. ;By default the UDF swaps the colour values around - presumably so you can represent a RGB value with hex notation without endian issues. i.e. 0x00RRGGBB Global Const $ODT_MENU = 1 Global Const $ODT_LISTBOX = 2 Global Const $ODT_COMBOBOX = 3 Global Const $ODT_BUTTON = 4 Global Const $ODT_STATIC = 5 Global Const $ODA_DRAWENTIRE = 1 Global Const $ODA_FOCUS = 2 Global Const $ODA_SELECT = 4 Global Const $ODS_SELECTED = 0x0001 Global Const $ODS_GRAYED = 0x0002 Global Const $ODS_DISABLED = 0x0004 Global Const $ODS_CHECKED = 0x0008 Global Const $ODS_FOCUS = 0x0010 Global Const $ODS_DEFAULT = 0x0020 Global Const $ODS_COMBOBOXEDIT = 0x1000 Global Const $ODS_HOTLIGHT = 0x0040 Global Const $ODS_INACTIVE = 0x0080 Global Const $ODS_NOACCEL = 0x0100 Global Const $ODS_NOFOCUSRECT = 0x0200 Global $tagDRAWITEMSTRUCT = StringFormat("struct;uint ctlType;uint CtlID;uint itemID;uint itemAction;uint itemState;hwnd hwndItem;handle hDC;%s;ulong_ptr itemData;endstruct", $tagRect) Local $hGUI = GUICreate("", 200, 50) GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM") Local $hBtn = _GUICtrlButton_Create($hGUI, "test", 10, 10, 80, 25, $BS_OWNERDRAW) Local $idBtn2 = GUICtrlCreateButton("Disable", 100, 10, 80, 25) GUISetState() While 1 $iMsg = GUIGetMsg() Switch $iMsg Case $idBtn2 If BitAnd(WinGetState($hBtn), $WIN_STATE_ENABLED) Then WinSetState($hBtn, "", @SW_DISABLE) GUICtrlSetData($idBtn2, "Enable") Else WinSetState($hBtn, "", @SW_ENABLE) GUICtrlSetData($idBtn2, "Disable") EndIf Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd Func WM_DRAWITEM($hWnd, $iMsg, $wParam, $lParam) Local $tDRAWITEMSTRUCT = DllStructCreate($tagDRAWITEMSTRUCT, $lParam) Local $hDC = $tDRAWITEMSTRUCT.hDC Local $tWinRect = DllStructCreate($tagRect, DllStructGetPtr($tDRAWITEMSTRUCT, "Left")) Local $iTextLen = _SendMessage($tDRAWITEMSTRUCT.hwndItem, $WM_GETTEXTLENGTH) Local $tText = DllStructCreate(StringFormat("wchar text[%d]", $iTextLen + 1)) _SendMessage($tDRAWITEMSTRUCT.hwndItem, $WM_GETTEXT, DllStructGetSize($tText), $tText, 0, "wparam", "struct*") Local $iFaceCol = BitAND($tDRAWITEMSTRUCT.itemState, $ODS_DISABLED) ? _WinAPI_RGB(0xE0, 0xE0, 0xE0) : _WinAPI_RGB(0xE0, 0xE0, 0xFF) Switch $tDRAWITEMSTRUCT.ctlType Case $ODT_BUTTON If BitAND($tDRAWITEMSTRUCT.itemAction, $ODA_DRAWENTIRE) Then If BitAND($tDRAWITEMSTRUCT.itemState, $ODS_SELECTED) Then _WinAPI_DrawFrameControl($hDC, $tWinRect, $DFC_BUTTON, BitOR($DFCS_BUTTONPUSH, $DFCS_PUSHED)) $iFaceCol = _WinAPI_RGB(0xC0, 0xC0, 0xEF) Else _WinAPI_DrawFrameControl($hDC, $tWinRect, $DFC_BUTTON, $DFCS_BUTTONPUSH) EndIf _WinAPI_InflateRect($tWinRect, -3, -3) $hSelBrush = _WinAPI_CreateSolidBrush($iFaceCol) _WinAPI_SelectObject($hDC, $hSelBrush) _WinAPI_FillRect($hDC, $tWinRect, $hSelBrush) _WinAPI_DeleteObject($hSelBrush) _WinAPI_InflateRect($tWinRect, 3, 3) _WinAPI_SetBkColor($hDC, $iFaceCol) _WinAPI_DrawText($hDC, $tText.Text, $tWinRect, BitOR($DT_CENTER, $DT_VCENTER, $DT_SINGLELINE)) EndIf If BitAND($tDRAWITEMSTRUCT.itemState, $ODS_FOCUS) Then _WinAPI_InflateRect($tWinRect, -3, -3) $hSelBrush = _WinAPI_GetStockObject($HOLLOW_BRUSH) $hSelPen = _WinAPI_CreatePen($PS_DOT, 1, _WinAPI_RGB(0, 0xAA, 0xAA)) _WinAPI_SelectObject($hDC, $hSelPen) _WinAPI_SelectObject($hDC, $hSelBrush) _WinAPI_Rectangle($hDC, $tWinRect) _WinAPI_DeleteObject($hSelPen) _WinAPI_DeleteObject($hSelBrush) EndIf EndSwitch Return 1 EndFunc ;==>WM_DRAWITEM

It was mentioned here how AI bots are intensively hitting the site. I suppose they also grab all the codes they can take...

Hi all, Updated libraries based on the new Version 1.8 of WindowsAppSDK are here. Until now we've been on 1.7.x The v1.8 runtime can be installed from here: (Remembering that we require the x64 version.) A copy of the latest bootstrapper dll is included in the zip - but if you need to manually update it later for whatever reason, it has moved. So you'll now find it here: https://www.nuget.org/packages/Microsoft.WindowsAppSdk.Foundation/ download package (on the right) > extract contents > then you'll find it under .\runtimes\win-x64\native

Fun thread. Another option would be to use custom draw which allows you to use part of the standard functionality, check for hovering and draw part of the control. #include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StructureConstants.au3> #include <WinAPI.au3> #include <FrameConstants.au3> Global Const $tagNMCUSTOMDRAWINFO = $tagNMHDR & ";dword DrawStage;handle hdc;" & $tagRECT & ";dword_ptr ItemSpec;uint ItemState;lparam lItemParam;" Global $idBut Example() Func Example() Local $hGUI = GUICreate("Example") $idBut = GUICtrlCreateButton("Test", 10, 10, 100, 30) GUICtrlCreateButton("Standard", 10, 50, 100, 30) GUIRegisterMsg($WM_NOTIFY, WM_NOTIFY) GUISetState() While True Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $idBut ConsoleWrite("Button was pressed" & @CRLF) EndSwitch WEnd EndFunc ;==>Example Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam) Local $tInfo = DllStructCreate($tagNMCUSTOMDRAWINFO, $lParam) If $tInfo.IDFrom = $idBut And $tInfo.Code = $NM_CUSTOMDRAW And $tInfo.DrawStage = $CDDS_PREPAINT Then Local $tRECT = DllStructCreate($tagRECT, DllStructGetPtr($tInfo, "left")) _WinAPI_DrawFrameControl($tInfo.hDC, $tRECT, $DFC_BUTTON, (BitAND($tInfo.ItemState, $CDIS_SELECTED) ? $DFCS_PUSHED : 0) + $DFCS_BUTTONPUSH) _WinAPI_InflateRect($tRECT, -3, -3) Local $hBrush = _WinAPI_CreateSolidBrush(BitAND($tInfo.ItemState, $CDIS_HOT) ? 0xFFFF : 0xAAAA) _WinAPI_FillRect($tInfo.hDC, $tRECT, $hBrush) _WinAPI_DeleteObject($hBrush) EndIf Return $GUI_RUNDEFMSG EndFunc ;==>WM_NOTIFY

Another approach (improved), in the collection with colored buttons, with 3D appearance, and toggle capability ; https://www.autoitscript.com/forum/topic/211721-round-buttons/ ;---------------------------------------------------------------------------------------- ; Title...........: 3DRectButton.au3 ; Description.....: Creates colored buttons, with 3D appearance, and toggle capability. ; AutoIt Version..: 3.3.18.0 Author: ioa747 Script Version: 0.1 ; Note............: Testet in Windows 11 Pro 24H2 Date:9/11/2025 ;---------------------------------------------------------------------------------------- #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7 #include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <WindowsStylesConstants.au3> #include <WinAPIGdi.au3> ; maps to hold buttons data Global $mButtons[], $mBtn[] Example() Func Example() ; Create a GUI with various controls. Local $hGUI = GUICreate("Example", 300, 270) GUISetFont(10, 800) ; Create a button control. Local $idButton_1 = _Button("Darck", 20, 20, 85, 30, 0xFF720E) GUICtrlSetTip(-1, "Long press to togle") Local $idButton_2 = _Button("Button 2", 20, 70, 85, 30, 0x36BB48) Local $idButton_3 = _Button("Button 3", 20, 120, 85, 30, 0x3BADFF) Local $idButton_4 = _Button("Button 4", 20, 170, 85, 30, 0xD980FF) Local $idButton_5 = GUICtrlCreateButton("Button 5", 20, 220, 85, 30) ; Display the GUI. GUISetState(@SW_SHOW, $hGUI) ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $idButton_1 ConsoleWrite("$idButton_1 Down" & @CRLF) Case $idButton_2 ConsoleWrite("$idButton_2 Down" & @CRLF) Case $idButton_3 ConsoleWrite("$idButton_3 Down" & @CRLF) Case $idButton_4 ConsoleWrite("$idButton_4 Down" & @CRLF) Case $mButtons[$idButton_1].event ConsoleWrite("$idButton_1 Up" & @CRLF) If $mButtons[$idButton_1].togle Then GUISetBkColor(0x33373A, $hGUI) Else GUISetBkColor(0xF0F0F0, $hGUI) EndIf ConsoleWrite("$mButtons[$idButton_1].togle=" & $mButtons[$idButton_1].togle & @CRLF) Case $mButtons[$idButton_2].event ConsoleWrite("$idButton_2 Up" & @CRLF) ConsoleWrite("$mButtons[$idButton_2].togle=" & $mButtons[$idButton_2].togle & @CRLF) Case $mButtons[$idButton_3].event ConsoleWrite("$idButton_3 Up" & @CRLF) Case $mButtons[$idButton_4].event ConsoleWrite("$idButton_4 Up" & @CRLF) Case $idButton_5 ConsoleWrite("$idButton_5 Up" & @CRLF) EndSwitch _Hover($hGUI) WEnd ; Delete the previous GUI and all controls. GUIDelete($hGUI) EndFunc ;==>Example ;--------------------------------------------------------------------------------------- Func _Hover($hGUI, $iHighlight = 20) Local Static $iActive If Not WinActive($hGUI) Then Return SetError(1, 0, False) Local $ActiveCtrl, $mBtn Local $aCtrl = GUIGetCursorInfo($hGUI) $ActiveCtrl = IsArray($aCtrl) ? $aCtrl[4] : 0 If Not (MapExists($mButtons, $ActiveCtrl) Or $ActiveCtrl = 0) Then Return If $iActive <> $ActiveCtrl Then ; Reset Highlight If $iActive > 0 Then $mBtn = $mButtons[$iActive] GUICtrlSetBkColor($mBtn.id, $mBtn.BkColor) $iActive = 0 Return SetError(2, 0, False) EndIf If Not $ActiveCtrl Then Return ; Highlight $iActive = $ActiveCtrl $mBtn = $mButtons[$iActive] GUICtrlSetBkColor($mBtn.id, ColorLight($mBtn.BkColor, $iHighlight)) EndIf ; Click efect If $aCtrl[2] And $ActiveCtrl Then $mBtn = $mButtons[$iActive] ; Move the button based on current toggle state If Not $mBtn.togle Then GUICtrlSetPos($mBtn.id, $mBtn.X + 2, $mBtn.Y + 2) ; If not toggled, move down Else GUICtrlSetPos($mBtn.id, $mBtn.X, $mBtn.Y) ; If toggled, move up EndIf Local $iStartTime = TimerInit() Do $aCtrl = GUIGetCursorInfo($hGUI) Sleep(10) If TimerDiff($iStartTime) > 1500 Then ToolTip("Togle Locked") Until $aCtrl[2] = 0 ; *** Long press > 1.5 sec -> enable togle If TimerDiff($iStartTime) > 1500 Then $mBtn.togle = True Else $mBtn.togle = False EndIf ToolTip("") ; If is toggled, stay down If $mBtn.togle Then GUICtrlSetPos($mBtn.id, $mBtn.X + 2, $mBtn.Y + 2) Else GUICtrlSetPos($mBtn.id, $mBtn.X, $mBtn.Y) EndIf $mButtons[$mBtn.id] = $mBtn ; Update the button's data in the global map GUICtrlSendToDummy($mBtn.event) ; Send the dummy event to trigger the Up event EndIf Sleep(10) EndFunc ;==>_Hover ;--------------------------------------------------------------------------------------- Func _Button($Text, $Left, $Top, $Width, $Height, $hBkColor = 0xF0F0F0, $hTxtColor = 0x000000, $iShadow = 30) Local $hShColor = ColorLight($hBkColor, -$iShadow) Local $idEvent = GUICtrlCreateDummy() Local $idShadow = GUICtrlCreateLabel("", $Left - 1, $Top - 1, $Width + 4, $Height + 4) GUICtrlSetBkColor(-1, $hShColor) GUICtrlSetState(-1, $GUI_DISABLE) Local $id = GUICtrlCreateLabel($Text, $Left, $Top, $Width, $Height, BitOR($SS_CENTERIMAGE, $SS_CENTER)) GUICtrlSetBkColor(-1, $hBkColor) GUICtrlSetColor(-1, $hTxtColor) $mBtn.id = $id $mBtn.event = $idEvent $mBtn.text = $Text $mBtn.X = $Left $mBtn.Y = $Top $mBtn.W = $Width $mBtn.H = $Height $mBtn.BkColor = $hBkColor $mBtn.TxtColor = $hTxtColor $mBtn.shadow = $idShadow $mBtn.ShColor = $hShColor $mBtn.togle = False $mButtons[$id] = $mBtn Return $id EndFunc ;==>_Button ;-------------------------------------------------------------------------------------------------------------------------------- Func ColorLight($HexColor, $Lightness = 30) Local $iHue, $iLuminance, $iSaturation _WinAPI_ColorRGBToHLS($HexColor, $iHue, $iLuminance, $iSaturation) Local $hColor = Hex(_WinAPI_ColorHLSToRGB($iHue, $iLuminance + $Lightness, $iSaturation), 6) Return '0x' & $hColor EndFunc ;==>ColorLight ;--------------------------------------------------------------------------------------- have fun Thank you very much

AutoIt v3.3.18.0 has been released - mainly a UDF release. Thanks to @jpm and the MVPs who were responsible for the majority of code in this version. Download it here. Complete list of changes: History

It seems that this is less about index collisions. The real problem is obviously that memory areas are being used across multiple map instances. Whether this occurs exclusively when using string indices in conjunction with integer indices or in other cases as well, we cannot know here and now. Without having the source code for the implementation, we can only speculate about what is happening in the background based on the behavior. And so far, it seems to me that the memory areas for the buckets of the hash table are not completely cleaned up when dereferencing the map variable, and on the other hand, these areas are used when initializing a map variable without being fully prepared for use (e.g., memory area zeros or something like that). There may well be a clever idea behind this, for example, to increase performance or something like that—we don't know. However, the current implementation is undoubtedly a bug, and worse still, a bug whose consequences cannot really be assessed at present. Therefore, we cannot simply dismiss the issue with blanket statements such as “don't use integer keys” or something similar. This naturally raises the question of how to deal with it. It has been clearly stated that bug reports should not be created for maps. Nevertheless, the bug tracker is full of tickets for maps, and they are being processed as normal. That's why I would have liked to discuss the whole thing in advance in the forum, preferably with the developers involved (actually, I wanted to do just that in the German forum first, but you had already posted the thread here...). In my opinion, the “AutoIt General Help and Support” forum is not the right place for this, but rather “AutoIt Technical Discussion.” However, it may well be that the bug has already been fixed and has been resolved in the course of the following ticket: https://www.autoitscript.com/trac/autoit/ticket/3948 The phenomenon described there is quite similar.

In order not to pollute other threads, here's one dedicated to Windows.UI controls and examples. These are for use with Xaml Islands, NOT WinUI3 - although porting them across shouldn't be too demanding. Both methods have their pros and cons - but I'd say the XAML Island approach is bit more robust at this point in time. Don't forget to update your manifests to make this work! (background/details in this thread) Download PS. More than happy for this to be a community thing if anyone else wishes to contribute

@Nine I was doing some testing with your WCD IPC UDF and I was very impressed with it. It really is quite simple yet such a genius idea and very efficient as well. Testing with your scripts worked perfectly. But it didn't work when I integrated it into my script. Is it possible that it didn't work with my script because my script is already a GUI script? I checked with System Informer and there wasn't a window titled "WCDServer". It would've shown there whether it was hidden or not. EDIT: I figured out the problem. I was using _WinAPI_SetWindowText to set the title for the AutoIt window specifically but it was changing the title from "WCDServer" to the other title that I was using previously. This is something that I can work around. Your UDF is the perfect solution to my problem. Thank you.

Hello! I'm working on a new GUI builder that I have been making great progress on! A helpful forum member ioa747 answered a question I had which started me on my journey, and now I'd like to present to you an alpha version of the software. As of now only Form and Button works in a rudimentary fashion. To run this, open Guiscape.au3 and go from there! I'd love to hear your feedback and suggestions. 🙂 Latest versions will be on Github from now on. https://github.com/matthewrg/Guiscape Guiscape.zip Downloads: 35

Check it out! https://github.com/matthewrg/Guiscape

You're probably missing the proper vc_redist dll's since you're on such old OS. https://learn.microsoft.com/en-us/cpp/windows/latest-supported-vc-redist?view=msvc-170

First, I pared down the script to the essentials: For $i = 1 To 20 ; create new(!) map, add one element to the string index "c" (which calculated position in the internal list is index 8) Global $m1[] $m1["c"] = 1 ; check if there`s a value at the index 8 (shouldn`t) If $m1[8] Then ConsoleWrite($m1[8] & @CRLF) ; create another map and add value at the same integer index as the one $m1 checked Global $m2[] $m2[8] = 1 Next I made the following observations: 1. It does not occur with all string indexes, but only with some. It is noticeable that each string index has a fixed associated integer index. If you use a different integer index, the phenomenon does not occur. So far, I have found the following combinations in which the phenomenon occurs: | String-Index | Integer-Index | | ------------ | ------------- | | "[" | 0 | | "<" | 1 | | "" | 5 | | "c" | 8 | | "D" | 9 | | "%" | 10 | | "k" | 16 | | "L" | 17 | | "-" | 18 | | "s" | 24 | | "T" | 25 | | "{" | 32 | | "\" | 33 | | "=" | 34 | These relationships can be explained well using hash index collisions. AutoIt uses the DJB2 hash function in its maps. If you use this for the letters and then scale it to the table size using modulo, you get exactly the corresponding integer indices. Only the table size is obviously not fixed, as the index sometimes fits for 32 elements and sometimes for 64. For example: “c” has a DJB2 hash value of 177672. If we assume that the map in AutoIt has 32 elements at that point, the index for “c” is calculated as 177672 % 32 = 8. This also works for the other string indexes. E.g., “D” --> 177641 % 32 = 9 or “” --> 5381 % 32 = 5. Only the size of the hash table is obviously variable, as some fit for a size of 32 elements and some for 64. However, thanks to the bug, we can learn a lot about the internal structure of AutoIt maps. They are DJB2-based hash tables that start with 32 or 64 elements. 2. This behavior only occurs when the map $m2 is created and an element is created with the same integer index as in $m1. If only this index is set, a match is reported very often. If other indexes are also set, the match does not occur as frequently. One possible explanation for this behavior is as follows: A hash table is essentially an array with a specific size. This size is fundamentally independent of the number of elements it contains (resizing makes sense but is not mandatory). In this case, a map is obviously initially populated with either 32 or 64 elements. When a value is added to the hash table, the hash value of the key is calculated and this calculated value is mapped to the array size using modulo. If the key is “c”, for example, the DJB2 hash (the hash algorithm used in AutoIt) is 177672. To obtain an index for our array in the map, we have to reduce this hash value to the range 32 or 64. This is easy to do using the modulo operator. And with 177672 % 32, we get 8 as the result. The value for the key “c” is therefore stored in the internal array at index 8. However, since several keys could end up at index 8, we need to create a way to hold multiple elements there. For each index, a list is created (a “bucket”) that contains all elements whose key matches this index. The key and value of these elements are then simply stored one after the other in the bucket itself. When a value is queried, the index is first calculated and then this bucket is traversed linearly to see if the specific key is contained in it. In AutoIt, these buckets do not necessarily seem to be used only by one map instance. At some point, two maps share a bucket, resulting in a phenomenon like the one we see here. So you would have to take a closer look at the initialization of the map to see exactly where the problem lies.

Look at my Fast and simple WCD IPC. It is working well between processes with different levels of privilege.

I'm taking the hi word, that's not the same as $hwnd? Let me test it ... :forehead smack: Durrrrr .... thank you!

looks like a malformed window handle to me... around about line 70: GUICtrlSendToDummy($dummy, _WinAPI_MakeLong($NC_CLICKED, $hwnd)) so you're sending part of a window handle (the hi word part), and a in the lo work you have $NC_CLICKED.

...If, there are very many distributed workloads and the "master" overwhelmed itself, then you see what you just witnessed. All this is painfully stupid. More bandwidth than brains. Idea: we should offer torrents ( in a throttle ). With a bit of luck they can feed each other the files 🤪

@Musashi hello I think OP wants to replace each "%" (preceded with digits & eventual dot) with "\%" while keeping a log of each replacement using _FileWriteToLine . But maybe not all "%" must be processed, as we'll see in the script below. @Delai I tried another approach, because the way you scripted it (by splitting the sentence) makes it hard to find the position you need in the original sentence, when comes the replacement part. Local $sLineIn, $sLineOut, $sPattern, $nMode, $iOffset, $aArray $sLineIn = "This % sign for test (not preceded with digits) . " & _ "En un estudio sobre la presencia de mujeres en las empresas tecnológicas se observa que el 20 % de los operarios, " & _ "el 40 % de los ingenieros y el 30 % de los directivos son mujeres. Se sabe que en estas empresas el 20 % de las plantillas " & _ "son directivos, el 35 % son ingenieros y el resto son operarios. Se elige un trabajador al azar de una de estas empresas." $sPattern = '(?U).*\d*\.?\d+ *(%).*' $nMode = 2 ; $STR_REGEXPARRAYFULLMATCH $iOffset = 1 While 1 $aArray = StringRegExp($sLineIn, $sPattern, $nMode, $iOffset) If @error Then $sLineOut &= StringMid($sLineIn, $iOffset) ExitLoop EndIf $iOffset = @extended $sLineOut &= StringTrimRight($aArray[0], 1) & "\%" ; your _FileWriteToLine here WEnd MsgBox(0, "$sLineOut", $sLineOut) Hope it helps

The wrapper I put together ( @trancexx's code ) works just fine in 32 and 64 bit. I have not seen it fail.

If you're running this script in a loop, then you are not leaving enough time to the last click to complete.

No, but... Your last MouseClick is not followed by a Sleep. Probably the reason.

You ought to see me pressing Alt + space then C. People see me doing that, and is like am a god or something Maybe Co-Pilot took it ? 🤔

Ok, so it's far from perfect - but I've finally thrown everything together for a v1.5 release. It's just as "point in time" upload I guess, because there has been a ton of dev since v1.4. For those following along there shouldn't be too many surprises, we now have: - Added a bunch of libraries that were missing in 1.4. I believe there we a ton of statics interfaces that were missed. - Added _WinRT_SwitchInterface($pObj, $sIID), which is a QueryInterface, and Release call in one. (tidies code quite a lot!) - Added Windows.UI libraries (native XAML libs) - Added WindowsAppSDK v1.8 libraries (WinUI3 libs) - Removed _WinRT_Col* funcs. That was a glorified VectorView wrapper - so just use the IVectorView lib! - Added support for paramatised interfaces. You can also determine PIIDs yourselves if need be. Local $sIID_IVector_1_IAudioEffectDefinition_ = _WinRT_GetParameterizedTypeInstanceIID("Windows.Foundation.Collections.IVector`1<Windows.Media.Effects.IAudioEffectDefinition>") _WinRT_SwitchInterface($pInNode_EffectDefs, $sIID_IVector_1_IAudioEffectDefinition_) -Added support for creating delegates (the "type" param is optional - but some objects won't let you register the delegate without specifying this) Local $pFileCompletedDgt = _WinRT_CreateDelegate("_FileCompleted", "Windows.Foundation.TypedEventHandler`2<Windows.Media.Audio.AudioFileInputNode, Object>") Local $iFileCompletedTkn = IAudioFileInputNode_AddHdlrFileCompleted($pAG_InNode, $pFileCompletedDgt) ;.... IAudioFileInputNode_RemoveHdlrFileCompleted($pAG_InNode, $iFileCompletedTkn) _WinRT_DestroyDelegate($pFileCompletedDgt) ;.... Func _FileCompleted($pThis, $pObj, $pArgs) ConsoleWrite("File Completed" & @CRLF) EndFunc - Updated class explorer And probably a bunch of other things that I've forgotten about over the last year!

System Tray Menu Auto-Light/Dark Mode: If your system theme is a light mode theme, it will make the system tray menu light. Dark theme will show dark tray menu. I used to apply dark mode to the system tray menu before by creating a GUI that was never shown. But now I realized that I don't have to create that GUI and simply get the handle for the hidden AutoIt window and apply to that handle. #NoTrayIcon #include <MsgBoxConstants.au3> #include <StringConstants.au3> #include <TrayConstants.au3> #include <SendMessage.au3> #include <WindowsNotifsConstants.au3> Global $hTray = _GetHwndFromPID(@AutoItPID) Global $bIsDarkMode = _WinAPI_ShouldAppsUseDarkMode() ; DPI Awareness DllCall("User32.dll", "bool", "SetProcessDpiAwarenessContext" , "HWND", "DPI_AWARENESS_CONTEXT" -2) Opt("TrayMenuMode", 3) Example() Func Example() ; Create a tray item with the radio item parameter selected. TrayCreateItem("Radio 1", -1, -1, $TRAY_ITEM_RADIO) TrayItemSetState(-1, $TRAY_CHECKED) TrayCreateItem("Radio 2", -1, -1, $TRAY_ITEM_RADIO) TrayCreateItem("Radio 3", -1, -1, $TRAY_ITEM_RADIO) TrayCreateItem("") ; Create a separator line. Local $idExit = TrayCreateItem("Exit") TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu. If $bIsDarkMode Then DarkMode($hTray, True) While 1 Switch TrayGetMsg() Case $idExit ; Exit the loop. ExitLoop EndSwitch WEnd EndFunc ;==>Example ;-------------------------------------------------------------------------------------------------------------------------------- ; https://www.autoitscript.com/forum/topic/211475-darkmode-udf-for-autoits-win32guis/#comment-1530103 ;-------------------------------------------------------------------------------------------------------------------------------- Func DarkMode($hWnd, $bDarkMode = True) ; DarkMode Local Enum $DWMWA_USE_IMMERSIVE_DARK_MODE = (@OSBuild <= 18985) ? 19 : 20 Local $iRet = _WinAPI_DwmSetWindowAttribute_unr($hWnd, $DWMWA_USE_IMMERSIVE_DARK_MODE, $bDarkMode) If Not $iRet Then Return SetError(1, 0, -1) _SetCtrlColorMode($hWnd, $bDarkMode) EndFunc ;==>DarkMode ;-------------------------------------------------------------------------------------------------------------------------------- Func _SetCtrlColorMode($hWnd, $bDarkMode = True, $sName = Default) ; 'Explorer', 'CFD', 'DarkMode_ItemsView', etc. If $sName = Default Then $sName = $bDarkMode ? 'DarkMode_Explorer' : 'Explorer' $bDarkMode = Not Not $bDarkMode ; https://www.vbforums.com/showthread.php?900444-Windows-10-Dark-Mode-amp-VB6-apps If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd) Local Enum $eDefault, $eAllowDark, $eForceDark, $eForceLight, $eMax ; enum PreferredAppMode DllCall('uxtheme.dll', 'bool', 133, 'hwnd', $hWnd, 'bool', $bDarkMode) ; fnAllowDarkModeForWindow = 133 DllCall('uxtheme.dll', 'int', 135, 'int', ($bDarkMode ? $eForceDark : $eForceLight)) ; fnAllowDarkModeForApp = 135 _WinAPI_SetWindowTheme_unr($hWnd, $sName) ; https://www.autoitscript.com/forum/index.php?showtopic=211475&view=findpost&p=1530103 DllCall('uxtheme.dll', 'none', 104) ; fnRefreshImmersiveColorPolicyState = 104 ; not needed ? _SendMessage($hWnd, $WM_THEMECHANGED, 0, 0) ; not needed ? EndFunc ;==>_SetCtrlColorMode ;-------------------------------------------------------------------------------------------------------------------------------- Func _WinAPI_SetWindowTheme_unr($hWnd, $sName = Null, $sList = Null) ; #include <WinAPITheme.au3> ; unthoughtful unrestricting mod. ;Causes a window to use a different set of visual style information than its class normally uses Local $sResult = DllCall('UxTheme.dll', 'long', 'SetWindowTheme', 'hwnd', $hWnd, 'wstr', $sName, 'wstr', $sList) If @error Then Return SetError(@error, @extended, 0) If $sResult[0] Then Return SetError(10, $sResult[0], 0) Return 1 EndFunc ;==>_WinAPI_SetWindowTheme_unr ;-------------------------------------------------------------------------------------------------------------------------------- Func _WinAPI_DwmSetWindowAttribute_unr($hWnd, $iAttribute, $iData) ; #include <WinAPIGdi.au3> ; unthoughtful unrestricting mod. ;Sets the value of the specified attributes for non-client rendering to apply to the window Local $aCall = DllCall('dwmapi.dll', 'long', 'DwmSetWindowAttribute', 'hwnd', $hWnd, 'dword', $iAttribute, _ 'dword*', $iData, 'dword', 4) If @error Then Return SetError(@error, @extended, 0) If $aCall[0] Then Return SetError(10, $aCall[0], 0) Return 1 EndFunc ;==>_WinAPI_DwmSetWindowAttribute_unr ;-------------------------------------------------------------------------------------------------------------------------------- Func _WinAPI_ShouldAppsUseDarkMode() Local $fnShouldAppsUseDarkMode = 132 Local $aResult = DllCall('UxTheme.dll', 'bool', $fnShouldAppsUseDarkMode) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc ;==>_WinAPI_ShouldAppsUseDarkMode ;-------------------------------------------------------------------------------------------------------------------------------- ; Function for getting HWND from PID Func _GetHwndFromPID($PID) $hWnd = 0 $winlist = WinList() For $i = 1 To $winlist[0][0] If $winlist[$i][0] <> "" Then $iPID2 = WinGetProcess($winlist[$i][1]) If $iPID2 = $PID Then $hWnd = $winlist[$i][1] ExitLoop EndIf EndIf Next Return $hWnd EndFunc ;==>_GetHwndFromPID

my question is why don't you do it like that? (Unless you want it to wait for you to press enter manually) ; ----------------------------------------------- #include <AutoItConstants.au3> ; ----------------------------------------------- Global $iTimeOut = 100 Global $iX = 711, $iY = 80 ; For F12 ; ----------------------------------------------- UpdateScenesF12($iX, $iY) ; ----------------------------------------------- Func UpdateScenesF12($iX, $iY) ConsoleWrite("UpdateScenes(" & $iX & ", " & $iY & ")" & @CRLF) Local $hSAC_MAIN = "[CLASS:SAC_MAIN]" Local $hSAC_SCENES = "[CLASS:SAC_SCENES]" Local $hSAC_SCENEPROPERTIES = "[CLASS:SAC_SCENEPROPERTIES]" ; ----------------------------------------------- WinActivate($hSAC_MAIN) WinActivate($hSAC_SCENES) ; ----------------------------------------------- ; <<<<==== Script Intervention ====>>>> Send("{End}") ; Select [End Of List] ; ----------------------------------------------- Sleep($iTimeOut) MouseClick($MOUSE_CLICK_LEFT, 188, 118, 1, 0) ; Select [New], the [Enter Scene Name] dialog is displayed. ; ----------------------------------------------- Send("{CTRLDOWN}") Send("v") ; Enter Scene Name Send("{CTRLUP}") ; ---------------------- ;~ Send("{ENTER}") ; Select [Ok], the [Enter Scene Name] dialog is exited...and the [Scene Properties] dialog is displayed Sleep($iTimeOut) MouseClick($MOUSE_CLICK_LEFT, 134, 163, 2, 0) ; Perform mouse click ⚠️ ; ----------------------------------------------- Sleep($iTimeOut) WinMove($hSAC_SCENEPROPERTIES, "", $iX, $iY) ; The [Scene Properties] dialog is repositioned ; ----------------------------------------------- Sleep($iTimeOut) MouseMove(1000, 550, 0) ; The mouse is positioned within the [Scene Properties] dialog EndFunc ;==>UpdateScenesF12 ; ----------------------------------------------- Edit: ; ----------------------------------------------- #include <AutoItConstants.au3> ; ----------------------------------------------- Global $iTimeOut = 100 Global $iX = 711, $iY = 80 ; For F12 ; Set the hotkey for [Enter] to trigger MouseClickAction HotKeySet("{ENTER}", "MouseClickAction") ; ----------------------------------------------- UpdateScenesF12($iX, $iY) ; ----------------------------------------------- Func UpdateScenesF12($iX, $iY) ; Various script stuff ; ----------------------------------------------- ; When [ENTER] is selected [for the [OK] button] then ; Wait for [Enter] to be pressed and handled by MouseClickAction While $bActive Sleep(100) ; Keeps the loop alive, waiting for the [Enter] hotkey action WEnd MouseClick($MOUSE_CLICK_LEFT, 134, 163, 2, 0) Exit script EndFunc ;==>UpdateScenesF12 ; ----------------------------------------------- Func MouseClickAction() HotKeySet("{ENTER}") ; Disable hotkey to prevent repeated clicks ;~ Send("{ENTER}") ; if you want to deliver the Enter key too MouseClick($MOUSE_CLICK_LEFT, 134, 163, 2, 0) ; Perform mouse click $bActive = False ; Exit loop in UpdateScenesF12 EndFunc Or alternately ; ----------------------------------------------- #include <AutoItConstants.au3> ; ----------------------------------------------- Global $iTimeOut = 100 Global $iX = 711, $iY = 80 ; For F12 ; ----------------------------------------------- UpdateScenesF12($iX, $iY) ; ----------------------------------------------- Func UpdateScenesF12($iX, $iY) ; Various script stuff ; ----------------------------------------------- ; When [ENTER] is selected [for the [OK] button] then WinWaitClose("the window that closes the ok") MouseClick($MOUSE_CLICK_LEFT, 134, 163, 2, 0) Exit script EndFunc ;==>UpdateScenesF12 ; -----------------------------------------------

#include <AutoItConstants.au3> HotKeySet("{ENTER}", "MouseClickAction") While 1 Sleep(100) WEnd Func MouseClickAction() HotKeySet("{ENTER}") MouseClick($MOUSE_CLICK_LEFT, 134, 163, 2, 0) Sleep(100) HotKeySet("{ENTER}", "MouseClickAction") EndFunc If you want to leave after clicking #include <AutoItConstants.au3> HotKeySet("{ENTER}", "MouseClickAction") Global $bActive = True While $bActive Sleep(100) WEnd Func MouseClickAction() HotKeySet("{ENTER}") MouseClick($MOUSE_CLICK_LEFT, 134, 163, 2, 0) $bActive = False EndFunc

#include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> Example() Func Example() GUICreate("Custom MsgBox", 225, 80) GUICtrlCreateLabel("Please select a button.", 10, 10) Local $idButton_Yes = GUICtrlCreateButton("Yes", 10, 50, 65, 25) Local $idButton_No = GUICtrlCreateButton("No", 80, 50, 65, 25) Local $idButton_Exit = GUICtrlCreateButton("Exit", 150, 50, 65, 25) ; Set GUIAccelerators for the button controlIDs, these being Ctrl + y and Ctrl + n Local $aAccelKeys[2][2] = [["^y", $idButton_Yes], ["^n", $idButton_No]] GUISetAccelerators($aAccelKeys) GUISetState(@SW_SHOW) ; Display the GUI. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE MsgBox($MB_SYSTEMMODAL, "You selected", "Close") ExitLoop Case $idButton_Yes MsgBox($MB_SYSTEMMODAL, "You selected", "Yes") ; Displays if the button was selected or the hotkey combination Ctrl + y was pressed. Case $idButton_No MsgBox($MB_SYSTEMMODAL, "You selected", "No") ; Displays if the button was selected or the hotkey combination Ctrl + n was pressed. Case $idButton_Exit MsgBox($MB_SYSTEMMODAL, "You selected", "Exit") ExitLoop EndSwitch WEnd GUIDelete() ; Delete the GUI. EndFunc ;==>Example ..is in the help file.

@Parsix Here is my entire modified code: ;~ https://www.autoitscript.com/forum/topic/154081-avoid-autoit-error-message-box-in-unknown-errors/page/4/#findComment-1547350 #Region - AutoIt3Wrapper directives section ; General section #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_Compression=4 ; Au3Check section #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 6 -w 7 ; Au3Stripper section #AutoIt3Wrapper_Run_Au3Stripper=y #Au3Stripper_Parameters=/so /pe #AutoIt3Wrapper_Au3Stripper_OnError=C #EndRegion - AutoIt3Wrapper directives section #include <WinApi.au3> #Region - exmaple AddHookApi("user32.dll", "MessageBoxW", "Intercept_MessageBoxW", "int", "hwnd;wstr;wstr;uint") MsgBox(0, 'Test', 'Some normal MsgBox text') DllStructCreate("byte[123456789097]") ; This is a deliberate action intended to display an error, as this script demonstrates how to change error handling - interact with MsgBox's title and text. #EndRegion - exmaple #Region @trancexx - https://www.autoitscript.com/forum/topic/154081-avoid-autoit-error-message-box-in-unknown-errors/#findComment-1111917 Func Intercept_MessageBoxW($hWnd, $sText, $sTitle, $iType) If $sTitle = 'AutoIt' Then $sTitle = 'TESTING: ' & StringReplace($sTitle, "AutoIt", @ScriptName) Local $aCall = DllCall("user32.dll", "int", "MessageBoxW", _ "hwnd", $hWnd, _ "wstr", $sText, _ "wstr", $sTitle, _ "uint", $iType) If @error Or Not $aCall[0] Then Return 0 Return $aCall[0] EndFunc ;==>Intercept_MessageBoxW ; The magic is down below Func AddHookApi($sModuleName, $vFunctionName, $vNewFunction, $sRet = "", $sParams = "") Local Static $pImportDirectory, $hInstance Local Const $IMAGE_DIRECTORY_ENTRY_IMPORT = 1 If Not $pImportDirectory Then $hInstance = _WinAPI_GetModuleHandle(0) $pImportDirectory = ImageDirectoryEntryToData($hInstance, $IMAGE_DIRECTORY_ENTRY_IMPORT) If @error Then Return SetError(1, 0, 0) EndIf Local $iIsInt = IsInt($vFunctionName) Local $iRestore = Not IsString($vNewFunction) Local $tIMAGE_IMPORT_MODULE_DIRECTORY Local $pDirectoryOffset = $pImportDirectory Local $tModuleName Local $iInitialOffset, $iInitialOffset2 Local $iOffset2 Local $tBufferOffset2, $iBufferOffset2 Local $tBuffer, $tFunctionOffset, $pOld, $fMatch, $pModuleName, $pFuncName Local Const $PAGE_READWRITE = 0x04 While 1 $tIMAGE_IMPORT_MODULE_DIRECTORY = DllStructCreate("dword RVAOriginalFirstThunk;" & _ "dword TimeDateStamp;" & _ "dword ForwarderChain;" & _ "dword RVAModuleName;" & _ "dword RVAFirstThunk", _ $pDirectoryOffset) If Not DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk") Then ExitLoop $pModuleName = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAModuleName") $tModuleName = DllStructCreate("char Name[" & _WinAPI_StringLenA($pModuleName) & "]", $pModuleName) If DllStructGetData($tModuleName, "Name") = $sModuleName Then ; function from this module $iInitialOffset = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk") $iInitialOffset2 = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAOriginalFirstThunk") If $iInitialOffset2 = $hInstance Then $iInitialOffset2 = $iInitialOffset $iOffset2 = 0 While 1 $tBufferOffset2 = DllStructCreate("dword_ptr", $iInitialOffset2 + $iOffset2) $iBufferOffset2 = DllStructGetData($tBufferOffset2, 1) If Not $iBufferOffset2 Then ExitLoop If $iIsInt Then If BitAND($iBufferOffset2, 0xFFFFFF) = $vFunctionName Then $fMatch = True ; wanted function Else $pFuncName = $hInstance + $iBufferOffset2 + 2 ; 2 is size od "word", see line below... $tBuffer = DllStructCreate("word Ordinal; char Name[" & _WinAPI_StringLenA($pFuncName) & "]", $hInstance + $iBufferOffset2) If DllStructGetData($tBuffer, "Name") == $vFunctionName Then $fMatch = True ; wanted function EndIf If $fMatch Then $tFunctionOffset = DllStructCreate("ptr", $iInitialOffset + $iOffset2) VirtualProtect(DllStructGetPtr($tFunctionOffset), DllStructGetSize($tFunctionOffset), $PAGE_READWRITE) If @error Then Return SetError(3, 0, 0) $pOld = DllStructGetData($tFunctionOffset, 1) If $iRestore Then DllStructSetData($tFunctionOffset, 1, $vNewFunction) Else DllStructSetData($tFunctionOffset, 1, DllCallbackGetPtr(DllCallbackRegister($vNewFunction, $sRet, $sParams))) EndIf Return $pOld EndIf $iOffset2 += DllStructGetSize($tBufferOffset2) WEnd ExitLoop EndIf $pDirectoryOffset += 20 ; size of $tIMAGE_IMPORT_MODULE_DIRECTORY WEnd Return SetError(4, 0, 0) EndFunc ;==>AddHookApi Func VirtualProtect($pAddress, $iSize, $iProtection) Local $aCall = DllCall("kernel32.dll", "bool", "VirtualProtect", "ptr", $pAddress, "dword_ptr", $iSize, "dword", $iProtection, "dword*", 0) If @error Or Not $aCall[0] Then Return SetError(1, 0, 0) Return 1 EndFunc ;==>VirtualProtect Func ImageDirectoryEntryToData($hInstance, $iDirectoryEntry) ; Get pointer to data Local $pPointer = $hInstance ; Start processing passed binary data. 'Reading' PE format follows. Local $tIMAGE_DOS_HEADER = DllStructCreate("char Magic[2];" & _ "word BytesOnLastPage;" & _ "word Pages;" & _ "word Relocations;" & _ "word SizeofHeader;" & _ "word MinimumExtra;" & _ "word MaximumExtra;" & _ "word SS;" & _ "word SP;" & _ "word Checksum;" & _ "word IP;" & _ "word CS;" & _ "word Relocation;" & _ "word Overlay;" & _ "char Reserved[8];" & _ "word OEMIdentifier;" & _ "word OEMInformation;" & _ "char Reserved2[20];" & _ "dword AddressOfNewExeHeader", _ $pPointer) Local $sMagic = DllStructGetData($tIMAGE_DOS_HEADER, "Magic") ; Check if it's valid format If Not ($sMagic == "MZ") Then Return SetError(1, 0, 0) ; MS-DOS header missing. Btw 'MZ' are the initials of Mark Zbikowski in case you didn't know. ; Move pointer $pPointer += DllStructGetData($tIMAGE_DOS_HEADER, "AddressOfNewExeHeader") ; move to PE file header ; In place of IMAGE_NT_SIGNATURE structure Local $tIMAGE_NT_SIGNATURE = DllStructCreate("dword Signature", $pPointer) ; Check signature If DllStructGetData($tIMAGE_NT_SIGNATURE, "Signature") <> 17744 Then ; IMAGE_NT_SIGNATURE Return SetError(2, 0, 0) ; wrong signature. For PE image should be "PE\0\0" or 17744 dword. EndIf ; Move pointer $pPointer += 4 ; size of $tIMAGE_NT_SIGNATURE structure ; In place of IMAGE_FILE_HEADER structure ; Move pointer $pPointer += 20 ; size of $tIMAGE_FILE_HEADER structure ; Determine the type Local $tMagic = DllStructCreate("word Magic;", $pPointer) Local $iMagic = DllStructGetData($tMagic, 1) Local $tIMAGE_OPTIONAL_HEADER If $iMagic = 267 Then ; x86 version ; Move pointer $pPointer += 96 ; size of $tIMAGE_OPTIONAL_HEADER ElseIf $iMagic = 523 Then ; x64 version ; Move pointer $pPointer += 112 ; size of $tIMAGE_OPTIONAL_HEADER Else Return SetError(3, 0, 0) ; unsupported module type EndIf ; Validate input by checking available number of structures that are in the module Local Const $IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16 ; predefined value that PE modules always use (AutoIt certainly) If $iDirectoryEntry > $IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1 Then Return SetError(4, 0, 0) ; invalid input ; Calculate the offset to wanted entry (every entry is 8 bytes) $pPointer += 8 * $iDirectoryEntry ; At place of correst directory entry Local $tIMAGE_DIRECTORY_ENTRY = DllStructCreate("dword VirtualAddress; dword Size", $pPointer) ; Collect data Local $pAddress = DllStructGetData($tIMAGE_DIRECTORY_ENTRY, "VirtualAddress") If $pAddress = 0 Then Return SetError(5, 0, 0) ; invalid input ; $pAddress is RVA, add it to base address Return $hInstance + $pAddress EndFunc ;==>ImageDirectoryEntryToData #EndRegion @trancexx - https://www.autoitscript.com/forum/topic/154081-avoid-autoit-error-message-box-in-unknown-errors/#findComment-1111917 Please note that I also modified this line: Func Intercept_MessageBoxW($hWnd, $sText, $sTitle, $iType) If $sTitle = 'AutoIt' Then $sTitle = 'TESTING: ' & StringReplace($sTitle, "AutoIt", @ScriptName) ... ... "wstr", $sTitle, _ ... ... EndIf

This is a deliberate action intended to display an error, as this script demonstrates how to change error handling - interact with MsgBox's title and text.

sure thing. - yeah, there are no window handles per se - apart from the WinID of the main window. Everything is done on objects. so that colour change would be something like: $pBrush = CreateSolidBrush("Red") IBorder_SetBackground($apBorders[0], $pBrush) IUnknown_Release($pBrush) In the Sept 3rd. example, to keep things tidy I release the border objects once they're created. So you'd need either need to change the background before releasing, or get the border object back by some other means. Via its parent for example - in this case the grid object (before it too is released!). As for triggering the color change - In this example, once we get into the main loop everything is event based. When we hit the following line the script won't continue until the dispatch loop is broken with _WinUI3_PostQuitMessage. IDispatcherQueue3_RunEventLoop($pDispatchQ) The general idea is to create a bunch of handlers with _WinRT_CreateDelegate(). But if you'd rather work within a while loop, it is possible to create your own dispatcher with _WinUI3_GetMsg / _WinUI3_DispatchMessage. I think there are probably examples of this early in the thread!

Yep, that could work well. Only drawback is the true use of the dead key misconverted into an accented characters. But it is less an issue when you know what you are doing...

To the new approach, (I updated the first post.) I also added the logic of "dead keys", where the accented characters are a combination of 2 keys, a dead key and a vowel.

Because working with multiple monitors was required during the development of ImageSearchUDF , this UDF was created UDF: #include-once #include <WinAPIGdi.au3> #include <WinAPISysWin.au3> #include <WindowsConstants.au3> ; =============================================================================================================================== ; Title .........: Monitor UDF ; Description ...: Provides advanced monitor management and multi-monitor utilities. ; Author ........: Dao Van Trong - TRONG.PRO ; Version .......: 2.2 ; Compatibility .: Windows XP SP2 and later (most functions) ; Windows 8.1+ required for GetDpiForMonitor API (automatic fallback on older systems) ; =============================================================================================================================== ; IMPORTANT NOTES: ; - Some functions require Administrator privileges (UAC elevation): ; * _Monitor_Enable() - Requires admin to attach monitor ; * _Monitor_Disable() - Requires admin to detach monitor ; * _Monitor_SetResolution() - Requires admin to change display settings ; * _Monitor_SetPrimary() - Requires admin to set primary monitor ; * _Monitor_SetDisplayMode() - Requires admin to change display mode ; - These functions may not work with proprietary graphics drivers (NVIDIA, AMD control panels) ; - Always test resolution changes before applying permanently ; =============================================================================================================================== ; FUNCTIONS SUMMARY ; =============================================================================================================================== ; ; === CORE MONITOR INFORMATION FUNCTIONS === ; _Monitor_GetList() - Enumerate all connected monitors and initialize global list ; _Monitor_GetCount() - Get total number of connected monitors ; _Monitor_GetPrimary() - Get index of the primary monitor ; _Monitor_GetInfo($iMonitor) - Get detailed information about a specific monitor ; _Monitor_GetBounds($iMonitor, ByRef ...) - Get full monitor rectangle (including taskbar) ; _Monitor_GetWorkArea($iMonitor, ByRef ...) - Get working area (excluding taskbar) ; _Monitor_GetDisplaySettings($iMonitor [, $iMode]) - Get current display mode settings ; _Monitor_GetResolution($iMonitor) - Get monitor resolution (width x height) ; _Monitor_GetVirtualBounds() - Get bounding rectangle of entire virtual screen ; _Monitor_Refresh() - Refresh monitor list (reload from system) ; _Monitor_IsConnected($iMonitor) - Check if monitor is still connected ; _Monitor_ShowInfo([$bShowMsgBox, $iTimeout]) - Display all monitor information ; ; === MONITOR LOCATION & DETECTION FUNCTIONS === ; _Monitor_GetFromPoint([$x, $y]) - Get monitor from screen coordinates or mouse position ; _Monitor_GetFromWindow($hWnd [, $iFlag]) - Get monitor containing a specific window ; _Monitor_GetFromRect($L, $T, $R, $B [, $iFlag]) - Get monitor overlapping a rectangle ; ; === COORDINATE CONVERSION FUNCTIONS === ; _Monitor_ToVirtual($iMonitor, $x, $y) - Convert local monitor coords to virtual coords ; _Monitor_FromVirtual($iMonitor, $x, $y) - Convert virtual coords to local monitor coords ; ; === WINDOW MANAGEMENT FUNCTIONS === ; _Monitor_IsVisibleWindow($hWnd) - Check if window is visible and top-level ; _Monitor_MoveWindowToScreen($vTitle, ...) - Move window to specific monitor (centered) ; _Monitor_MoveWindowToAll($vTitle, ...) - Move window across all monitors sequentially ; ; === DISPLAY MODE ENUMERATION FUNCTIONS === ; _Monitor_EnumAllDisplayModes($iMonitor) - Enumerate all available display modes ; _Monitor_GetDPI($iMonitor) - Get DPI scaling information (Win8.1+) ; _Monitor_GetOrientation($iMonitor) - Get display orientation (0/90/180/270°) ; _Monitor_GetDisplayMode() - Get current display mode (duplicate/extend) ; ; === LAYOUT MANAGEMENT FUNCTIONS === ; _Monitor_GetLayout() - Get current display layout configuration ; _Monitor_GetLayoutDescription() - Get text description of current layout ; _Monitor_SaveLayout($sFilePath) - Save current layout to INI file ; _Monitor_LoadLayout($sFilePath) - Load layout from INI file (does not apply) ; ; === DISPLAY SETTINGS FUNCTIONS (*** REQUIRE ADMINISTRATOR PRIVILEGES ***) === ; _Monitor_Enable($iMonitor) - Enable/attach a disabled monitor [ADMIN] ; _Monitor_Disable($iMonitor) - Disable/detach a monitor [ADMIN] ; _Monitor_SetResolution($iMonitor, $W, $H, ...) - Set monitor resolution and refresh rate [ADMIN] ; _Monitor_SetPrimary($iMonitor) - Set a monitor as primary [ADMIN] ; _Monitor_SetDisplayMode($iMode) - Set display mode (duplicate/extend) [ADMIN] ; ; === INTERNAL/PRIVATE FUNCTIONS (DO NOT CALL DIRECTLY) === ; __Monitor_IsWindowsVersionOrGreater($iMajor, $iMinor) - Check OS version (internal) ; __Monitor_FallbackOSVersionCheck($iMajor, $iMinor) - Fallback OS check (internal) ; __Monitor_IsWindows8_1OrGreater() - Check if Win8.1+ (internal) ; ; =============================================================================================================================== ; USAGE EXAMPLES: ; =============================================================================================================================== ; Example 1: Get basic monitor information ; Local $iMonCount = _Monitor_GetCount() ; Local $iPrimary = _Monitor_GetPrimary() ; ConsoleWrite("Total monitors: " & $iMonCount & ", Primary: " & $iPrimary & @CRLF) ; ; Example 2: Get resolution of monitor 1 ; Local $aRes = _Monitor_GetResolution(1) ; If Not @error Then ConsoleWrite("Resolution: " & $aRes[0] & "x" & $aRes[1] & @CRLF) ; ; Example 3: Move window to monitor 2 (centered) ; _Monitor_MoveWindowToScreen("Notepad", "", 2) ; ; Example 4: Get monitor at mouse position ; Local $iMon = _Monitor_GetFromPoint() ; ConsoleWrite("Mouse is on monitor: " & $iMon & @CRLF) ; ; Example 5: Change resolution (requires admin) ; Local $iResult = _Monitor_SetResolution(1, 1920, 1080, 32, 60) ; If @error Then ConsoleWrite("Failed to set resolution. Error: " & @error & @CRLF) ; ; Example 6: Save and load layout ; _Monitor_SaveLayout(@ScriptDir & "\my_layout.ini") ; Local $aLayout = _Monitor_LoadLayout(@ScriptDir & "\my_layout.ini") ; ; Example 7: Show all monitor information ; _Monitor_ShowInfo(True, 15) ; Show in MsgBox with 15 second timeout ; ; =============================================================================================================================== #Region --- Constants Definition --- ;~ ; System Metrics Constants (Windows XP+) ;~ Global Const $SM_CMONITORS = 80 ;~ Global Const $SM_XVIRTUALSCREEN = 76 ;~ Global Const $SM_YVIRTUALSCREEN = 77 ;~ Global Const $SM_CXVIRTUALSCREEN = 78 ;~ Global Const $SM_CYVIRTUALSCREEN = 79 ;~ ; Monitor Flags (Windows 2000+) ;~ Global Const $MONITOR_DEFAULTTONULL = 0 ;~ Global Const $MONITOR_DEFAULTTOPRIMARY = 1 ;~ Global Const $MONITOR_DEFAULTTONEAREST = 2 ;~ ; EnumDisplaySettings Mode (Windows 95+) ;~ Global Const $ENUM_CURRENT_SETTINGS = -1 ;~ Global Const $ENUM_REGISTRY_SETTINGS = -2 ;~ ; Window Style Constants (Windows 95+) ;~ Global Const $GWL_STYLE = -16 ;~ Global Const $GWL_EXSTYLE = -20 ;~ Global Const $WS_VISIBLE = 0x10000000 ;~ Global Const $WS_CHILD = 0x40000000 ;~ Global Const $WS_EX_TOOLWINDOW = 0x00000080 ; ChangeDisplaySettings Flags (Windows 95+) Global Const $CDS_UPDATEREGISTRY = 0x00000001 Global Const $CDS_TEST = 0x00000002 Global Const $CDS_FULLSCREEN = 0x00000004 Global Const $CDS_GLOBAL = 0x00000008 Global Const $CDS_SET_PRIMARY = 0x00000010 Global Const $CDS_NORESET = 0x10000000 Global Const $CDS_RESET = 0x40000000 ; ChangeDisplaySettings Return Values Global Const $DISP_CHANGE_SUCCESSFUL = 0 Global Const $DISP_CHANGE_RESTART = 1 Global Const $DISP_CHANGE_FAILED = -1 Global Const $DISP_CHANGE_BADMODE = -2 Global Const $DISP_CHANGE_NOTUPDATED = -3 Global Const $DISP_CHANGE_BADFLAGS = -4 Global Const $DISP_CHANGE_BADPARAM = -5 Global Const $DISP_CHANGE_BADDUALVIEW = -6 ;~ ; DEVMODE Field Flags (Windows 95+) ;~ Global Const $DM_ORIENTATION = 0x00000001 ;~ Global Const $DM_PAPERSIZE = 0x00000002 ;~ Global Const $DM_PAPERLENGTH = 0x00000004 ;~ Global Const $DM_PAPERWIDTH = 0x00000008 ;~ Global Const $DM_POSITION = 0x00000020 ;~ Global Const $DM_DISPLAYORIENTATION = 0x00000080 ;~ Global Const $DM_DISPLAYFIXEDOUTPUT = 0x20000000 ;~ Global Const $DM_BITSPERPEL = 0x00040000 ;~ Global Const $DM_PELSWIDTH = 0x00080000 ;~ Global Const $DM_PELSHEIGHT = 0x00100000 ;~ Global Const $DM_DISPLAYFLAGS = 0x00200000 ;~ Global Const $DM_DISPLAYFREQUENCY = 0x00400000 #EndRegion --- Constants Definition --- #Region --- Global Variables --- ; =============================================================================================================================== ; Global Monitor Information Array ; =============================================================================================================================== ; $__g_aMonitorList[][] structure: ; ; [0][0] = Number of monitors detected ; [0][1] = Virtual desktop Left coordinate (combined area) ; [0][2] = Virtual desktop Top coordinate ; [0][3] = Virtual desktop Right coordinate ; [0][4] = Virtual desktop Bottom coordinate ; [0][5] = Virtual desktop Width ; [0][6] = Virtual desktop Height ; ; For each monitor index i (1..$__g_aMonitorList[0][0]): ; [i][0] = Monitor handle (HMONITOR) ; [i][1] = Left coordinate of monitor ; [i][2] = Top coordinate of monitor ; [i][3] = Right coordinate of monitor ; [i][4] = Bottom coordinate of monitor ; [i][5] = IsPrimary (1 if primary, 0 otherwise) ; [i][6] = Device name string (e.g. "\\.\DISPLAY1") ; ; =============================================================================================================================== Global $__g_aMonitorList[1][7] = [[0, 0, 0, 0, 0, 0, ""]] #EndRegion --- Global Variables --- #Region --- OS Compatibility Functions --- ; #FUNCTION# ==================================================================================================================== ; Name...........: __Monitor_IsWindowsVersionOrGreater ; Description....: Check if running on Windows version or greater (internal function) ; Syntax.........: __Monitor_IsWindowsVersionOrGreater($iMajor, $iMinor = 0) ; Parameters.....: $iMajor - Major version number (e.g., 6 for Vista, 10 for Windows 10) ; $iMinor - [optional] Minor version number. Default is 0 ; Return values..: True if OS version is equal or greater, False otherwise ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Internal function for OS compatibility checking. Uses GetVersionEx API directly for accurate ; version detection, works on all AutoIt versions (even old ones where @OSVersion may be inaccurate). ; Windows XP = 5.1, Vista = 6.0, Win7 = 6.1, Win8 = 6.2, Win8.1 = 6.3, Win10 = 10.0 ; ================================================================================================================================ Func __Monitor_IsWindowsVersionOrGreater($iMajor, $iMinor = 0) ; Use GetVersionEx API directly (works on all Windows versions and all AutoIt versions) ; This is more reliable than @OSVersion which may not be accurate on old AutoIt versions ; Define OSVERSIONINFOEX structure Local $tOSVI = DllStructCreate("dword;dword;dword;dword;dword;wchar[128];ushort;ushort;ushort;byte;byte") If @error Then Return __Monitor_FallbackOSVersionCheck($iMajor, $iMinor) ; Set structure size (first field) DllStructSetData($tOSVI, 1, DllStructGetSize($tOSVI)) ; Call GetVersionExW (Unicode version, available from Windows 2000+) Local $aRet = DllCall("kernel32.dll", "bool", "GetVersionExW", "struct*", $tOSVI) If @error Or Not IsArray($aRet) Or Not $aRet[0] Then ; Fallback: Try ANSI version GetVersionExA (available from Windows 95+) Local $tOSVIA = DllStructCreate("dword;dword;dword;dword;dword;char[128];ushort;ushort;ushort;byte;byte") If @error Then Return __Monitor_FallbackOSVersionCheck($iMajor, $iMinor) DllStructSetData($tOSVIA, 1, DllStructGetSize($tOSVIA)) $aRet = DllCall("kernel32.dll", "bool", "GetVersionExA", "struct*", $tOSVIA) If @error Or Not IsArray($aRet) Or Not $aRet[0] Then Return __Monitor_FallbackOSVersionCheck($iMajor, $iMinor) EndIf ; Use ANSI version data Local $iOSMajor = DllStructGetData($tOSVIA, 2) Local $iOSMinor = DllStructGetData($tOSVIA, 3) ; Compare versions If $iOSMajor > $iMajor Then Return True If $iOSMajor = $iMajor And $iOSMinor >= $iMinor Then Return True Return False EndIf ; Get version from structure (Unicode version) Local $iOSMajor = DllStructGetData($tOSVI, 2) Local $iOSMinor = DllStructGetData($tOSVI, 3) ; Handle Windows 10/11: GetVersionEx may return 6.3 for compatibility ; Check build number to distinguish Windows 10/11 from 8.1 Local $iBuildNumber = DllStructGetData($tOSVI, 4) If $iOSMajor = 6 And $iOSMinor = 3 And $iBuildNumber >= 10000 Then ; Windows 10/11 (build number >= 10000) $iOSMajor = 10 $iOSMinor = 0 EndIf ; Compare versions If $iOSMajor > $iMajor Then Return True If $iOSMajor = $iMajor And $iOSMinor >= $iMinor Then Return True Return False EndFunc ;==>__Monitor_IsWindowsVersionOrGreater ; #FUNCTION# ==================================================================================================================== ; Name...........: __Monitor_FallbackOSVersionCheck ; Description....: Fallback OS version check using @OSVersion macro (internal function) ; Syntax.........: __Monitor_FallbackOSVersionCheck($iMajor, $iMinor) ; Parameters.....: $iMajor - Major version number ; $iMinor - Minor version number ; Return values..: True if OS version is equal or greater, False otherwise ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Used only when GetVersionEx API fails. Less reliable than API call. ; ================================================================================================================================ Func __Monitor_FallbackOSVersionCheck($iMajor, $iMinor) ; Fallback to @OSVersion (may be inaccurate on old AutoIt versions, but better than nothing) Local $sOSVersion = @OSVersion Local $iOSMajor = 5, $iOSMinor = 1 ; Default to XP If StringInStr($sOSVersion, "WIN_11") Then $iOSMajor = 10 $iOSMinor = 0 ElseIf StringInStr($sOSVersion, "WIN_10") Then $iOSMajor = 10 $iOSMinor = 0 ElseIf StringInStr($sOSVersion, "WIN_8") Then ; Use @OSBuild to distinguish 8.0 vs 8.1 (8.1 has build >= 9600) If @OSBuild >= 9600 Then $iOSMajor = 6 $iOSMinor = 3 ; Windows 8.1 Else $iOSMajor = 6 $iOSMinor = 2 ; Windows 8 EndIf ElseIf StringInStr($sOSVersion, "WIN_7") Then $iOSMajor = 6 $iOSMinor = 1 ElseIf StringInStr($sOSVersion, "WIN_VISTA") Then $iOSMajor = 6 $iOSMinor = 0 ElseIf StringInStr($sOSVersion, "WIN_XP") Then $iOSMajor = 5 $iOSMinor = 1 ElseIf StringInStr($sOSVersion, "WIN_2003") Then $iOSMajor = 5 $iOSMinor = 2 EndIf ; Compare versions If $iOSMajor > $iMajor Then Return True If $iOSMajor = $iMajor And $iOSMinor >= $iMinor Then Return True Return False EndFunc ;==>__Monitor_FallbackOSVersionCheck ; #FUNCTION# ==================================================================================================================== ; Name...........: __Monitor_IsWindows8_1OrGreater ; Description....: Check if running on Windows 8.1 or greater (internal function) ; Syntax.........: __Monitor_IsWindows8_1OrGreater() ; Parameters.....: None ; Return values..: True if Windows 8.1 or greater, False otherwise ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Internal function for checking if GetDpiForMonitor API is available ; ================================================================================================================================ Func __Monitor_IsWindows8_1OrGreater() ; FIXED: Improved logic to correctly detect Windows 8.1+ Local $tOSVI = DllStructCreate("dword;dword;dword;dword;dword;wchar[128];ushort;ushort;ushort;byte;byte") If @error Then Return __Monitor_IsWindowsVersionOrGreater(6, 3) DllStructSetData($tOSVI, 1, DllStructGetSize($tOSVI)) Local $aRet = DllCall("kernel32.dll", "bool", "GetVersionExW", "struct*", $tOSVI) If @error Or Not IsArray($aRet) Or Not $aRet[0] Then Return __Monitor_IsWindowsVersionOrGreater(6, 3) EndIf Local $iOSMajor = DllStructGetData($tOSVI, 2) Local $iOSMinor = DllStructGetData($tOSVI, 3) Local $iBuildNumber = DllStructGetData($tOSVI, 4) ; FIXED: Correct logic for Windows 8.1+ detection ; Windows 10+ has major >= 10 If $iOSMajor > 6 Then Return True ; Windows 8.1+ has major=6 AND minor>=3 If $iOSMajor = 6 And $iOSMinor > 3 Then Return True ; Windows 8.1 exactly has major=6 AND minor=3 AND build>=9600 If $iOSMajor = 6 And $iOSMinor = 3 And $iBuildNumber >= 9600 Then Return True Return False EndFunc ;==>__Monitor_IsWindows8_1OrGreater #EndRegion --- OS Compatibility Functions --- #Region --- Core Monitor Functions --- ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetFromPoint ; Description....: Get the monitor index from a screen coordinate or current mouse position ; Syntax.........: _Monitor_GetFromPoint([$iX = -1 [, $iY = -1]]) ; Parameters.....: $iX - [optional] X coordinate in virtual screen coordinates. Default is -1 (use mouse position) ; $iY - [optional] Y coordinate in virtual screen coordinates. Default is -1 (use mouse position) ; Return values..: Success - Monitor index (1..N) ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid parameters or MouseGetPos failed ; |@error = 2 - Monitor not found at specified coordinates ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: If both $iX and $iY are -1 (default), function uses current mouse position. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetList, _Monitor_GetFromWindow, _Monitor_GetFromRect ; ================================================================================================================================ Func _Monitor_GetFromPoint($iX = -1, $iY = -1) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() ; Use WinAPI function if available If $iX = -1 Or $iY = -1 Then Local $aMouse = MouseGetPos() If @error Then Return SetError(1, 0, 0) $iX = $aMouse[0] $iY = $aMouse[1] EndIf Local $tPoint = DllStructCreate($tagPOINT) If @error Then Return SetError(1, 0, 0) DllStructSetData($tPoint, "X", $iX) DllStructSetData($tPoint, "Y", $iY) Local $hMonitor = _WinAPI_MonitorFromPoint($tPoint, $MONITOR_DEFAULTTONEAREST) If @error Then $hMonitor = 0 EndIf ; Find index in our list For $i = 1 To $__g_aMonitorList[0][0] If $__g_aMonitorList[$i][0] = $hMonitor Then Return $i Next ; Fallback to coordinate checking For $i = 1 To $__g_aMonitorList[0][0] If $iX >= $__g_aMonitorList[$i][1] _ And $iX < $__g_aMonitorList[$i][3] _ And $iY >= $__g_aMonitorList[$i][2] _ And $iY < $__g_aMonitorList[$i][4] Then Return $i EndIf Next Return SetError(2, 0, 0) EndFunc ;==>_Monitor_GetFromPoint ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetFromWindow ; Description....: Get the monitor index that contains the specified window ; Syntax.........: _Monitor_GetFromWindow($hWnd [, $iFlag = $MONITOR_DEFAULTTONEAREST]) ; Parameters.....: $hWnd - Window handle or title string. Can be HWND or window title ; $iFlag - [optional] Monitor flag. Default is $MONITOR_DEFAULTTONEAREST ; Can be: $MONITOR_DEFAULTTONULL, $MONITOR_DEFAULTTOPRIMARY, $MONITOR_DEFAULTTONEAREST ; Return values..: Success - Monitor index (1..N) ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid window handle or window not found ; |@error = 2 - WinAPI MonitorFromWindow call failed ; |@error = 3 - Monitor handle not found in internal list ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Function accepts both window handles and window titles. Automatically converts title to handle. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetList, _Monitor_GetFromPoint, _Monitor_GetFromRect ; ================================================================================================================================ Func _Monitor_GetFromWindow($hWnd, $iFlag = $MONITOR_DEFAULTTONEAREST) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If Not IsHWnd($hWnd) Then $hWnd = WinGetHandle($hWnd) If Not $hWnd Then Return SetError(1, 0, 0) Local $hMonitor = _WinAPI_MonitorFromWindow($hWnd, $iFlag) If @error Or Not $hMonitor Then Return SetError(2, 0, 0) For $i = 1 To $__g_aMonitorList[0][0] If $__g_aMonitorList[$i][0] = $hMonitor Then Return $i Next Return SetError(3, 0, 0) EndFunc ;==>_Monitor_GetFromWindow ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetFromRect ; Description....: Get the monitor index that has the largest intersection with the specified rectangle ; Syntax.........: _Monitor_GetFromRect($iLeft, $iTop, $iRight, $iBottom [, $iFlag = $MONITOR_DEFAULTTONEAREST]) ; Parameters.....: $iLeft - Left coordinate of the rectangle in virtual screen coordinates ; $iTop - Top coordinate of the rectangle in virtual screen coordinates ; $iRight - Right coordinate of the rectangle in virtual screen coordinates ; $iBottom - Bottom coordinate of the rectangle in virtual screen coordinates ; $iFlag - [optional] Monitor flag. Default is $MONITOR_DEFAULTTONEAREST ; Can be: $MONITOR_DEFAULTTONULL, $MONITOR_DEFAULTTOPRIMARY, $MONITOR_DEFAULTTONEAREST ; Return values..: Success - Monitor index (1..N) ; Failure - 0, sets @error to non-zero: ; |@error = 1 - DllStructCreate failed or WinAPI MonitorFromRect call failed ; |@error = 2 - Monitor not found in internal list ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Coordinates should be in virtual screen coordinate system (can span multiple monitors). ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetList, _Monitor_GetFromPoint, _Monitor_GetFromWindow ; ================================================================================================================================ Func _Monitor_GetFromRect($iLeft, $iTop, $iRight, $iBottom, $iFlag = $MONITOR_DEFAULTTONEAREST) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() Local $tRect = DllStructCreate($tagRECT) If @error Then Return SetError(1, 0, 0) DllStructSetData($tRect, "Left", $iLeft) DllStructSetData($tRect, "Top", $iTop) DllStructSetData($tRect, "Right", $iRight) DllStructSetData($tRect, "Bottom", $iBottom) Local $hMonitor = _WinAPI_MonitorFromRect($tRect, $iFlag) If @error Or Not $hMonitor Then Return SetError(1, 0, 0) For $i = 1 To $__g_aMonitorList[0][0] If $__g_aMonitorList[$i][0] = $hMonitor Then Return $i Next Return SetError(2, 0, 0) EndFunc ;==>_Monitor_GetFromRect ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetWorkArea ; Description....: Get working area of a specific monitor (excluding taskbar and system bars) ; Syntax.........: _Monitor_GetWorkArea($iMonitor, ByRef $left, ByRef $top, ByRef $right, ByRef $bottom) ; Parameters.....: $iMonitor - Monitor index (1..N) ; $left - [out] Left coordinate of work area (virtual screen coordinates) ; $top - [out] Top coordinate of work area (virtual screen coordinates) ; $right - [out] Right coordinate of work area (virtual screen coordinates) ; $bottom - [out] Bottom coordinate of work area (virtual screen coordinates) ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - WinAPI GetMonitorInfo call failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Work area excludes taskbar and other system bars. Use _Monitor_GetBounds() for full monitor area. ; All coordinates are in virtual screen coordinate system. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetBounds, _Monitor_GetInfo, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_GetWorkArea($iMonitor, ByRef $left, ByRef $top, ByRef $right, ByRef $bottom) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $hMonitor = $__g_aMonitorList[$iMonitor][0] Local $aInfo = _WinAPI_GetMonitorInfo($hMonitor) If @error Or Not IsArray($aInfo) Then Return SetError(2, 0, 0) Local $tWorkArea = $aInfo[1] If Not IsDllStruct($tWorkArea) Then Return SetError(2, 0, 0) $left = DllStructGetData($tWorkArea, "Left") $top = DllStructGetData($tWorkArea, "Top") $right = DllStructGetData($tWorkArea, "Right") $bottom = DllStructGetData($tWorkArea, "Bottom") Return 1 EndFunc ;==>_Monitor_GetWorkArea ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetBounds ; Description....: Get full bounds of a specific monitor (including taskbar and all system areas) ; Syntax.........: _Monitor_GetBounds($iMonitor, ByRef $left, ByRef $top, ByRef $right, ByRef $bottom) ; Parameters.....: $iMonitor - Monitor index (1..N) ; $left - [out] Left coordinate of monitor (virtual screen coordinates) ; $top - [out] Top coordinate of monitor (virtual screen coordinates) ; $right - [out] Right coordinate of monitor (virtual screen coordinates) ; $bottom - [out] Bottom coordinate of monitor (virtual screen coordinates) ; Return values..: Success - 1 ; Failure - 0, sets @error = 1 (Invalid monitor index) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Returns the full physical bounds of the monitor including all system bars (taskbar, etc.). ; All coordinates are in virtual screen coordinate system. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; For usable area excluding taskbar, use _Monitor_GetWorkArea() instead. ; Related........: _Monitor_GetWorkArea, _Monitor_GetInfo, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_GetBounds($iMonitor, ByRef $left, ByRef $top, ByRef $right, ByRef $bottom) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) $left = $__g_aMonitorList[$iMonitor][1] $top = $__g_aMonitorList[$iMonitor][2] $right = $__g_aMonitorList[$iMonitor][3] $bottom = $__g_aMonitorList[$iMonitor][4] Return 1 EndFunc ;==>_Monitor_GetBounds ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetInfo ; Description....: Get detailed information about a monitor ; Syntax.........: _Monitor_GetInfo($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - Array with 11 elements: ; |[0] - Monitor handle (HMONITOR) ; |[1] - Left coordinate of monitor bounds (virtual screen coordinates) ; |[2] - Top coordinate of monitor bounds (virtual screen coordinates) ; |[3] - Right coordinate of monitor bounds (virtual screen coordinates) ; |[4] - Bottom coordinate of monitor bounds (virtual screen coordinates) ; |[5] - Left coordinate of work area (virtual screen coordinates) ; |[6] - Top coordinate of work area (virtual screen coordinates) ; |[7] - Right coordinate of work area (virtual screen coordinates) ; |[8] - Bottom coordinate of work area (virtual screen coordinates) ; |[9] - IsPrimary flag (1 = Primary, 0 = Secondary) ; |[10] - Device name string (e.g., "\\.\DISPLAY1") ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - WinAPI GetMonitorInfo call failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: This is the most comprehensive function to get all monitor information at once. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetList, _Monitor_GetBounds, _Monitor_GetWorkArea, _Monitor_GetPrimary ; ================================================================================================================================ Func _Monitor_GetInfo($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $hMonitor = $__g_aMonitorList[$iMonitor][0] Local $aInfo = _WinAPI_GetMonitorInfo($hMonitor) If @error Or Not IsArray($aInfo) Then Return SetError(2, 0, 0) Local $tMonitorRect = $aInfo[0] Local $tWorkRect = $aInfo[1] If Not IsDllStruct($tMonitorRect) Or Not IsDllStruct($tWorkRect) Then Return SetError(2, 0, 0) Local $aResult[11] $aResult[0] = $hMonitor $aResult[1] = DllStructGetData($tMonitorRect, "Left") $aResult[2] = DllStructGetData($tMonitorRect, "Top") $aResult[3] = DllStructGetData($tMonitorRect, "Right") $aResult[4] = DllStructGetData($tMonitorRect, "Bottom") $aResult[5] = DllStructGetData($tWorkRect, "Left") $aResult[6] = DllStructGetData($tWorkRect, "Top") $aResult[7] = DllStructGetData($tWorkRect, "Right") $aResult[8] = DllStructGetData($tWorkRect, "Bottom") $aResult[9] = ($aInfo[2] <> 0) ; IsPrimary $aResult[10] = $aInfo[3] ; DeviceName Return $aResult EndFunc ;==>_Monitor_GetInfo ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetDisplaySettings ; Description....: Get display settings for a monitor (resolution, color depth, refresh rate, etc.) ; Syntax.........: _Monitor_GetDisplaySettings($iMonitor [, $iMode = $ENUM_CURRENT_SETTINGS]) ; Parameters.....: $iMonitor - Monitor index (1..N) ; $iMode - [optional] Display mode index. Default is $ENUM_CURRENT_SETTINGS ; Use $ENUM_CURRENT_SETTINGS to get current active settings ; Use index number (0..N) to enumerate available modes ; Return values..: Success - Array with 5 elements: ; |[0] - Width (pixels) ; |[1] - Height (pixels) ; |[2] - Bits per pixel (color depth) ; |[3] - Refresh rate (Hz) ; |[4] - Display mode flags ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - GetInfo failed (could not get device name) ; |@error = 3 - WinAPI EnumDisplaySettings call failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Use $ENUM_CURRENT_SETTINGS to get the currently active display mode. ; Use _Monitor_EnumAllDisplayModes() to get all available display modes. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetResolution, _Monitor_EnumAllDisplayModes, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_GetDisplaySettings($iMonitor, $iMode = $ENUM_CURRENT_SETTINGS) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $sDevice = $__g_aMonitorList[$iMonitor][6] If $sDevice = "" Then Local $aInfo = _Monitor_GetInfo($iMonitor) If @error Then Return SetError(2, 0, 0) $sDevice = $aInfo[10] EndIf Local $aSettings = _WinAPI_EnumDisplaySettings($sDevice, $iMode) If @error Or Not IsArray($aSettings) Then Return SetError(3, 0, 0) Return $aSettings EndFunc ;==>_Monitor_GetDisplaySettings ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetResolution ; Description....: Get the current resolution (width and height) of a monitor ; Syntax.........: _Monitor_GetResolution($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - Array with 2 elements: ; |[0] - Width in pixels ; |[1] - Height in pixels ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - GetDisplaySettings failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: This is a convenience function that returns only width and height from display settings. ; For full display settings (color depth, refresh rate, etc.), use _Monitor_GetDisplaySettings(). ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetDisplaySettings, _Monitor_GetInfo, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_GetResolution($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $aSettings = _Monitor_GetDisplaySettings($iMonitor) If @error Then Return SetError(2, @error, 0) Local $aResult[2] = [$aSettings[0], $aSettings[1]] Return $aResult EndFunc ;==>_Monitor_GetResolution ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetPrimary ; Description....: Get the index of the primary monitor ; Syntax.........: _Monitor_GetPrimary() ; Parameters.....: None ; Return values..: Success - Monitor index (1..N) of the primary monitor ; Failure - 0, sets @error = 1 (No primary monitor found) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Primary monitor is the monitor that contains the taskbar by default in Windows. ; Function first checks cached IsPrimary flags, then falls back to querying system if needed. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetList, _Monitor_GetInfo, _Monitor_GetCount ; ================================================================================================================================ Func _Monitor_GetPrimary() If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() ; Use cached IsPrimary flag if available For $i = 1 To $__g_aMonitorList[0][0] If $__g_aMonitorList[$i][5] = 1 Then Return $i Next ; Fallback: query from system For $i = 1 To $__g_aMonitorList[0][0] Local $aInfo = _Monitor_GetInfo($i) If Not @error And $aInfo[9] = 1 Then Return $i Next Return SetError(1, 0, 0) EndFunc ;==>_Monitor_GetPrimary ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetCount ; Description....: Returns the total number of connected monitors ; Syntax.........: _Monitor_GetCount() ; Parameters.....: None ; Return values..: Success - Number of monitors (>= 1) ; Failure - 0, sets @error = 1 (Enumeration failed) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Function first tries GetSystemMetrics API for fastest response. ; Falls back to cached monitor list if API call fails. ; Automatically validates and refreshes monitor list if count mismatch detected. ; Related........: _Monitor_GetList, _Monitor_Refresh, _Monitor_GetPrimary ; ================================================================================================================================ Func _Monitor_GetCount() ; FIXED: Check @error after each DllCall separately Local $aRet = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_CMONITORS) If @error Then ; Fallback to our cached list If $__g_aMonitorList[0][0] = 0 Then If _Monitor_GetList() = -1 Then Return SetError(1, 0, 0) EndIf Return $__g_aMonitorList[0][0] EndIf If Not IsArray($aRet) Or $aRet[0] < 1 Then ; Fallback to our cached list If $__g_aMonitorList[0][0] = 0 Then If _Monitor_GetList() = -1 Then Return SetError(1, 0, 0) EndIf Return $__g_aMonitorList[0][0] Else ; Validate count matches our list (refresh if needed) If $__g_aMonitorList[0][0] <> $aRet[0] Then _Monitor_GetList() EndIf Return $aRet[0] EndIf EndFunc ;==>_Monitor_GetCount ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetVirtualBounds ; Description....: Get bounding rectangle of all monitors combined (the "virtual screen") ; Syntax.........: _Monitor_GetVirtualBounds() ; Parameters.....: None ; Return values..: Success - Array with 4 elements: ; |[0] - Left coordinate of virtual screen ; |[1] - Top coordinate of virtual screen ; |[2] - Width of virtual screen in pixels ; |[3] - Height of virtual screen in pixels ; Failure - 0, sets @error = 1 (DllCall failed) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Virtual screen is the bounding rectangle that encompasses all connected monitors. ; Function uses GetSystemMetrics API. Falls back to cached virtual bounds if API fails. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetList, _Monitor_GetBounds, _Monitor_GetCount ; ================================================================================================================================ Func _Monitor_GetVirtualBounds() ; FIXED: Check @error after each DllCall separately Local $aL = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_XVIRTUALSCREEN) Local $bErrorL = @error Local $aT = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_YVIRTUALSCREEN) Local $bErrorT = @error Local $aW = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_CXVIRTUALSCREEN) Local $bErrorW = @error Local $aH = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_CYVIRTUALSCREEN) Local $bErrorH = @error ; Validate all calls succeeded Local $bError = False If $bErrorL Or $bErrorT Or $bErrorW Or $bErrorH Then $bError = True If Not IsArray($aL) Or Not IsArray($aT) Or Not IsArray($aW) Or Not IsArray($aH) Then $bError = True If $bError Then ; Fallback to cached virtual bounds If $__g_aMonitorList[0][0] = 0 Then If _Monitor_GetList() = -1 Then Return SetError(1, 0, 0) EndIf Local $aRet[4] = [$__g_aMonitorList[0][1], $__g_aMonitorList[0][2], $__g_aMonitorList[0][5], $__g_aMonitorList[0][6]] Return $aRet EndIf ; Validate returned values are reasonable If $aL[0] < -32768 Or $aT[0] < -32768 Or $aW[0] < 1 Or $aH[0] < 1 Then ; Invalid values, use fallback If $__g_aMonitorList[0][0] = 0 Then If _Monitor_GetList() = -1 Then Return SetError(1, 0, 0) EndIf Local $aRet[4] = [$__g_aMonitorList[0][1], $__g_aMonitorList[0][2], $__g_aMonitorList[0][5], $__g_aMonitorList[0][6]] Return $aRet EndIf Local $a[4] = [$aL[0], $aT[0], $aW[0], $aH[0]] Return $a EndFunc ;==>_Monitor_GetVirtualBounds ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_ToVirtual ; Description....: Convert local monitor coordinates to virtual screen coordinates ; Syntax.........: _Monitor_ToVirtual($iMonitor, $x, $y) ; Parameters.....: $iMonitor - Monitor index (1..N) ; $x - X coordinate in local monitor coordinates (0-based from monitor's left edge) ; $y - Y coordinate in local monitor coordinates (0-based from monitor's top edge) ; Return values..: Success - Array with 2 elements [X, Y] in virtual screen coordinates ; Failure - 0, sets @error = 1 (Invalid monitor index) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Local coordinates are relative to the monitor (0,0 is top-left of that monitor). ; Virtual coordinates are absolute in the virtual screen coordinate system. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_FromVirtual, _Monitor_GetBounds, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_ToVirtual($iMonitor, $x, $y) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $aRet[2] = [$__g_aMonitorList[$iMonitor][1] + $x, $__g_aMonitorList[$iMonitor][2] + $y] Return $aRet EndFunc ;==>_Monitor_ToVirtual ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_FromVirtual ; Description....: Convert virtual screen coordinates back to local monitor coordinates ; Syntax.........: _Monitor_FromVirtual($iMonitor, $x, $y) ; Parameters.....: $iMonitor - Monitor index (1..N) ; $x - X coordinate in virtual screen coordinates ; $y - Y coordinate in virtual screen coordinates ; Return values..: Success - Array with 2 elements [X, Y] in local monitor coordinates (0-based) ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - Coordinates are not within the specified monitor's bounds ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Local coordinates are relative to the monitor (0,0 is top-left of that monitor). ; Virtual coordinates are absolute in the virtual screen coordinate system. ; Function validates that coordinates are actually on the specified monitor. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_ToVirtual, _Monitor_GetBounds, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_FromVirtual($iMonitor, $x, $y) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) ; Validate coordinates are on this monitor If $x < $__g_aMonitorList[$iMonitor][1] Or $x >= $__g_aMonitorList[$iMonitor][3] _ Or $y < $__g_aMonitorList[$iMonitor][2] Or $y >= $__g_aMonitorList[$iMonitor][4] Then Return SetError(2, 0, 0) EndIf Local $aRet[2] = [$x - $__g_aMonitorList[$iMonitor][1], $y - $__g_aMonitorList[$iMonitor][2]] Return $aRet EndFunc ;==>_Monitor_FromVirtual #EndRegion --- Core Monitor Functions --- #Region --- Window Management Functions --- ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_IsVisibleWindow ; Description....: Check if a window is visible and is a top-level window (not a child window or tool window) ; Syntax.........: _Monitor_IsVisibleWindow($hWnd) ; Parameters.....: $hWnd - Window handle or title string. Can be HWND or window title ; Return values..: Success - True if window is visible and top-level, False otherwise ; Failure - False, sets @error = 1 (Invalid window handle) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Function checks for: WS_VISIBLE flag, not WS_CHILD, and not WS_EX_TOOLWINDOW. ; Accepts both window handles and window titles. Automatically converts title to handle. ; This is useful for filtering which windows should be moved between monitors. ; Related........: _Monitor_MoveWindowToScreen, _Monitor_GetFromWindow ; ================================================================================================================================ Func _Monitor_IsVisibleWindow($hWnd) If Not IsHWnd($hWnd) Then $hWnd = WinGetHandle($hWnd) If Not $hWnd Or Not WinExists($hWnd) Then Return SetError(1, 0, False) Local $style = _WinAPI_GetWindowLong($hWnd, $GWL_STYLE) If @error Then Return SetError(1, 0, False) If BitAND($style, $WS_VISIBLE) = 0 Then Return False If BitAND($style, $WS_CHILD) <> 0 Then Return False Local $ex = _WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE) If @error Then Return False If BitAND($ex, $WS_EX_TOOLWINDOW) <> 0 Then Return False Return True EndFunc ;==>_Monitor_IsVisibleWindow ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_MoveWindowToScreen ; Description....: Move a visible window to a specific monitor (centered if coordinates not specified) ; Syntax.........: _Monitor_MoveWindowToScreen($vTitle [, $sText = "" [, $iMonitor = -1 [, $x = -1 [, $y = -1 [, $bUseWorkArea = True]]]]]) ; Parameters.....: $vTitle - Window title or handle. Can be HWND, title string, or class string ; $sText - [optional] Window text (for matching with title). Default is "" ; $iMonitor - [optional] Target monitor index (1..N). Default is -1 (uses monitor 1) ; $x - [optional] X position on monitor. Default is -1 (centers horizontally) ; $y - [optional] Y position on monitor. Default is -1 (centers vertically) ; $bUseWorkArea - [optional] Use work area instead of full bounds. Default is True ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Window not visible or not top-level ; |@error = 2 - Invalid monitor index or GetWorkArea/GetBounds failed ; |@error = 3 - WinGetPos failed (could not get window position/size) ; |@error = 4 - Window too large to fit on monitor ; |@error = 5 - WinMove failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: If both $x and $y are -1, window is centered on the monitor. ; If $bUseWorkArea is True, positioning is relative to work area (excludes taskbar). ; Function ensures window stays within monitor bounds (adjusts if necessary). ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_MoveWindowToAll, _Monitor_IsVisibleWindow, _Monitor_GetWorkArea, _Monitor_GetBounds ; ================================================================================================================================ Func _Monitor_MoveWindowToScreen($vTitle, $sText = "", $iMonitor = -1, $x = -1, $y = -1, $bUseWorkArea = True) Local $hWnd = IsHWnd($vTitle) ? $vTitle : WinGetHandle($vTitle, $sText) If Not _Monitor_IsVisibleWindow($hWnd) Then Return SetError(1, 0, 0) If $iMonitor = -1 Then $iMonitor = 1 If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(2, 0, 0) Local $aWinPos = WinGetPos($hWnd) If @error Or Not IsArray($aWinPos) Then Return SetError(3, 0, 0) Local $iLeft, $iTop, $iRight, $iBottom If $bUseWorkArea Then If Not _Monitor_GetWorkArea($iMonitor, $iLeft, $iTop, $iRight, $iBottom) Then Return SetError(2, @error, 0) Else If Not _Monitor_GetBounds($iMonitor, $iLeft, $iTop, $iRight, $iBottom) Then Return SetError(2, @error, 0) EndIf Local $iWidth = $iRight - $iLeft Local $iHeight = $iBottom - $iTop ; Check if window fits on monitor If $aWinPos[2] > $iWidth Or $aWinPos[3] > $iHeight Then Return SetError(4, 0, 0) EndIf If $x = -1 Or $y = -1 Then $x = $iLeft + ($iWidth - $aWinPos[2]) / 2 $y = $iTop + ($iHeight - $aWinPos[3]) / 2 Else $x += $iLeft $y += $iTop ; Ensure window stays within bounds If $x + $aWinPos[2] > $iRight Then $x = $iRight - $aWinPos[2] If $y + $aWinPos[3] > $iBottom Then $y = $iBottom - $aWinPos[3] If $x < $iLeft Then $x = $iLeft If $y < $iTop Then $y = $iTop EndIf WinMove($hWnd, "", $x, $y) If @error Then Return SetError(5, 0, 0) Return 1 EndFunc ;==>_Monitor_MoveWindowToScreen ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_MoveWindowToAll ; Description....: Move a visible window sequentially across all monitors with a delay between moves ; Syntax.........: _Monitor_MoveWindowToAll($vTitle [, $sText = "" [, $bCenter = True [, $iDelay = 1000]]]) ; Parameters.....: $vTitle - Window title or handle. Can be HWND, title string, or class string ; $sText - [optional] Window text (for matching with title). Default is "" ; $bCenter - [optional] Center window on each monitor. Default is True ; If False, window is positioned at (50, 50) on each monitor ; $iDelay - [optional] Delay in milliseconds between moves. Default is 1000 ; Return values..: Success - 1 ; Failure - 0, sets @error = 1 (Window not visible or not top-level) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: This is a demonstration function that moves a window to each monitor in sequence. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Useful for testing multi-monitor setups or demonstrating window movement. ; Related........: _Monitor_MoveWindowToScreen, _Monitor_IsVisibleWindow, _Monitor_GetCount ; ================================================================================================================================ Func _Monitor_MoveWindowToAll($vTitle, $sText = "", $bCenter = True, $iDelay = 1000) Local $hWnd = IsHWnd($vTitle) ? $vTitle : WinGetHandle($vTitle, $sText) If Not _Monitor_IsVisibleWindow($hWnd) Then Return SetError(1, 0, 0) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() For $i = 1 To $__g_aMonitorList[0][0] If $bCenter Then _Monitor_MoveWindowToScreen($hWnd, "", $i) Else _Monitor_MoveWindowToScreen($hWnd, "", $i, 50, 50) EndIf Sleep($iDelay) Next Return 1 EndFunc ;==>_Monitor_MoveWindowToAll #EndRegion --- Window Management Functions --- #Region --- Display Mode Functions --- ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_EnumAllDisplayModes ; Description....: Enumerate all available display modes for a monitor ; Syntax.........: _Monitor_EnumAllDisplayModes($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - 2D array with display modes: ; |[0][0] - Number of modes found ; |[n][0] - Width in pixels for mode n ; |[n][1] - Height in pixels for mode n ; |[n][2] - Bits per pixel (color depth) for mode n ; |[n][3] - Refresh rate in Hz for mode n ; |[n][4] - Display mode flags for mode n ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - GetInfo failed (could not get device name) ; |@error = 3 - No display modes found ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Returns all supported display modes for the specified monitor. ; Use _Monitor_GetDisplaySettings() to get only the current active mode. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetDisplaySettings, _Monitor_GetResolution, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_EnumAllDisplayModes($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $aInfo = _Monitor_GetInfo($iMonitor) If @error Then Return SetError(2, 0, 0) Local $sDevice = $aInfo[10] Local $aModes[1][5] $aModes[0][0] = 0 Local $iIndex = 0 While True Local $aMode = _WinAPI_EnumDisplaySettings($sDevice, $iIndex) If @error Then ExitLoop ReDim $aModes[$aModes[0][0] + 2][5] $aModes[0][0] += 1 $aModes[$aModes[0][0]][0] = $aMode[0] $aModes[$aModes[0][0]][1] = $aMode[1] $aModes[$aModes[0][0]][2] = $aMode[2] $aModes[$aModes[0][0]][3] = $aMode[3] $aModes[$aModes[0][0]][4] = $aMode[4] $iIndex += 1 WEnd If $aModes[0][0] = 0 Then Return SetError(3, 0, 0) Return $aModes EndFunc ;==>_Monitor_EnumAllDisplayModes ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetList ; Description....: Enumerate all connected monitors and fill the global monitor list with their information ; Syntax.........: _Monitor_GetList() ; Parameters.....: None ; Return values..: Success - Number of monitors detected (>= 1) ; Failure - -1, sets @error = 1 (WinAPI EnumDisplayMonitors call failed) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: This is the core function that initializes the monitor list. Most other functions call this ; automatically if the list is not initialized (when $__g_aMonitorList[0][0] = 0). ; Populates the global array $__g_aMonitorList with monitor handles, coordinates, and device names. ; Also stores virtual desktop bounds and IsPrimary flags for each monitor. ; Related........: _Monitor_Refresh, _Monitor_GetCount, _Monitor_GetInfo ; ================================================================================================================================ Func _Monitor_GetList() Local $aMonitors = _WinAPI_EnumDisplayMonitors() If @error Or Not IsArray($aMonitors) Or $aMonitors[0][0] = 0 Then Return SetError(1, 0, -1) EndIf ReDim $__g_aMonitorList[$aMonitors[0][0] + 1][7] $__g_aMonitorList[0][0] = $aMonitors[0][0] Local $l_aVirtual = _Monitor_GetVirtualBounds() If @error Then ; Fallback calculation Local $l_aVirtual[4] = [0, 0, @DesktopWidth, @DesktopHeight] EndIf Local $l_vRight = $l_aVirtual[0] + $l_aVirtual[2] Local $l_vBottom = $l_aVirtual[1] + $l_aVirtual[3] $__g_aMonitorList[0][1] = $l_aVirtual[0] $__g_aMonitorList[0][2] = $l_aVirtual[1] $__g_aMonitorList[0][3] = $l_vRight $__g_aMonitorList[0][4] = $l_vBottom $__g_aMonitorList[0][5] = $l_aVirtual[2] $__g_aMonitorList[0][6] = $l_aVirtual[3] For $i = 1 To $aMonitors[0][0] Local $hMonitor = $aMonitors[$i][0] Local $tRect = $aMonitors[$i][1] $__g_aMonitorList[$i][0] = $hMonitor $__g_aMonitorList[$i][1] = DllStructGetData($tRect, "Left") $__g_aMonitorList[$i][2] = DllStructGetData($tRect, "Top") $__g_aMonitorList[$i][3] = DllStructGetData($tRect, "Right") $__g_aMonitorList[$i][4] = DllStructGetData($tRect, "Bottom") ; Get additional info - Store IsPrimary flag correctly Local $aInfo = _WinAPI_GetMonitorInfo($hMonitor) If Not @error And IsArray($aInfo) Then ; Store IsPrimary flag (0 or 1) instead of pointer $__g_aMonitorList[$i][5] = ($aInfo[2] <> 0) ? 1 : 0 ; IsPrimary flag $__g_aMonitorList[$i][6] = $aInfo[3] ; Device name Else ; Safe fallback if GetMonitorInfo fails $__g_aMonitorList[$i][5] = 0 $__g_aMonitorList[$i][6] = "" EndIf Next Return $__g_aMonitorList[0][0] EndFunc ;==>_Monitor_GetList ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_ShowInfo ; Description....: Display monitor coordinates and detailed information in a message box and console ; Syntax.........: _Monitor_ShowInfo([$bShowMsgBox = 1 [, $iTimeout = 10]]) ; Parameters.....: $bShowMsgBox - [optional] Show message box. Default is 1 (True) ; $iTimeout - [optional] Message box timeout in seconds. Default is 10 ; Return values..: Success - String containing formatted monitor information ; Failure - Empty string "", sets @error = 1 (Enumeration failed) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Displays comprehensive information about all monitors including bounds, work areas, ; resolutions, refresh rates, and device names. Information is written to console and ; optionally shown in a message box. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Useful for debugging and displaying system monitor configuration. ; Related........: _Monitor_GetList, _Monitor_GetInfo, _Monitor_GetDisplaySettings ; ================================================================================================================================ Func _Monitor_ShowInfo($bShowMsgBox = 1, $iTimeout = 10) If $__g_aMonitorList[0][0] = 0 Then If _Monitor_GetList() = -1 Then Return SetError(1, 0, "") EndIf Local $sMsg = "> Total Monitors: " & $__g_aMonitorList[0][0] & @CRLF & @CRLF $sMsg &= StringFormat("+ Virtual Desktop: " & @CRLF & "Left=%d, Top=%d, Right=%d, Bottom=%d, Width=%d, Height=%d", $__g_aMonitorList[0][1], $__g_aMonitorList[0][2], $__g_aMonitorList[0][3], $__g_aMonitorList[0][4], $__g_aMonitorList[0][5], $__g_aMonitorList[0][6]) & @CRLF & @CRLF For $i = 1 To $__g_aMonitorList[0][0] Local $aInfo = _Monitor_GetInfo($i) If @error Then ContinueLoop Local $aSettings = _Monitor_GetDisplaySettings($i) Local $sResolution = @error ? "N/A" : $aSettings[0] & "x" & $aSettings[1] & " @" & $aSettings[3] & "Hz" $sMsg &= StringFormat("+ Monitor %d: %s%s\n", $i, $aInfo[9] ? "(Primary) " : "", $aInfo[10]) $sMsg &= StringFormat(" Bounds: L=%d, T=%d, R=%d, B=%d (%dx%d)\n", _ $aInfo[1], $aInfo[2], $aInfo[3], $aInfo[4], _ $aInfo[3] - $aInfo[1], $aInfo[4] - $aInfo[2]) $sMsg &= StringFormat(" Work Area: L=%d, T=%d, R=%d, B=%d (%dx%d)\n", _ $aInfo[5], $aInfo[6], $aInfo[7], $aInfo[8], _ $aInfo[7] - $aInfo[5], $aInfo[8] - $aInfo[6]) $sMsg &= " Resolution: " & $sResolution & @CRLF & @CRLF Next ConsoleWrite($sMsg) If $bShowMsgBox Then MsgBox(64 + 262144, "Monitor Information", $sMsg, $iTimeout) Return $sMsg EndFunc ;==>_Monitor_ShowInfo ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_Refresh ; Description....: Refresh the monitor list by reloading information from the system ; Syntax.........: _Monitor_Refresh() ; Parameters.....: None ; Return values..: Success - Number of monitors detected (>= 1) ; Failure - -1, sets @error = 1 (Refresh failed, _Monitor_GetList failed) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Resets the monitor list and re-enumerates all monitors from the system. ; Useful when monitors are hot-plugged or display configuration changes. ; This forces a complete refresh of all monitor information. ; Related........: _Monitor_GetList, _Monitor_GetCount, _Monitor_IsConnected ; ================================================================================================================================ Func _Monitor_Refresh() ; Reset the list $__g_aMonitorList[0][0] = 0 Local $iResult = _Monitor_GetList() If $iResult = -1 Then Return SetError(1, 0, -1) Return $iResult EndFunc ;==>_Monitor_Refresh ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_IsConnected ; Description....: Check if a monitor is still connected and its handle is still valid ; Syntax.........: _Monitor_IsConnected($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - True if monitor is connected and valid, False if disconnected ; Failure - False, sets @error = 1 (Invalid monitor index) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Verifies that the monitor handle is still valid by querying GetMonitorInfo. ; Useful for detecting when a monitor has been unplugged or disconnected. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_Refresh, _Monitor_GetList, _Monitor_GetCount ; ================================================================================================================================ Func _Monitor_IsConnected($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, False) ; Check if monitor handle is still valid Local $hMonitor = $__g_aMonitorList[$iMonitor][0] Local $aInfo = _WinAPI_GetMonitorInfo($hMonitor) Return (Not @error And IsArray($aInfo)) EndFunc ;==>_Monitor_IsConnected ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetDPI ; Description....: Get DPI (Dots Per Inch) scaling information for a monitor ; Syntax.........: _Monitor_GetDPI($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - Array with 3 elements: ; |[0] - X DPI value ; |[1] - Y DPI value ; |[2] - Scaling percentage (typically 100, 125, 150, 175, 200, etc.) ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - DPI query failed (fallback uses default 96 DPI) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Tries to use GetDpiForMonitor API (Windows 8.1+) for accurate DPI values. ; Falls back to GetDeviceCaps (Windows XP compatible) if GetDpiForMonitor is not available. ; On Windows XP/Vista/7/8, function uses GetDeviceCaps which works reliably. ; Scaling percentage is calculated as (DPI / 96) * 100. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Compatible with Windows XP SP2 and later. ; Related........: _Monitor_GetInfo, _Monitor_GetDisplaySettings, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_GetDPI($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $hMonitor = $__g_aMonitorList[$iMonitor][0] Local $iDPI_X = 96, $iDPI_Y = 96 ; Try to get DPI using GetDpiForMonitor (Windows 8.1+ only) ; Check OS version first to avoid loading shcore.dll on older systems If __Monitor_IsWindows8_1OrGreater() Then ; FIXED: Check if shcore.dll exists before calling and close handle properly Local $hShCore = DllOpen("shcore.dll") If $hShCore <> -1 Then Local $aRet = DllCall($hShCore, "long", "GetDpiForMonitor", "handle", $hMonitor, "int", 0, "uint*", 0, "uint*", 0) Local $bError = @error DllClose($hShCore) ; FIXED: Always close DLL handle to prevent memory leak If Not $bError And IsArray($aRet) And $aRet[0] = 0 Then $iDPI_X = $aRet[3] $iDPI_Y = $aRet[4] Local $iScaling = Round(($iDPI_X / 96) * 100) Local $aResult[3] = [$iDPI_X, $iDPI_Y, $iScaling] Return $aResult EndIf EndIf EndIf ; Fallback: Use GetDeviceCaps (compatible with Windows XP and later) Local $hDC = DllCall("user32.dll", "handle", "GetDC", "hwnd", 0) If @error Or Not IsArray($hDC) Or Not $hDC[0] Then ; Return default 96 DPI if GetDC fails Local $aResult[3] = [96, 96, 100] Return $aResult EndIf Local $aDPI_X = DllCall("gdi32.dll", "int", "GetDeviceCaps", "handle", $hDC[0], "int", 88) ; LOGPIXELSX Local $bErrorX = @error Local $aDPI_Y = DllCall("gdi32.dll", "int", "GetDeviceCaps", "handle", $hDC[0], "int", 90) ; LOGPIXELSY Local $bErrorY = @error ; Release DC handle DllCall("user32.dll", "bool", "ReleaseDC", "hwnd", 0, "handle", $hDC[0]) If Not $bErrorX And IsArray($aDPI_X) And $aDPI_X[0] > 0 Then $iDPI_X = $aDPI_X[0] If Not $bErrorY And IsArray($aDPI_Y) And $aDPI_Y[0] > 0 Then $iDPI_Y = $aDPI_Y[0] Local $iScaling = Round(($iDPI_X / 96) * 100) Local $aResult[3] = [$iDPI_X, $iDPI_Y, $iScaling] Return $aResult EndFunc ;==>_Monitor_GetDPI ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetOrientation ; Description....: Get the display orientation (rotation angle) for a monitor ; Syntax.........: _Monitor_GetOrientation($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - Orientation angle in degrees: ; |0 - Landscape (normal) ; |90 - Portrait (rotated 90° clockwise) ; |180 - Landscape flipped (rotated 180°) ; |270 - Portrait flipped (rotated 270° clockwise / 90° counter-clockwise) ; Failure - -1, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - GetDisplaySettings failed (could not query display mode) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Orientation is extracted from display mode flags. ; Most monitors typically return 0 (landscape) unless rotated in Windows display settings. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetDisplaySettings, _Monitor_GetInfo, _Monitor_GetList ; ================================================================================================================================ Func _Monitor_GetOrientation($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, -1) Local $aSettings = _Monitor_GetDisplaySettings($iMonitor) If @error Then Return SetError(2, 0, -1) ; DisplayMode field contains orientation information ; DM_DISPLAYORIENTATION values: 0=0°, 1=90°, 2=180°, 3=270° Local $iOrientation = 0 If IsArray($aSettings) And UBound($aSettings) > 4 Then ; Check display mode flags for orientation Local $iDisplayMode = $aSettings[4] ; Orientation is stored in bits 8-9 of display mode $iOrientation = BitAND(BitShift($iDisplayMode, 8), 3) * 90 EndIf Return $iOrientation EndFunc ;==>_Monitor_GetOrientation #EndRegion --- Display Mode Functions --- #Region --- Display Settings Functions (Require Admin) --- ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_Enable ; Description....: Enable (attach) a monitor that has been disabled ; Syntax.........: _Monitor_Enable($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - GetInfo failed (could not get device name) ; |@error = 3 - ChangeDisplaySettingsEx failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: *** REQUIRES ADMINISTRATOR PRIVILEGES (UAC ELEVATION) *** ; Enables a monitor by setting CDS_UPDATEREGISTRY and CDS_NORESET flags. ; Changes are applied immediately. ; May not work with some proprietary graphics drivers (NVIDIA, AMD control panels). ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_Disable, _Monitor_SetResolution, _Monitor_Refresh ; ================================================================================================================================ Func _Monitor_Enable($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $aInfo = _Monitor_GetInfo($iMonitor) If @error Then Return SetError(2, 0, 0) Local $sDevice = $aInfo[10] ; Get current settings Local $aSettings = _Monitor_GetDisplaySettings($iMonitor, $ENUM_REGISTRY_SETTINGS) If @error Then $aSettings = _Monitor_GetDisplaySettings($iMonitor) ; Create DEVMODE structure Local $tDEVMODE = DllStructCreate( _ "wchar DeviceName[32];" & _ "ushort SpecVersion;" & _ "ushort DriverVersion;" & _ "ushort Size;" & _ "ushort DriverExtra;" & _ "dword Fields;" & _ "short Orientation;" & _ "short PaperSize;" & _ "short PaperLength;" & _ "short PaperWidth;" & _ "short Scale;" & _ "short Copies;" & _ "short DefaultSource;" & _ "short PrintQuality;" & _ "short Color;" & _ "short Duplex;" & _ "short YResolution;" & _ "short TTOption;" & _ "short Collate;" & _ "wchar FormName[32];" & _ "ushort LogPixels;" & _ "dword BitsPerPel;" & _ "dword PelsWidth;" & _ "dword PelsHeight;" & _ "dword DisplayFlags;" & _ "dword DisplayFrequency") If @error Then Return SetError(3, 0, 0) DllStructSetData($tDEVMODE, "Size", DllStructGetSize($tDEVMODE)) DllStructSetData($tDEVMODE, "Fields", BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_POSITION)) If IsArray($aSettings) Then DllStructSetData($tDEVMODE, "PelsWidth", $aSettings[0]) DllStructSetData($tDEVMODE, "PelsHeight", $aSettings[1]) EndIf ; CDS_UPDATEREGISTRY | CDS_NORESET Local $aRet = DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "wstr", $sDevice, "struct*", $tDEVMODE, "hwnd", 0, "dword", BitOR($CDS_UPDATEREGISTRY, $CDS_NORESET), "ptr", 0) If @error Or Not IsArray($aRet) Or $aRet[0] <> $DISP_CHANGE_SUCCESSFUL Then Return SetError(3, 0, 0) ; Apply changes DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "ptr", 0, "ptr", 0, "hwnd", 0, "dword", 0, "ptr", 0) Sleep(500) _Monitor_Refresh() Return 1 EndFunc ;==>_Monitor_Enable ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_Disable ; Description....: Disable (detach) a monitor ; Syntax.........: _Monitor_Disable($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - Cannot disable primary monitor ; |@error = 3 - GetInfo failed (could not get device name) ; |@error = 4 - ChangeDisplaySettingsEx failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: *** REQUIRES ADMINISTRATOR PRIVILEGES (UAC ELEVATION) *** ; Disables a monitor by setting it to 0x0 resolution. ; Cannot disable the primary monitor (returns @error = 2). ; May not work with some proprietary graphics drivers. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_Enable, _Monitor_SetPrimary, _Monitor_Refresh ; ================================================================================================================================ Func _Monitor_Disable($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) ; Cannot disable primary monitor If $__g_aMonitorList[$iMonitor][5] = 1 Then Return SetError(2, 0, 0) Local $aInfo = _Monitor_GetInfo($iMonitor) If @error Then Return SetError(3, 0, 0) Local $sDevice = $aInfo[10] ; Create DEVMODE structure with 0x0 resolution (disable) Local $tDEVMODE = DllStructCreate( _ "wchar DeviceName[32];" & _ "ushort SpecVersion;" & _ "ushort DriverVersion;" & _ "ushort Size;" & _ "ushort DriverExtra;" & _ "dword Fields;" & _ "short Orientation;" & _ "short PaperSize;" & _ "short PaperLength;" & _ "short PaperWidth;" & _ "short Scale;" & _ "short Copies;" & _ "short DefaultSource;" & _ "short PrintQuality;" & _ "short Color;" & _ "short Duplex;" & _ "short YResolution;" & _ "short TTOption;" & _ "short Collate;" & _ "wchar FormName[32];" & _ "ushort LogPixels;" & _ "dword BitsPerPel;" & _ "dword PelsWidth;" & _ "dword PelsHeight;" & _ "dword DisplayFlags;" & _ "dword DisplayFrequency") If @error Then Return SetError(4, 0, 0) DllStructSetData($tDEVMODE, "Size", DllStructGetSize($tDEVMODE)) DllStructSetData($tDEVMODE, "Fields", BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_POSITION)) DllStructSetData($tDEVMODE, "PelsWidth", 0) DllStructSetData($tDEVMODE, "PelsHeight", 0) ; CDS_UPDATEREGISTRY | CDS_NORESET Local $aRet = DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "wstr", $sDevice, "struct*", $tDEVMODE, "hwnd", 0, "dword", BitOR($CDS_UPDATEREGISTRY, $CDS_NORESET), "ptr", 0) If @error Or Not IsArray($aRet) Or $aRet[0] <> $DISP_CHANGE_SUCCESSFUL Then Return SetError(4, 0, 0) ; Apply changes DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "ptr", 0, "ptr", 0, "hwnd", 0, "dword", 0, "ptr", 0) Sleep(500) _Monitor_Refresh() Return 1 EndFunc ;==>_Monitor_Disable ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_SetResolution ; Description....: Set monitor resolution and refresh rate ; Syntax.........: _Monitor_SetResolution($iMonitor, $iWidth, $iHeight[, $iBitsPerPixel = 32[, $iFrequency = 0]]) ; Parameters.....: $iMonitor - Monitor index (1..N) ; $iWidth - Width in pixels ; $iHeight - Height in pixels ; $iBitsPerPixel - [optional] Color depth (bits per pixel). Default is 32 ; Valid values: 16, 24, 32 ; $iFrequency - [optional] Refresh rate in Hz. Default is 0 (use current/default) ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - GetInfo failed (could not get device name) ; |@error = 3 - Invalid resolution parameters ; |@error = 4 - Test mode failed (resolution not supported), @extended = Windows error code ; |@error = 5 - Apply mode failed, @extended = Windows error code ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: *** REQUIRES ADMINISTRATOR PRIVILEGES (UAC ELEVATION) *** ; Changes display resolution for specified monitor. ; Function tests the resolution first before applying (CDS_TEST flag). ; Use _Monitor_EnumAllDisplayModes() to check supported resolutions. ; May not work with some proprietary graphics drivers. ; @extended returns Windows error codes: ; |DISP_CHANGE_SUCCESSFUL = 0 ; |DISP_CHANGE_RESTART = 1 (requires restart) ; |DISP_CHANGE_FAILED = -1 ; |DISP_CHANGE_BADMODE = -2 (mode not supported) ; |DISP_CHANGE_NOTUPDATED = -3 ; |DISP_CHANGE_BADFLAGS = -4 ; |DISP_CHANGE_BADPARAM = -5 ; |DISP_CHANGE_BADDUALVIEW = -6 ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetResolution, _Monitor_EnumAllDisplayModes, _Monitor_GetDisplaySettings ; ================================================================================================================================ Func _Monitor_SetResolution($iMonitor, $iWidth, $iHeight, $iBitsPerPixel = 32, $iFrequency = 0) ; FIXED: Added parameter validation If Not IsInt($iMonitor) Or Not IsInt($iWidth) Or Not IsInt($iHeight) Then Return SetError(3, 0, 0) If $iBitsPerPixel <> 16 And $iBitsPerPixel <> 24 And $iBitsPerPixel <> 32 Then Return SetError(3, 0, 0) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) If $iWidth < 1 Or $iHeight < 1 Then Return SetError(3, 0, 0) Local $aInfo = _Monitor_GetInfo($iMonitor) If @error Then Return SetError(2, 0, 0) Local $sDevice = $aInfo[10] ; FIXED: Corrected DEVMODE structure definition Local $tDEVMODE = DllStructCreate( _ "wchar DeviceName[32];" & _ "ushort SpecVersion;" & _ "ushort DriverVersion;" & _ "ushort Size;" & _ "ushort DriverExtra;" & _ "dword Fields;" & _ "short Orientation;" & _ "short PaperSize;" & _ "short PaperLength;" & _ "short PaperWidth;" & _ "short Scale;" & _ "short Copies;" & _ "short DefaultSource;" & _ "short PrintQuality;" & _ "short Color;" & _ "short Duplex;" & _ "short YResolution;" & _ "short TTOption;" & _ "short Collate;" & _ "wchar FormName[32];" & _ "ushort LogPixels;" & _ "dword BitsPerPel;" & _ "dword PelsWidth;" & _ "dword PelsHeight;" & _ "dword DisplayFlags;" & _ "dword DisplayFrequency") If @error Then Return SetError(4, 0, 0) ; Initialize structure DllStructSetData($tDEVMODE, "Size", DllStructGetSize($tDEVMODE)) ; Set fields flag Local $iFields = BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_BITSPERPEL) If $iFrequency > 0 Then $iFields = BitOR($iFields, $DM_DISPLAYFREQUENCY) DllStructSetData($tDEVMODE, "Fields", $iFields) DllStructSetData($tDEVMODE, "PelsWidth", $iWidth) DllStructSetData($tDEVMODE, "PelsHeight", $iHeight) DllStructSetData($tDEVMODE, "BitsPerPel", $iBitsPerPixel) If $iFrequency > 0 Then DllStructSetData($tDEVMODE, "DisplayFrequency", $iFrequency) ; Test first (CDS_TEST) Local $aRet = DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", _ "wstr", $sDevice, _ "struct*", $tDEVMODE, _ "hwnd", 0, _ "dword", $CDS_TEST, _ "ptr", 0) If @error Then Return SetError(4, @error, 0) If Not IsArray($aRet) Then Return SetError(4, 0, 0) Local $iTestResult = $aRet[0] If $iTestResult <> $DISP_CHANGE_SUCCESSFUL Then Return SetError(4, $iTestResult, 0) EndIf ; Apply changes (CDS_UPDATEREGISTRY) $aRet = DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", _ "wstr", $sDevice, _ "struct*", $tDEVMODE, _ "hwnd", 0, _ "dword", $CDS_UPDATEREGISTRY, _ "ptr", 0) If @error Then Return SetError(5, @error, 0) If Not IsArray($aRet) Then Return SetError(5, 0, 0) If $aRet[0] <> $DISP_CHANGE_SUCCESSFUL Then Return SetError(5, $aRet[0], 0) Sleep(500) ; Wait for display to settle _Monitor_Refresh() Return 1 EndFunc ;==>_Monitor_SetResolution ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_SetPrimary ; Description....: Set a monitor as the primary monitor ; Syntax.........: _Monitor_SetPrimary($iMonitor) ; Parameters.....: $iMonitor - Monitor index (1..N) ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid monitor index ; |@error = 2 - GetInfo failed (could not get device name) ; |@error = 3 - ChangeDisplaySettingsEx failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: *** REQUIRES ADMINISTRATOR PRIVILEGES (UAC ELEVATION) *** ; Sets specified monitor as primary display (where taskbar appears). ; This also sets the monitor position to (0,0) in virtual coordinates. ; May not work with some proprietary graphics drivers. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetPrimary, _Monitor_GetInfo, _Monitor_Refresh ; ================================================================================================================================ Func _Monitor_SetPrimary($iMonitor) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMonitor < 1 Or $iMonitor > $__g_aMonitorList[0][0] Then Return SetError(1, 0, 0) Local $aInfo = _Monitor_GetInfo($iMonitor) If @error Then Return SetError(2, 0, 0) Local $sDevice = $aInfo[10] ; Get current settings Local $aSettings = _Monitor_GetDisplaySettings($iMonitor) If @error Then Return SetError(2, 0, 0) ; Create DEVMODE structure Local $tDEVMODE = DllStructCreate( _ "wchar DeviceName[32];" & _ "ushort SpecVersion;" & _ "ushort DriverVersion;" & _ "ushort Size;" & _ "ushort DriverExtra;" & _ "dword Fields;" & _ "short Orientation;" & _ "short PaperSize;" & _ "short PaperLength;" & _ "short PaperWidth;" & _ "short Scale;" & _ "short Copies;" & _ "short DefaultSource;" & _ "short PrintQuality;" & _ "short Color;" & _ "short Duplex;" & _ "short YResolution;" & _ "short TTOption;" & _ "short Collate;" & _ "wchar FormName[32];" & _ "ushort LogPixels;" & _ "dword BitsPerPel;" & _ "dword PelsWidth;" & _ "dword PelsHeight;" & _ "dword DisplayFlags;" & _ "dword DisplayFrequency") If @error Then Return SetError(3, 0, 0) DllStructSetData($tDEVMODE, "Size", DllStructGetSize($tDEVMODE)) DllStructSetData($tDEVMODE, "Fields", BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_POSITION)) DllStructSetData($tDEVMODE, "PelsWidth", $aSettings[0]) DllStructSetData($tDEVMODE, "PelsHeight", $aSettings[1]) DllStructSetData($tDEVMODE, "Orientation", 0) ; Position X = 0 DllStructSetData($tDEVMODE, "PaperSize", 0) ; Position Y = 0 ; CDS_UPDATEREGISTRY | CDS_SET_PRIMARY Local $aRet = DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "wstr", $sDevice, "struct*", $tDEVMODE, "hwnd", 0, "dword", BitOR($CDS_UPDATEREGISTRY, $CDS_SET_PRIMARY), "ptr", 0) If @error Or Not IsArray($aRet) Or $aRet[0] <> $DISP_CHANGE_SUCCESSFUL Then Return SetError(3, 0, 0) Sleep(500) _Monitor_Refresh() Return 1 EndFunc ;==>_Monitor_SetPrimary ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetDisplayMode ; Description....: Get current display mode (duplicate, extend, internal only, external only) ; Syntax.........: _Monitor_GetDisplayMode() ; Parameters.....: None ; Return values..: Success - Integer representing display mode: ; |1 - Internal only (laptop screen only) ; |2 - Duplicate/Clone (same content on all displays) ; |3 - Extend (extended desktop across displays) ; |4 - External only (external monitor only) ; Failure - 0, sets @error = 1 (Could not determine mode) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Analyzes monitor positions to determine display mode. ; Duplicate mode: All monitors at position (0,0) ; Extend mode: Monitors at different positions ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_SetDisplayMode, _Monitor_GetCount, _Monitor_GetBounds ; ================================================================================================================================ Func _Monitor_GetDisplayMode() If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() Local $iCount = $__g_aMonitorList[0][0] If $iCount = 0 Then Return SetError(1, 0, 0) If $iCount = 1 Then Return 1 ; Single monitor (internal only) ; Check if all monitors at same position (duplicate mode) Local $bAllSamePos = True For $i = 2 To $iCount If $__g_aMonitorList[$i][1] <> $__g_aMonitorList[1][1] Or $__g_aMonitorList[$i][2] <> $__g_aMonitorList[1][2] Then $bAllSamePos = False ExitLoop EndIf Next If $bAllSamePos Then Return 2 ; Duplicate/Clone mode Return 3 ; Extend mode EndFunc ;==>_Monitor_GetDisplayMode ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_SetDisplayMode ; Description....: Set display mode (duplicate or extend) ; Syntax.........: _Monitor_SetDisplayMode($iMode) ; Parameters.....: $iMode - Display mode: ; |2 - Duplicate/Clone (same content on all displays) ; |3 - Extend (extended desktop across displays) ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - Invalid mode parameter ; |@error = 2 - GetInfo failed ; |@error = 3 - ChangeDisplaySettingsEx failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: *** REQUIRES ADMINISTRATOR PRIVILEGES (UAC ELEVATION) *** ; Duplicate mode sets all monitors to position (0,0). ; Extend mode arranges monitors horizontally from left to right. ; May not work with some proprietary graphics drivers. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetDisplayMode, _Monitor_ApplyLayoutHorizontal, _Monitor_Refresh ; ================================================================================================================================ Func _Monitor_SetDisplayMode($iMode) If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $iMode < 2 Or $iMode > 3 Then Return SetError(1, 0, 0) If $iMode = 2 Then ; Duplicate mode - set all monitors to (0,0) For $i = 1 To $__g_aMonitorList[0][0] Local $aInfo = _Monitor_GetInfo($i) If @error Then Return SetError(2, 0, 0) Local $sDevice = $aInfo[10] Local $aSettings = _Monitor_GetDisplaySettings($i) If @error Then ContinueLoop Local $tDEVMODE = DllStructCreate( _ "wchar DeviceName[32];" & _ "ushort SpecVersion;" & _ "ushort DriverVersion;" & _ "ushort Size;" & _ "ushort DriverExtra;" & _ "dword Fields;" & _ "short Orientation;" & _ "short PaperSize;" & _ "short PaperLength;" & _ "short PaperWidth;" & _ "short Scale;" & _ "short Copies;" & _ "short DefaultSource;" & _ "short PrintQuality;" & _ "short Color;" & _ "short Duplex;" & _ "short YResolution;" & _ "short TTOption;" & _ "short Collate;" & _ "wchar FormName[32];" & _ "ushort LogPixels;" & _ "dword BitsPerPel;" & _ "dword PelsWidth;" & _ "dword PelsHeight;" & _ "dword DisplayFlags;" & _ "dword DisplayFrequency") If @error Then ContinueLoop DllStructSetData($tDEVMODE, "Size", DllStructGetSize($tDEVMODE)) DllStructSetData($tDEVMODE, "Fields", BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_POSITION)) DllStructSetData($tDEVMODE, "PelsWidth", $aSettings[0]) DllStructSetData($tDEVMODE, "PelsHeight", $aSettings[1]) DllStructSetData($tDEVMODE, "Orientation", 0) ; Position X = 0 DllStructSetData($tDEVMODE, "PaperSize", 0) ; Position Y = 0 ; CDS_UPDATEREGISTRY | CDS_NORESET DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "wstr", $sDevice, "struct*", $tDEVMODE, "hwnd", 0, "dword", BitOR($CDS_UPDATEREGISTRY, $CDS_NORESET), "ptr", 0) Next ; Apply all changes DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "ptr", 0, "ptr", 0, "hwnd", 0, "dword", 0, "ptr", 0) ElseIf $iMode = 3 Then ; Extend mode - arrange horizontally Local $iCurrentX = 0 For $i = 1 To $__g_aMonitorList[0][0] Local $aInfo = _Monitor_GetInfo($i) If @error Then Return SetError(2, 0, 0) Local $sDevice = $aInfo[10] Local $aSettings = _Monitor_GetDisplaySettings($i) If @error Then ContinueLoop Local $tDEVMODE = DllStructCreate( _ "wchar DeviceName[32];" & _ "ushort SpecVersion;" & _ "ushort DriverVersion;" & _ "ushort Size;" & _ "ushort DriverExtra;" & _ "dword Fields;" & _ "short Orientation;" & _ "short PaperSize;" & _ "short PaperLength;" & _ "short PaperWidth;" & _ "short Scale;" & _ "short Copies;" & _ "short DefaultSource;" & _ "short PrintQuality;" & _ "short Color;" & _ "short Duplex;" & _ "short YResolution;" & _ "short TTOption;" & _ "short Collate;" & _ "wchar FormName[32];" & _ "ushort LogPixels;" & _ "dword BitsPerPel;" & _ "dword PelsWidth;" & _ "dword PelsHeight;" & _ "dword DisplayFlags;" & _ "dword DisplayFrequency") If @error Then ContinueLoop DllStructSetData($tDEVMODE, "Size", DllStructGetSize($tDEVMODE)) DllStructSetData($tDEVMODE, "Fields", BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_POSITION)) DllStructSetData($tDEVMODE, "PelsWidth", $aSettings[0]) DllStructSetData($tDEVMODE, "PelsHeight", $aSettings[1]) DllStructSetData($tDEVMODE, "Orientation", $iCurrentX) ; Position X DllStructSetData($tDEVMODE, "PaperSize", 0) ; Position Y = 0 ; CDS_UPDATEREGISTRY | CDS_NORESET DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "wstr", $sDevice, "struct*", $tDEVMODE, "hwnd", 0, "dword", BitOR($CDS_UPDATEREGISTRY, $CDS_NORESET), "ptr", 0) $iCurrentX += $aSettings[0] Next ; Apply all changes DllCall("user32.dll", "long", "ChangeDisplaySettingsExW", "ptr", 0, "ptr", 0, "hwnd", 0, "dword", 0, "ptr", 0) EndIf Sleep(500) _Monitor_Refresh() Return 1 EndFunc ;==>_Monitor_SetDisplayMode #EndRegion --- Display Settings Functions (Require Admin) --- #Region --- Layout Management Functions --- ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetLayout ; Description....: Get current display layout configuration ; Syntax.........: _Monitor_GetLayout() ; Parameters.....: None ; Return values..: Success - 2D array with layout information: ; |[0][0] - Number of monitors ; |[n][0] - Monitor index ; |[n][1] - Left coordinate ; |[n][2] - Top coordinate ; |[n][3] - Width ; |[n][4] - Height ; |[n][5] - IsPrimary flag (1 or 0) ; Failure - 0, sets @error = 1 (No monitors found) ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Returns the current physical layout of all monitors. ; Useful for saving and restoring monitor configurations. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_SaveLayout, _Monitor_LoadLayout, _Monitor_GetLayoutDescription ; ================================================================================================================================ Func _Monitor_GetLayout() If $__g_aMonitorList[0][0] = 0 Then _Monitor_GetList() If $__g_aMonitorList[0][0] = 0 Then Return SetError(1, 0, 0) Local $aLayout[$__g_aMonitorList[0][0] + 1][6] $aLayout[0][0] = $__g_aMonitorList[0][0] For $i = 1 To $__g_aMonitorList[0][0] $aLayout[$i][0] = $i $aLayout[$i][1] = $__g_aMonitorList[$i][1] $aLayout[$i][2] = $__g_aMonitorList[$i][2] $aLayout[$i][3] = $__g_aMonitorList[$i][3] - $__g_aMonitorList[$i][1] $aLayout[$i][4] = $__g_aMonitorList[$i][4] - $__g_aMonitorList[$i][2] $aLayout[$i][5] = $__g_aMonitorList[$i][5] Next Return $aLayout EndFunc ;==>_Monitor_GetLayout ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_GetLayoutDescription ; Description....: Get text description of current layout ; Syntax.........: _Monitor_GetLayoutDescription() ; Parameters.....: None ; Return values..: Success - String describing the layout ; Failure - Empty string "", sets @error = 1 ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Returns a human-readable description of monitor layout. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_GetLayout, _Monitor_ShowInfo ; ================================================================================================================================ Func _Monitor_GetLayoutDescription() Local $aLayout = _Monitor_GetLayout() If @error Then Return SetError(1, 0, "") Local $sDesc = "Layout: " & $aLayout[0][0] & " monitor(s)" & @CRLF For $i = 1 To $aLayout[0][0] $sDesc &= StringFormat("Monitor %d: Pos(%d,%d) Size(%dx%d) %s" & @CRLF, _ $aLayout[$i][0], $aLayout[$i][1], $aLayout[$i][2], _ $aLayout[$i][3], $aLayout[$i][4], _ $aLayout[$i][5] ? "[Primary]" : "") Next Return $sDesc EndFunc ;==>_Monitor_GetLayoutDescription ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_SaveLayout ; Description....: Save current layout to file ; Syntax.........: _Monitor_SaveLayout($sFilePath) ; Parameters.....: $sFilePath - Full path to save layout file ; Return values..: Success - 1 ; Failure - 0, sets @error to non-zero: ; |@error = 1 - GetLayout failed ; |@error = 2 - File write failed ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: Saves layout in INI format for easy editing. ; Function automatically calls _Monitor_GetList() if monitor list is not initialized. ; Related........: _Monitor_LoadLayout, _Monitor_GetLayout ; ================================================================================================================================ Func _Monitor_SaveLayout($sFilePath) Local $aLayout = _Monitor_GetLayout() If @error Then Return SetError(1, 0, 0) Local $hFile = FileOpen($sFilePath, 2) ; Overwrite mode If $hFile = -1 Then Return SetError(2, 0, 0) FileWriteLine($hFile, "[MonitorLayout]") FileWriteLine($hFile, "Count=" & $aLayout[0][0]) FileWriteLine($hFile, "") For $i = 1 To $aLayout[0][0] FileWriteLine($hFile, "[Monitor" & $i & "]") FileWriteLine($hFile, "Left=" & $aLayout[$i][1]) FileWriteLine($hFile, "Top=" & $aLayout[$i][2]) FileWriteLine($hFile, "Width=" & $aLayout[$i][3]) FileWriteLine($hFile, "Height=" & $aLayout[$i][4]) FileWriteLine($hFile, "IsPrimary=" & $aLayout[$i][5]) FileWriteLine($hFile, "") Next FileClose($hFile) Return 1 EndFunc ;==>_Monitor_SaveLayout ; #FUNCTION# ==================================================================================================================== ; Name...........: _Monitor_LoadLayout ; Description....: Load layout from file (NOTE: Does not apply layout, only loads data) ; Syntax.........: _Monitor_LoadLayout($sFilePath) ; Parameters.....: $sFilePath - Full path to layout file ; Return values..: Success - 2D array with layout information (same format as _Monitor_GetLayout) ; Failure - 0, sets @error to non-zero: ; |@error = 1 - File not found or cannot be read ; |@error = 2 - Invalid layout file format ; Author.........: Dao Van Trong - TRONG.PRO ; Remarks........: *** NOTE: This function only LOADS layout data, it does NOT apply it *** ; To apply loaded layout, you need to use _Monitor_SetResolution() and ; _Monitor_SetPrimary() functions manually for each monitor. ; This is because applying layout requires Administrator privileges. ; Related........: _Monitor_SaveLayout, _Monitor_GetLayout ; ================================================================================================================================ Func _Monitor_LoadLayout($sFilePath) If Not FileExists($sFilePath) Then Return SetError(1, 0, 0) Local $iCount = IniRead($sFilePath, "MonitorLayout", "Count", 0) If $iCount < 1 Then Return SetError(2, 0, 0) Local $aLayout[$iCount + 1][6] $aLayout[0][0] = $iCount For $i = 1 To $iCount $aLayout[$i][0] = $i $aLayout[$i][1] = IniRead($sFilePath, "Monitor" & $i, "Left", 0) $aLayout[$i][2] = IniRead($sFilePath, "Monitor" & $i, "Top", 0) $aLayout[$i][3] = IniRead($sFilePath, "Monitor" & $i, "Width", 0) $aLayout[$i][4] = IniRead($sFilePath, "Monitor" & $i, "Height", 0) $aLayout[$i][5] = IniRead($sFilePath, "Monitor" & $i, "IsPrimary", 0) Next Return $aLayout EndFunc ;==>_Monitor_LoadLayout #EndRegion --- Layout Management Functions --- EG: ; ================================================================================================== ; MonitorUDF_Examples.au3 ; Interactive example tester for MonitorUDF.au3 UDF ; Fixed: Array index bug in FuncTest_10, improved error handling ; ================================================================================================== #include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #include <GuiListBox.au3> #include <GuiEdit.au3> #include <Array.au3> #include "Monitor_UDF.au3" ; Updated include name ; ================================================================================================== ; Create GUI ; ================================================================================================== Global $GUI_W = 860, $GUI_H = 600 Global $hGUI = GUICreate("MonitorUDF - Examples (by TRONG.PRO)", $GUI_W, $GUI_H, -1, -1) GUISetBkColor(0xF5F5F5, $hGUI) ; Title GUICtrlCreateLabel("MonitorUDF Example Launcher", 12, 10, 400, 24) GUICtrlSetFont(-1, 12, 800, 0, 'Segoe UI', 5) ; Buttons column 1 - 6 buttons (1-6) Local $x1 = 12, $y1 = 48, $bw = 260, $bh = 36, $gap = 8 Global $iBtn1 = GUICtrlCreateButton("1. Enumerate monitors", $x1, $y1 + ($bh + $gap) * 0, $bw, $bh) Global $iBtn2 = GUICtrlCreateButton("2. Move Notepad -> Monitor #2 (center)", $x1, $y1 + ($bh + $gap) * 1, $bw, $bh) Global $iBtn3 = GUICtrlCreateButton("3. Move Notepad -> Monitor #2 @ (100,100)", $x1, $y1 + ($bh + $gap) * 2, $bw, $bh) Global $iBtn4 = GUICtrlCreateButton("4. Which monitor is mouse on?", $x1, $y1 + ($bh + $gap) * 3, $bw, $bh) Global $iBtn5 = GUICtrlCreateButton("5. Show virtual desktop bounds", $x1, $y1 + ($bh + $gap) * 4, $bw, $bh) Global $iBtn6 = GUICtrlCreateButton("6. Convert coords (local <-> virtual)", $x1, $y1 + ($bh + $gap) * 5, $bw, $bh) ; Buttons column 2 - 6 buttons (7-12) Local $x2 = $x1 + $bw + 12 Global $iBtn7 = GUICtrlCreateButton("7. Show monitor info (MsgBox)", $x2, $y1 + ($bh + $gap) * 0, $bw, $bh) Global $iBtn8 = GUICtrlCreateButton("8. Check if Notepad is visible", $x2, $y1 + ($bh + $gap) * 1, $bw, $bh) Global $iBtn9 = GUICtrlCreateButton("9. Create small GUI on each monitor", $x2, $y1 + ($bh + $gap) * 2, $bw, $bh) Global $iBtn10 = GUICtrlCreateButton("10. Move all visible windows -> primary", $x2, $y1 + ($bh + $gap) * 3, $bw, $bh) Global $iBtn11 = GUICtrlCreateButton("11. Refresh monitor list", $x2, $y1 + ($bh + $gap) * 4, $bw, $bh) Global $iBtn12 = GUICtrlCreateButton("12. Check monitor connected", $x2, $y1 + ($bh + $gap) * 5, $bw, $bh) ; Buttons column 3 - 6 buttons (13-17, but layout for 6) Local $x3 = $x2 + $bw + 12 Global $iBtn13 = GUICtrlCreateButton("13. Get DPI scaling", $x3, $y1 + ($bh + $gap) * 0, $bw, $bh) Global $iBtn14 = GUICtrlCreateButton("14. Get display orientation", $x3, $y1 + ($bh + $gap) * 1, $bw, $bh) Global $iBtn15 = GUICtrlCreateButton("15. Enumerate display modes", $x3, $y1 + ($bh + $gap) * 2, $bw, $bh) Global $iBtn16 = GUICtrlCreateButton("16. Get monitor from rect", $x3, $y1 + ($bh + $gap) * 3, $bw, $bh) Global $iBtn17 = GUICtrlCreateButton("17. Get monitor from window", $x3, $y1 + ($bh + $gap) * 4, $bw, $bh) ; Controls: log edit, clear, auto-demo, close Local $logX = 12, $logY = $y1 + ($bh + $gap) * 6 Local $logW = $GUI_W - 24, $logH = 180 Global $idLog = GUICtrlCreateEdit("", $logX, $logY, $logW, $logH, BitOR($ES_READONLY, $WS_HSCROLL, $WS_VSCROLL, $ES_MULTILINE)) GUICtrlSetFont($idLog, 9) Global $idFuncTest__ClearLog = GUICtrlCreateButton("Clear Log", 12, $logY + $logH + 10, 120, 28) Global $idFuncTest__RunAllDemo = GUICtrlCreateButton("Auto Demo (Run 1..17)", 150, $logY + $logH + 10, 220, 28) Global $idFuncTest__Close = GUICtrlCreateButton("Close", $GUI_W - 120, $logY + $logH + 10, 100, 28) Global $pidNotepad = 0 GUISetState(@SW_SHOW) ; Keep a list of created GUIs for Example 10 so we can close them later Global $Msg, $g_createdGUIs[0] ; FIXED: Initialize as empty array Global $g_bAutoMode = False ; Track if running in auto demo mode Global $g_hNotepadWindows[0] ; Track all notepad windows created ; ================================================================================================== ; Main loop ; ================================================================================================== While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE, $idFuncTest__Close ; close any GUIs created in example 10 For $i = 0 To UBound($g_createdGUIs) - 1 If IsHWnd($g_createdGUIs[$i]) Then GUIDelete($g_createdGUIs[$i]) Next ExitLoop Case $idFuncTest__ClearLog GUICtrlSetData($idLog, '', '') Case $idFuncTest__RunAllDemo $g_bAutoMode = True ReDim $g_hNotepadWindows[0] FuncTest_1() Sleep(1000) FuncTest_2() Sleep(2000) FuncTest_3() Sleep(2000) FuncTest_4() Sleep(1500) FuncTest_5() Sleep(1000) FuncTest_6() Sleep(1000) FuncTest_7() Sleep(1000) FuncTest_8() Sleep(2000) FuncTest_9() Sleep(1000) FuncTest_10() Sleep(1000) FuncTest_11() Sleep(1000) FuncTest_12() Sleep(1000) FuncTest_13() Sleep(1000) FuncTest_14() Sleep(1000) FuncTest_15() Sleep(1000) FuncTest_16() Sleep(1000) FuncTest_17() Sleep(2000) ; Cleanup all created windows _CleanupAllWindows() $g_bAutoMode = False Case $iBtn1 FuncTest_1() Case $iBtn2 FuncTest_2() Case $iBtn3 FuncTest_3() Case $iBtn4 FuncTest_4() Case $iBtn5 FuncTest_5() Case $iBtn6 FuncTest_6() Case $iBtn7 FuncTest_7() Case $iBtn8 FuncTest_8() Case $iBtn9 FuncTest_9() Case $iBtn10 FuncTest_10() Case $iBtn11 FuncTest_11() Case $iBtn12 FuncTest_12() Case $iBtn13 FuncTest_13() Case $iBtn14 FuncTest_14() Case $iBtn15 FuncTest_15() Case $iBtn16 FuncTest_16() Case $iBtn17 FuncTest_17() EndSwitch Sleep(5) WEnd GUIDelete() Exit 0 ; ================================================================================================== ; Helper: append to log (with timestamp) ; ================================================================================================== Func _Log($s) ConsoleWrite($s & @CRLF) ; Format: DD/MM/YYYY HH:MM:SS Local $sDate = StringFormat("%02d/%02d/%04d", @MDAY, @MON, @YEAR) Local $sTime = StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC) Local $t = $sDate & " " & $sTime Local $cur = GUICtrlRead($idLog) If $cur = "" Then GUICtrlSetData($idLog, "[" & $t & "] " & $s) Else GUICtrlSetData($idLog, $cur & @CRLF & "[" & $t & "] " & $s) EndIf ; move caret to end _GUICtrlEdit_LineScroll($idLog, 0, _GUICtrlEdit_GetLineCount($idLog)) EndFunc ;==>_Log ; ================================================================================================== ; Helper: Cleanup all created windows (Notepad and GUIs) ; ================================================================================================== Func _CleanupAllWindows() ; Close all Notepad windows Local $aList = WinList("[CLASS:Notepad]") For $i = 1 To $aList[0][0] If $aList[$i][0] <> "" Then Local $hWnd = WinGetHandle($aList[$i][0]) If $hWnd Then WinClose($hWnd) EndIf Next Sleep(300) ; Force close any remaining Notepad processes While ProcessExists("notepad.exe") ProcessClose("notepad.exe") Sleep(100) WEnd ; Close all created GUIs For $i = 0 To UBound($g_createdGUIs) - 1 If IsHWnd($g_createdGUIs[$i]) Then GUIDelete($g_createdGUIs[$i]) Next ReDim $g_createdGUIs[0] ReDim $g_hNotepadWindows[0] EndFunc ;==>_CleanupAllWindows ; ================================================================================================== ; Helper: Track Notepad window ; ================================================================================================== Func _TrackNotepadWindow($hWnd) If $hWnd Then Local $n = UBound($g_hNotepadWindows) ReDim $g_hNotepadWindows[$n + 1] $g_hNotepadWindows[$n] = $hWnd EndIf EndFunc ;==>_TrackNotepadWindow Func FuncTest_1() _Log('+ TEST 1: Enumerate monitors -----------------------\') ; Enumerate monitors _Monitor_GetList() Local $cnt = _Monitor_GetCount() If @error Then Local $sMsg = "TEST 1: FAILED" & @CRLF & "ERROR - Failed to enumerate monitors" & @CRLF & "@error=" & @error _Log("---> Example 1: ERROR - Failed to enumerate monitors") If Not $g_bAutoMode Then MsgBox(48, "Example 1", $sMsg, 3) Return EndIf _Log("---> Example 1: Monitors detected: " & $cnt) Local $sResults = "Total Monitors: " & $cnt & @CRLF & @CRLF For $i = 1 To $cnt Local $a = _Monitor_GetInfo($i) If @error Then _Log(" Monitor " & $i & ": ERROR getting info") $sResults &= "Monitor #" & $i & ": ERROR" & @CRLF Else Local $sPrimary = $a[9] ? " [PRIMARY]" : "" _Log(" Monitor " & $i & ": Device=" & $a[10] & " Bounds=(" & $a[1] & "," & $a[2] & ")-(" & $a[3] & "," & $a[4] & ") Work=(" & $a[5] & "," & $a[6] & ")-(" & $a[7] & "," & $a[8] & ") Primary=" & $a[9]) $sResults &= "Monitor #" & $i & $sPrimary & ": " & $a[10] & @CRLF & _ " Bounds: " & $a[1] & "," & $a[2] & " to " & $a[3] & "," & $a[4] & @CRLF & _ " Work Area: " & $a[5] & "," & $a[6] & " to " & $a[7] & "," & $a[8] & @CRLF EndIf Next Local $sMsg = "TEST 1: SUCCESS" & @CRLF & @CRLF & $sResults If Not $g_bAutoMode Then MsgBox(64, "Example 1", $sMsg, 8) _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_1 Func FuncTest_2() _Log('+ TEST 2: Move Notepad to monitor #2 centered ------\') ; Move Notepad to monitor #2 centered $pidNotepad = Run("notepad.exe") If Not WinWaitActive("[CLASS:Notepad]", "", 5) Then _Log("---> Example 2: Notepad did not start / focus") Local $sMsg = "TEST 2: FAILED" & @CRLF & "Notepad did not start / focus" If Not $g_bAutoMode Then MsgBox(48, "Example 2", $sMsg, 3) Else Sleep(1000) Local $hWnd = WinGetHandle("[CLASS:Notepad]") _TrackNotepadWindow($hWnd) _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 2 Then Local $sMsg = "TEST 2: SKIPPED" & @CRLF & "Need at least 2 monitors" & @CRLF & "Current: " & $cnt & " monitor(s)" _Log("---> Example 2: Need at least 2 monitors") If Not $g_bAutoMode Then MsgBox(64, "Example 2", $sMsg, 3) Else Local $iResult = _Monitor_MoveWindowToScreen("[CLASS:Notepad]", "", 2, -1, -1, True) If @error Then Local $sMsg = "TEST 2: FAILED" & @CRLF & "ERROR moving window" & @CRLF & "@error=" & @error _Log("---> Example 2: ERROR moving window: @error=" & @error) If Not $g_bAutoMode Then MsgBox(48, "Example 2", $sMsg, 3) Else Local $sMsg = "TEST 2: SUCCESS" & @CRLF & "Notepad moved to Monitor #2" & @CRLF & "Position: Centered" _Log("---> Example 2: Notepad moved to monitor #2 (centered)") If Not $g_bAutoMode Then MsgBox(64, "Example 2", $sMsg, 3) EndIf EndIf EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_2 Func FuncTest_3() _Log('+ TEST 3: Move Notepad to monitor #2 at (100,100 ----\)') ; Move Notepad to monitor #2 at (100,100) $pidNotepad = Run("notepad.exe") If Not WinWaitActive("[CLASS:Notepad]", "", 5) Then Local $sMsg = "TEST 3: FAILED" & @CRLF & "Notepad did not start / focus" _Log("---> Example 3: Notepad did not start / focus") If Not $g_bAutoMode Then MsgBox(48, "Example 3", $sMsg, 3) Else Sleep(1000) Local $hWnd = WinGetHandle("[CLASS:Notepad]") _TrackNotepadWindow($hWnd) _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 2 Then Local $sMsg = "TEST 3: SKIPPED" & @CRLF & "Need at least 2 monitors" & @CRLF & "Current: " & $cnt & " monitor(s)" _Log("---> Example 3: Need at least 2 monitors") If Not $g_bAutoMode Then MsgBox(64, "Example 3", $sMsg, 3) Else Local $iResult = _Monitor_MoveWindowToScreen("[CLASS:Notepad]", "", 2, 100, 100, True) If @error Then Local $sMsg = "TEST 3: FAILED" & @CRLF & "ERROR moving window" & @CRLF & "@error=" & @error _Log("---> Example 3: ERROR moving window: @error=" & @error) If Not $g_bAutoMode Then MsgBox(48, "Example 3", $sMsg, 3) Else Local $sMsg = "TEST 3: SUCCESS" & @CRLF & "Notepad moved to Monitor #2" & @CRLF & "Position: (100, 100)" _Log("---> Example 3: Notepad moved to monitor #2 at (100,100)") If Not $g_bAutoMode Then MsgBox(64, "Example 3", $sMsg, 3) EndIf EndIf EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_3 Func FuncTest_4() _Log('+ TEST 4: Which monitor is mouse on ------------------\') ; Automatically move mouse to each monitor and test _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 1 Then Local $sMsg = "TEST 4: SKIPPED" & @CRLF & "No monitors detected" _Log("---> Example 4: No monitors detected") If Not $g_bAutoMode Then MsgBox(64, "Example 4", $sMsg, 3) Else Local $aResults = "" Local $sCurrentPos = MouseGetPos() Local $iOrigX = $sCurrentPos[0], $iOrigY = $sCurrentPos[1] _Log("---> Example 4: Testing " & $cnt & " monitor(s)") For $i = 1 To $cnt ; Get monitor center Local $iLeft, $iTop, $iRight, $iBottom _Monitor_GetBounds($i, $iLeft, $iTop, $iRight, $iBottom) Local $iCenterX = $iLeft + ($iRight - $iLeft) / 2 Local $iCenterY = $iTop + ($iBottom - $iTop) / 2 ; Move mouse to center of monitor MouseMove($iCenterX, $iCenterY, 0) Sleep(200) ; Check which monitor mouse is on Local $m = _Monitor_GetFromPoint() If @error Then _Log(" Monitor " & $i & ": ERROR - @error=" & @error) $aResults &= "Monitor " & $i & ": ERROR" & @CRLF Else Local $aInfo = _Monitor_GetInfo($i) Local $sDevice = @error ? "N/A" : $aInfo[10] Local $sStatus = ($m = $i) ? "CORRECT" : "WRONG (detected #" & $m & ")" _Log(" Monitor " & $i & " (" & $sDevice & "): Mouse detected on #" & $m & " - " & $sStatus) $aResults &= "Monitor #" & $i & " (" & $sDevice & "): #" & $m & " - " & $sStatus & @CRLF EndIf Sleep(300) Next ; Restore original mouse position MouseMove($iOrigX, $iOrigY, 0) Local $sMsg = "TEST 4: COMPLETE" & @CRLF & @CRLF & "Mouse Position Test Results:" & @CRLF & $aResults _Log("---> Example 4: Test complete, mouse restored to original position") If Not $g_bAutoMode Then MsgBox(64, "Example 4", $sMsg, 5) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_4 Func FuncTest_5() _Log('+ TEST 5: Virtual desktop bounds -----------------------\') ; Virtual desktop bounds Local $aV = _Monitor_GetVirtualBounds() If @error Then Local $sMsg = "TEST 5: FAILED" & @CRLF & "ERROR getting virtual bounds" & @CRLF & "@error=" & @error _Log("---> Example 5: ERROR getting virtual bounds: @error=" & @error) If Not $g_bAutoMode Then MsgBox(48, "Example 5", $sMsg, 3) Else Local $sMsg = "TEST 5: SUCCESS" & @CRLF & @CRLF & "Virtual Desktop Bounds:" & @CRLF & _ "Left: " & $aV[0] & @CRLF & _ "Top: " & $aV[1] & @CRLF & _ "Width: " & $aV[2] & @CRLF & _ "Height: " & $aV[3] & @CRLF & @CRLF & _ "Right: " & ($aV[0] + $aV[2]) & @CRLF & _ "Bottom: " & ($aV[1] + $aV[3]) _Log("---> Example 5: Virtual bounds L=" & $aV[0] & " T=" & $aV[1] & " W=" & $aV[2] & " H=" & $aV[3]) If Not $g_bAutoMode Then MsgBox(64, "Example 5", $sMsg, 5) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_5 Func FuncTest_6() _Log('+ TEST 6: Convert coords example (local -> virtual -> back) --\') ; Convert coords example (local -> virtual -> back) _Monitor_GetList() Local $mon = _Monitor_GetCount() If $mon < 1 Then Local $sMsg = "TEST 6: SKIPPED" & @CRLF & "No monitors detected" _Log("---> Example 6: No monitors detected") If Not $g_bAutoMode Then MsgBox(64, "Example 6", $sMsg, 3) Else Local $sResults = "" For $i = 1 To $mon Local $xLocal = 50, $yLocal = 100 Local $aV = _Monitor_ToVirtual($i, $xLocal, $yLocal) If @error Then _Log("---> Example 6: Monitor " & $i & " ERROR converting to virtual: @error=" & @error) $sResults &= "Monitor #" & $i & ": ERROR (to virtual)" & @CRLF Else Local $aBack = _Monitor_FromVirtual($i, $aV[0], $aV[1]) If @error Then _Log("---> Example 6: Monitor " & $i & " ERROR converting from virtual: @error=" & @error) $sResults &= "Monitor #" & $i & ": ERROR (from virtual)" & @CRLF Else Local $bMatch = (Abs($aBack[0] - $xLocal) < 1) And (Abs($aBack[1] - $yLocal) < 1) _Log("---> Example 6: Mon " & $i & " local(" & $xLocal & "," & $yLocal & ") -> virtual(" & $aV[0] & "," & $aV[1] & ") -> back(" & $aBack[0] & "," & $aBack[1] & ")") $sResults &= "Monitor #" & $i & ": (" & $xLocal & "," & $yLocal & ") -> (" & $aV[0] & "," & $aV[1] & ") -> (" & $aBack[0] & "," & $aBack[1] & ")" & _ ($bMatch ? " ✓" : " ✗") & @CRLF EndIf EndIf Next Local $sMsg = "TEST 6: COMPLETE" & @CRLF & @CRLF & "Coordinate Conversion Test:" & @CRLF & $sResults If Not $g_bAutoMode Then MsgBox(64, "Example 6", $sMsg, 5) EndIf _Log('- End --------------------------------------------------------/') EndFunc ;==>FuncTest_6 Func FuncTest_7() _Log('+ TEST 7: Show detailed info via MsgBox (calls UDF) ------\') ; Show detailed info via MsgBox (calls UDF) _Monitor_GetList() Local $sResult = _Monitor_ShowInfo(1, 8) If @error Then Local $sMsg = "TEST 7: FAILED" & @CRLF & "ERROR showing info" & @CRLF & "@error=" & @error _Log("---> Example 7: ERROR showing info: @error=" & @error) If Not $g_bAutoMode Then MsgBox(48, "Example 7", $sMsg, 3) Else Local $sMsg = "TEST 7: SUCCESS" & @CRLF & @CRLF & "Detailed monitor information displayed above." _Log("---> Example 7: _Monitor_ShowInfo() called successfully") If Not $g_bAutoMode Then MsgBox(64, "Example 7", $sMsg, 3) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_7 Func FuncTest_8() _Log('+ TEST 8: Start notepad, check visible ---------------\') ; Start notepad, check visible $pidNotepad = Run("notepad.exe") If Not WinWaitActive("[CLASS:Notepad]", "", 5) Then Local $sMsg = "TEST 8: FAILED" & @CRLF & "Notepad did not start/focus" _Log("---> Example 8: Notepad did not start/focus") If Not $g_bAutoMode Then MsgBox(48, "Example 8", $sMsg, 3) Else Sleep(1000) Local $h = WinGetHandle("[CLASS:Notepad]") _TrackNotepadWindow($h) Local $b = _Monitor_IsVisibleWindow($h) If @error Then Local $sMsg = "TEST 8: FAILED" & @CRLF & "ERROR checking visibility" & @CRLF & "@error=" & @error _Log("---> Example 8: ERROR checking visibility: @error=" & @error) If Not $g_bAutoMode Then MsgBox(48, "Example 8", $sMsg, 3) Else Local $sTitle = WinGetTitle($h) Local $sMsg = "TEST 8: SUCCESS" & @CRLF & @CRLF & "Window: " & ($sTitle = "" ? "[No Title]" : $sTitle) & @CRLF & _ "Handle: " & $h & @CRLF & _ "Visible: " & ($b ? "YES ✓" : "NO ✗") _Log("---> Example 8: Notepad handle " & $h & " visible? " & ($b ? "Yes" : "No")) If Not $g_bAutoMode Then MsgBox(64, "Example 8", $sMsg, 3) EndIf EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_8 Func FuncTest_9() _Log('+ TEST 9: Create small GUI on each monitor -------------\') ; Create small GUI on each monitor _Monitor_GetList() ; close previously created For $i = 0 To UBound($g_createdGUIs) - 1 If IsHWnd($g_createdGUIs[$i]) Then GUIDelete($g_createdGUIs[$i]) Next ReDim $g_createdGUIs[0] ; reset Local $created = 0 For $i = 1 To _Monitor_GetCount() Local $a = _Monitor_GetInfo($i) If @error Then _Log(" Monitor " & $i & ": ERROR getting info") ContinueLoop EndIf Local $h = GUICreate("Monitor #" & $i & " - " & $a[10], 260, 120, $a[1] + 40, $a[2] + 40) GUICtrlCreateLabel("Monitor " & $i & ($a[9] ? " (Primary)" : ""), 10, 12, 240, 20) GUISetState(@SW_SHOW, $h) ; store to close later __ArrayAdd($g_createdGUIs, $h) $created += 1 Next Local $sMsg = "TEST 9: SUCCESS" & @CRLF & @CRLF & "Created " & $created & " GUI window(s)" & @CRLF & @CRLF If $created > 0 Then $sMsg &= "One GUI created on each monitor:" & @CRLF For $i = 1 To _Monitor_GetCount() Local $a = _Monitor_GetInfo($i) If Not @error Then Local $sPrimary = $a[9] ? " [PRIMARY]" : "" $sMsg &= " Monitor #" & $i & $sPrimary & ": " & $a[10] & @CRLF EndIf Next $sMsg &= @CRLF & "Windows will be closed when you close the launcher." Else $sMsg &= "No GUIs were created." EndIf _Log("---> Example 9: Created " & $created & " GUI(s) on monitors. Use Close to exit (they will be closed).") If Not $g_bAutoMode Then MsgBox(64, "Example 9", $sMsg, 5) _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_9 Func FuncTest_10() _Log('+ TEST 10: Move all visible windows to primary ----------\') ; Move all visible windows to primary _Monitor_GetList() Local $prim = _Monitor_GetPrimary() If $prim = 0 Or @error Then Local $sMsg = "TEST 10: FAILED" & @CRLF & "Primary monitor not found or error" & @CRLF & "@error=" & @error _Log("---> Example 10: Primary monitor not found or error") If Not $g_bAutoMode Then MsgBox(48, "Example 10", $sMsg, 3) Else Local $aList = WinList() Local $moved = 0 Local $aInfo = _Monitor_GetInfo($prim) Local $sDevice = @error ? "N/A" : $aInfo[10] For $i = 1 To $aList[0][0] If $aList[$i][0] <> "" Then ; FIXED: Use correct array index - WinList()[i][0] is title, need to get handle from title Local $h = WinGetHandle($aList[$i][0]) ; FIXED: Changed from [1] to [0] If Not @error And $h Then If _Monitor_IsVisibleWindow($h) Then Local $iResult = _Monitor_MoveWindowToScreen($h, "", $prim) If Not @error Then $moved += 1 EndIf EndIf EndIf Next Local $sMsg = "TEST 10: SUCCESS" & @CRLF & @CRLF & _ "Moved " & $moved & " visible window(s)" & @CRLF & _ "to Primary Monitor #" & $prim & @CRLF & _ "Device: " & $sDevice _Log("---> Example 10: Moved " & $moved & " visible windows to primary monitor #" & $prim) If Not $g_bAutoMode Then MsgBox(64, "Example 10", $sMsg, 4) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_10 Func FuncTest_11() _Log('+ TEST 11: Refresh monitor list ----------------------\') ; Refresh monitor list Local $cntBefore = _Monitor_GetCount() _Log("---> Example 11: Monitors before refresh: " & $cntBefore) Local $cntAfter = _Monitor_Refresh() If @error Then Local $sMsg = "TEST 11: FAILED" & @CRLF & "ERROR refreshing monitor list" & @CRLF & "@error=" & @error _Log("---> Example 11: ERROR refreshing: @error=" & @error) If Not $g_bAutoMode Then MsgBox(48, "Example 11", $sMsg, 3) Else Local $sChangeInfo = "" If $cntBefore <> $cntAfter Then _Log(" --> Monitor count changed! (was " & $cntBefore & ", now " & $cntAfter & ")") $sChangeInfo = @CRLF & "⚠ CHANGE DETECTED! ⚠" & @CRLF & "Before: " & $cntBefore & " monitor(s)" & @CRLF & "After: " & $cntAfter & " monitor(s)" Else _Log(" --> Monitor count unchanged") $sChangeInfo = @CRLF & "Count unchanged: " & $cntAfter & " monitor(s)" EndIf Local $sMsg = "TEST 11: SUCCESS" & @CRLF & @CRLF & "Monitor list refreshed" & $sChangeInfo _Log("---> Example 11: Monitors after refresh: " & $cntAfter) If Not $g_bAutoMode Then MsgBox(64, "Example 11", $sMsg, 4) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_11 Func FuncTest_12() _Log('+ TEST 12: Check if monitors are connected -----------\') ; Check if monitors are still connected _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 1 Then Local $sMsg = "TEST 12: SKIPPED" & @CRLF & "No monitors detected" _Log("---> Example 12: No monitors detected") If Not $g_bAutoMode Then MsgBox(64, "Example 12", $sMsg, 3) Else _Log("---> Example 12: Checking connection status for " & $cnt & " monitor(s):") Local $sResults = "" Local $iConnected = 0, $iDisconnected = 0 For $i = 1 To $cnt Local $bConnected = _Monitor_IsConnected($i) If @error Then _Log(" Monitor " & $i & ": ERROR checking connection: @error=" & @error) $sResults &= "Monitor #" & $i & ": ERROR" & @CRLF Else Local $sStatus = $bConnected ? "CONNECTED ✓" : "DISCONNECTED ✗" Local $aInfo = _Monitor_GetInfo($i) Local $sDevice = @error ? "N/A" : $aInfo[10] _Log(" Monitor " & $i & " (" & $sDevice & "): " & ($bConnected ? "CONNECTED" : "DISCONNECTED")) $sResults &= "Monitor #" & $i & " (" & $sDevice & "): " & $sStatus & @CRLF If $bConnected Then $iConnected += 1 Else $iDisconnected += 1 EndIf EndIf Next Local $sMsg = "TEST 12: COMPLETE" & @CRLF & @CRLF & "Connection Status:" & @CRLF & _ "Connected: " & $iConnected & @CRLF & _ "Disconnected: " & $iDisconnected & @CRLF & @CRLF & _ $sResults If Not $g_bAutoMode Then MsgBox(64, "Example 12", $sMsg, 5) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_12 Func FuncTest_13() _Log('+ TEST 13: Get DPI scaling for monitors -------------\') ; Get DPI scaling for each monitor _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 1 Then Local $sMsg = "TEST 13: SKIPPED" & @CRLF & "No monitors detected" _Log("---> Example 13: No monitors detected") If Not $g_bAutoMode Then MsgBox(64, "Example 13", $sMsg, 3) Else _Log("---> Example 13: DPI information for " & $cnt & " monitor(s):") Local $sResults = "" For $i = 1 To $cnt Local $aDPI = _Monitor_GetDPI($i) If @error Then _Log(" Monitor " & $i & ": ERROR getting DPI: @error=" & @error) $sResults &= "Monitor #" & $i & ": ERROR" & @CRLF Else Local $aInfo = _Monitor_GetInfo($i) Local $sDevice = @error ? "N/A" : $aInfo[10] _Log(" Monitor " & $i & " (" & $sDevice & "):") _Log(" DPI X: " & $aDPI[0] & ", DPI Y: " & $aDPI[1]) _Log(" Scaling: " & $aDPI[2] & "%") $sResults &= "Monitor #" & $i & " (" & $sDevice & "):" & @CRLF & _ " DPI X: " & $aDPI[0] & ", DPI Y: " & $aDPI[1] & @CRLF & _ " Scaling: " & $aDPI[2] & "%" & @CRLF EndIf Next Local $sMsg = "TEST 13: COMPLETE" & @CRLF & @CRLF & "DPI Information:" & @CRLF & $sResults If Not $g_bAutoMode Then MsgBox(64, "Example 13", $sMsg, 6) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_13 Func FuncTest_14() _Log('+ TEST 14: Get display orientation -------------------\') ; Get display orientation for each monitor _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 1 Then Local $sMsg = "TEST 14: SKIPPED" & @CRLF & "No monitors detected" _Log("---> Example 14: No monitors detected") If Not $g_bAutoMode Then MsgBox(64, "Example 14", $sMsg, 3) Else _Log("---> Example 14: Display orientation for " & $cnt & " monitor(s):") Local $sOrientationNames[4] = ["Landscape (0°)", "Portrait (90°)", "Landscape Flipped (180°)", "Portrait Flipped (270°)"] Local $sResults = "" For $i = 1 To $cnt Local $iOrientation = _Monitor_GetOrientation($i) If @error Then _Log(" Monitor " & $i & ": ERROR getting orientation: @error=" & @error) $sResults &= "Monitor #" & $i & ": ERROR" & @CRLF Else Local $aInfo = _Monitor_GetInfo($i) Local $sDevice = @error ? "N/A" : $aInfo[10] Local $sOrientationName = "Unknown" If $iOrientation >= 0 And $iOrientation <= 270 Then Local $iIndex = Int($iOrientation / 90) If $iIndex >= 0 And $iIndex < 4 Then $sOrientationName = $sOrientationNames[$iIndex] EndIf _Log(" Monitor " & $i & " (" & $sDevice & "): " & $iOrientation & "° (" & $sOrientationName & ")") $sResults &= "Monitor #" & $i & " (" & $sDevice & "): " & $iOrientation & "°" & @CRLF & _ " " & $sOrientationName & @CRLF EndIf Next Local $sMsg = "TEST 14: COMPLETE" & @CRLF & @CRLF & "Display Orientation:" & @CRLF & $sResults If Not $g_bAutoMode Then MsgBox(64, "Example 14", $sMsg, 5) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_14 Func FuncTest_15() _Log('+ TEST 15: Enumerate all display modes ---------------\') ; Enumerate all display modes for all monitors (auto mode) or selected monitor _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 1 Then Local $sMsg = "TEST 15: SKIPPED" & @CRLF & "No monitors detected" _Log("---> Example 15: No monitors detected") If Not $g_bAutoMode Then MsgBox(64, "Example 15", $sMsg, 3) Else Local $sAllResults = "" Local $iTotalModes = 0 ; In auto mode, test all monitors. Otherwise, ask user Local $bTestAll = $g_bAutoMode Local $aTestMonitors[1] = [1] ; Default to monitor 1 If Not $bTestAll And $cnt > 1 Then Local $sInput = InputBox("Example 15", "Select monitor to test (1-" & $cnt & ") or 0 for all:", "0", "", 250, 150) If Not @error And StringIsDigit($sInput) Then Local $iInput = Int($sInput) If $iInput = 0 Then $bTestAll = True ElseIf $iInput >= 1 And $iInput <= $cnt Then ; Test single monitor $bTestAll = False $aTestMonitors[0] = $iInput EndIf EndIf EndIf ; If testing all, create array of all monitor indices If $bTestAll Then ReDim $aTestMonitors[$cnt] For $i = 0 To $cnt - 1 $aTestMonitors[$i] = $i + 1 Next EndIf ; Test each monitor For $iMonitorIndex = 0 To UBound($aTestMonitors) - 1 Local $iTestMonitor = $aTestMonitors[$iMonitorIndex] Local $aModes = _Monitor_EnumAllDisplayModes($iTestMonitor) If @error Then _Log("---> Example 15: Monitor " & $iTestMonitor & " ERROR enumerating modes: @error=" & @error) $sAllResults &= "Monitor #" & $iTestMonitor & ": ERROR" & @CRLF Else Local $aInfo = _Monitor_GetInfo($iTestMonitor) Local $sDevice = @error ? "N/A" : $aInfo[10] $iTotalModes += $aModes[0][0] _Log("---> Example 15: Monitor " & $iTestMonitor & " (" & $sDevice & ") has " & $aModes[0][0] & " display mode(s):") Local $sModesList = "" Local $iShowCount = ($aModes[0][0] > 5) ? 5 : $aModes[0][0] For $i = 1 To $iShowCount Local $sModeInfo = $aModes[$i][0] & "x" & $aModes[$i][1] & " @ " & $aModes[$i][3] & "Hz, " & $aModes[$i][2] & " bpp" _Log(" Mode " & $i & ": " & $sModeInfo) $sModesList &= " " & $sModeInfo & @CRLF Next If $aModes[0][0] > 5 Then _Log(" ... and " & ($aModes[0][0] - 5) & " more mode(s)") $sModesList &= " ... and " & ($aModes[0][0] - 5) & " more mode(s)" & @CRLF EndIf If $bTestAll Then $sAllResults &= "Monitor #" & $iTestMonitor & " (" & $sDevice & "): " & $aModes[0][0] & " modes" & @CRLF & $sModesList Else $sAllResults = "Monitor #" & $iTestMonitor & " (" & $sDevice & "): " & $aModes[0][0] & " modes" & @CRLF & $sModesList EndIf EndIf Next Local $sMsg = "TEST 15: COMPLETE" & @CRLF & @CRLF If $bTestAll Then $sMsg &= "Total Modes Found: " & $iTotalModes & @CRLF & @CRLF EndIf $sMsg &= "Display Modes:" & @CRLF & $sAllResults If Not $g_bAutoMode Then MsgBox(64, "Example 15", $sMsg, 10) EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_15 Func FuncTest_16() _Log('+ TEST 16: Get monitor from rectangle ----------------\') ; Get monitor that overlaps with a rectangle _Monitor_GetList() Local $cnt = _Monitor_GetCount() If $cnt < 1 Then Local $sMsg = "TEST 16: SKIPPED" & @CRLF & "No monitors detected" _Log("---> Example 16: No monitors detected") If Not $g_bAutoMode Then MsgBox(64, "Example 16", $sMsg, 3) Else ; Create a test rectangle (center of primary monitor) Local $prim = _Monitor_GetPrimary() If $prim = 0 Then $prim = 1 Local $iLeft, $iTop, $iRight, $iBottom _Monitor_GetBounds($prim, $iLeft, $iTop, $iRight, $iBottom) Local $iCenterX = $iLeft + ($iRight - $iLeft) / 2 Local $iCenterY = $iTop + ($iBottom - $iTop) / 2 Local $iRectW = 200, $iRectH = 150 Local $iRectLeft = $iCenterX - $iRectW / 2 Local $iRectTop = $iCenterY - $iRectH / 2 Local $iRectRight = $iCenterX + $iRectW / 2 Local $iRectBottom = $iCenterY + $iRectH / 2 _Log("---> Example 16: Testing rectangle: L=" & $iRectLeft & ", T=" & $iRectTop & ", R=" & $iRectRight & ", B=" & $iRectBottom) Local $iMonitor = _Monitor_GetFromRect($iRectLeft, $iRectTop, $iRectRight, $iRectBottom) If @error Then Local $sMsg = "TEST 16: FAILED" & @CRLF & "ERROR getting monitor from rect" & @CRLF & "@error=" & @error _Log("---> Example 16: ERROR getting monitor from rect: @error=" & @error) If Not $g_bAutoMode Then MsgBox(48, "Example 16", $sMsg, 3) Else If $iMonitor > 0 Then Local $aInfo = _Monitor_GetInfo($iMonitor) Local $sDevice = @error ? "N/A" : $aInfo[10] Local $sPrimary = @error ? "" : ($aInfo[9] ? " [PRIMARY]" : "") Local $sMsg = "TEST 16: SUCCESS" & @CRLF & @CRLF & _ "Test Rectangle:" & @CRLF & _ " Left: " & $iRectLeft & ", Top: " & $iRectTop & @CRLF & _ " Right: " & $iRectRight & ", Bottom: " & $iRectBottom & @CRLF & @CRLF & _ "Found Monitor: #" & $iMonitor & $sPrimary & @CRLF & _ "Device: " & $sDevice _Log("---> Example 16: Rectangle overlaps with Monitor #" & $iMonitor & " (" & $sDevice & ")") If Not $g_bAutoMode Then MsgBox(64, "Example 16", $sMsg, 4) Else Local $sMsg = "TEST 16: NO MATCH" & @CRLF & @CRLF & "Rectangle does not overlap with any monitor" _Log("---> Example 16: Rectangle does not overlap with any monitor") If Not $g_bAutoMode Then MsgBox(48, "Example 16", $sMsg, 3) EndIf EndIf EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_16 Func FuncTest_17() _Log('+ TEST 17: Get monitor from window -------------------\') ; Get monitor containing a specific window _Monitor_GetList() ; Try to find Notepad or use current active window Local $hWnd = WinGetHandle("[CLASS:Notepad]") If @error Or Not $hWnd Then $hWnd = WinGetHandle("[ACTIVE]") If @error Or Not $hWnd Then _Log("---> Example 17: No suitable window found. Opening Notepad...") $pidNotepad = Run("notepad.exe") If WinWaitActive("[CLASS:Notepad]", "", 3) Then Sleep(500) $hWnd = WinGetHandle("[CLASS:Notepad]") Else _Log("---> Example 17: ERROR - Could not find or create test window") Return EndIf EndIf EndIf If $hWnd Then Local $sTitle = WinGetTitle($hWnd) _Log("---> Example 17: Testing window: " & ($sTitle = "" ? "[No Title]" : $sTitle) & " (Handle: " & $hWnd & ")") Local $iMonitor = _Monitor_GetFromWindow($hWnd) If @error Then _Log("---> Example 17: ERROR getting monitor from window: @error=" & @error) Else If $iMonitor > 0 Then Local $aInfo = _Monitor_GetInfo($iMonitor) Local $sDevice = @error ? "N/A" : $aInfo[10] Local $sPrimary = @error ? "" : ($aInfo[9] ? " [PRIMARY]" : "") _Log("---> Example 17: Window is on Monitor #" & $iMonitor & " (" & $sDevice & ")" & $sPrimary) ; Get window position for verification Local $aWinPos = WinGetPos($hWnd) If Not @error Then _Log(" Window position: X=" & $aWinPos[0] & ", Y=" & $aWinPos[1]) _Log(" Monitor bounds: L=" & $aInfo[1] & ", T=" & $aInfo[2] & ", R=" & $aInfo[3] & ", B=" & $aInfo[4]) EndIf Local $sMsg = "TEST 17: SUCCESS" & @CRLF & @CRLF & _ "Window: " & ($sTitle = "" ? "[No Title]" : $sTitle) & @CRLF & _ "Handle: " & $hWnd & @CRLF & @CRLF & _ "Monitor: #" & $iMonitor & $sPrimary & @CRLF & _ "Device: " & $sDevice & @CRLF & @CRLF & _ "Window Position:" & @CRLF & _ " X: " & $aWinPos[0] & ", Y: " & $aWinPos[1] If Not $g_bAutoMode Then MsgBox(64, "Example 17", $sMsg, 5) Else _Log("---> Example 17: Window is not on any monitor") EndIf EndIf EndIf _Log('- End ------------------------------------------------/') EndFunc ;==>FuncTest_17 ; ================================================================================================== ; Small helper to push item into dynamic array (simple) ; ================================================================================================== Func __ArrayAdd(ByRef $a, $v) Local $n = 0 If IsArray($a) Then $n = UBound($a) ReDim $a[$n + 1] $a[$n] = $v EndFunc ;==>__ArrayAdd EG2 TEST MONITOR RESOLUTION CHANGING: #include "Monitor_UDF.au3" #RequireAdmin ; Test hàm _Monitor_SetResolution ; Chương trình sẽ: ; 1. Lấy danh sách tất cả độ phân giải hỗ trợ ; 2. Lưu độ phân giải hiện tại ; 3. Thử thay đổi từng độ phân giải ; 4. Xác thực mỗi lần thay đổi ; 5. Khôi phục về độ phân giải ban đầu ConsoleWrite("=== TEST MONITOR RESOLUTION CHANGING ===" & @CRLF & @CRLF) ; Chọn màn hình cần test (thay đổi số này nếu muốn test màn hình khác) Local $iMonitorToTest = 1 ; Kiểm tra màn hình tồn tại Local $iMonitorCount = _Monitor_GetCount() If $iMonitorCount = 0 Then ConsoleWrite("ERROR: No monitors detected!" & @CRLF) Exit EndIf If $iMonitorToTest > $iMonitorCount Then ConsoleWrite("ERROR: Monitor " & $iMonitorToTest & " does not exist. Total monitors: " & $iMonitorCount & @CRLF) Exit EndIf ConsoleWrite("Testing Monitor #" & $iMonitorToTest & @CRLF) Local $aInfo = _Monitor_GetInfo($iMonitorToTest) If @error Then ConsoleWrite("ERROR: Cannot get monitor info. Error: " & @error & @CRLF) Exit EndIf ConsoleWrite("Device: " & $aInfo[10] & @CRLF & @CRLF) ; Bước 1: Lấy độ phân giải hiện tại ConsoleWrite("Step 1: Getting current resolution..." & @CRLF) Local $aOriginalSettings = _Monitor_GetDisplaySettings($iMonitorToTest) If @error Then ConsoleWrite("ERROR: Cannot get current display settings. Error: " & @error & @CRLF) Exit EndIf Local $iOriginalWidth = $aOriginalSettings[0] Local $iOriginalHeight = $aOriginalSettings[1] Local $iOriginalBits = $aOriginalSettings[2] Local $iOriginalFreq = $aOriginalSettings[3] ConsoleWrite("Current Resolution: " & $iOriginalWidth & "x" & $iOriginalHeight & _ " @ " & $iOriginalBits & " bits, " & $iOriginalFreq & " Hz" & @CRLF & @CRLF) ; Bước 2: Lấy danh sách tất cả độ phân giải hỗ trợ ConsoleWrite("Step 2: Enumerating all supported resolutions..." & @CRLF) Local $aModes = _Monitor_EnumAllDisplayModes($iMonitorToTest) If @error Then ConsoleWrite("ERROR: Cannot enumerate display modes. Error: " & @error & @CRLF) Exit EndIf ConsoleWrite("Found " & $aModes[0][0] & " display modes" & @CRLF & @CRLF) ; Lọc và tạo danh sách độ phân giải duy nhất (bỏ qua refresh rate) Local $aUniqueResolutions[1][3] ; [Width, Height, BitsPerPixel] $aUniqueResolutions[0][0] = 0 For $i = 1 To $aModes[0][0] Local $iWidth = $aModes[$i][0] Local $iHeight = $aModes[$i][1] Local $iBits = $aModes[$i][2] ; Kiểm tra xem độ phân giải này đã có chưa Local $bExists = False For $j = 1 To $aUniqueResolutions[0][0] If $aUniqueResolutions[$j][0] = $iWidth And _ $aUniqueResolutions[$j][1] = $iHeight And _ $aUniqueResolutions[$j][2] = $iBits Then $bExists = True ExitLoop EndIf Next If Not $bExists Then ReDim $aUniqueResolutions[$aUniqueResolutions[0][0] + 2][3] $aUniqueResolutions[0][0] += 1 $aUniqueResolutions[$aUniqueResolutions[0][0]][0] = $iWidth $aUniqueResolutions[$aUniqueResolutions[0][0]][1] = $iHeight $aUniqueResolutions[$aUniqueResolutions[0][0]][2] = $iBits EndIf Next ConsoleWrite("Unique resolutions: " & $aUniqueResolutions[0][0] & @CRLF) ; Hiển thị danh sách (tối đa 20 độ phân giải đầu tiên) Local $iDisplayCount = ($aUniqueResolutions[0][0] > 20) ? 20 : $aUniqueResolutions[0][0] For $i = 1 To $iDisplayCount ConsoleWrite(" [" & $i & "] " & $aUniqueResolutions[$i][0] & "x" & $aUniqueResolutions[$i][1] & _ " @ " & $aUniqueResolutions[$i][2] & " bits" & @CRLF) Next If $aUniqueResolutions[0][0] > 20 Then ConsoleWrite(" ... and " & ($aUniqueResolutions[0][0] - 20) & " more resolutions" & @CRLF) EndIf ConsoleWrite(@CRLF) ; Bước 3: Chọn một vài độ phân giải phổ biến để test ConsoleWrite("Step 3: Testing resolution changes..." & @CRLF) ConsoleWrite("NOTE: Display may flicker during tests." & @CRLF) ConsoleWrite("Waiting 3 seconds before starting..." & @CRLF & @CRLF) Sleep(3000) ; Tìm các độ phân giải phổ biến để test Local $aTestResolutions[][] = [ _ [800, 600], _ [1024, 768], _ [1280, 720], _ [1280, 1024], _ [1366, 768], _ [1920, 1080], _ [2560, 1440], _ [3840, 2160] _ ] Local $iTestCount = 0 Local $iSuccessCount = 0 Local $iFailCount = 0 For $i = 0 To UBound($aTestResolutions) - 1 Local $iTestWidth = $aTestResolutions[$i][0] Local $iTestHeight = $aTestResolutions[$i][1] ; Kiểm tra xem độ phân giải này có được hỗ trợ không Local $bSupported = False For $j = 1 To $aUniqueResolutions[0][0] If $aUniqueResolutions[$j][0] = $iTestWidth And $aUniqueResolutions[$j][1] = $iTestHeight Then $bSupported = True ExitLoop EndIf Next If Not $bSupported Then ConsoleWrite(" [SKIP] " & $iTestWidth & "x" & $iTestHeight & " - Not supported" & @CRLF) ContinueLoop EndIf ; Bỏ qua nếu đây là độ phân giải hiện tại If $iTestWidth = $iOriginalWidth And $iTestHeight = $iOriginalHeight Then ConsoleWrite(" [SKIP] " & $iTestWidth & "x" & $iTestHeight & " - Current resolution" & @CRLF) ContinueLoop EndIf $iTestCount += 1 ConsoleWrite(" [TEST " & $iTestCount & "] Changing to " & $iTestWidth & "x" & $iTestHeight & "... ") ; Thử thay đổi độ phân giải Local $iResult = _Monitor_SetResolution($iMonitorToTest, $iTestWidth, $iTestHeight, $iOriginalBits) Local $iError = @error Local $iExtended = @extended If $iError Then $iFailCount += 1 ConsoleWrite("FAILED!" & @CRLF) ConsoleWrite(" Error: " & $iError & ", Extended: " & $iExtended) ; Giải thích mã lỗi Switch $iExtended Case -1 ConsoleWrite(" (DISP_CHANGE_FAILED)" & @CRLF) Case -2 ConsoleWrite(" (DISP_CHANGE_BADMODE)" & @CRLF) Case -3 ConsoleWrite(" (DISP_CHANGE_NOTUPDATED)" & @CRLF) Case -4 ConsoleWrite(" (DISP_CHANGE_BADFLAGS)" & @CRLF) Case -5 ConsoleWrite(" (DISP_CHANGE_BADPARAM)" & @CRLF) Case -6 ConsoleWrite(" (DISP_CHANGE_BADDUALVIEW)" & @CRLF) Case Else ConsoleWrite(@CRLF) EndSwitch ContinueLoop EndIf ; Chờ màn hình ổn định Sleep(1000) ; Xác thực lại độ phân giải Local $aNewSettings = _Monitor_GetDisplaySettings($iMonitorToTest) If @error Then $iFailCount += 1 ConsoleWrite("FAILED!" & @CRLF) ConsoleWrite(" Cannot verify new resolution. Error: " & @error & @CRLF) ContinueLoop EndIf Local $iNewWidth = $aNewSettings[0] Local $iNewHeight = $aNewSettings[1] ; Kiểm tra xem độ phân giải có thay đổi thành công không If $iNewWidth = $iTestWidth And $iNewHeight = $iTestHeight Then $iSuccessCount += 1 ConsoleWrite("SUCCESS!" & @CRLF) ConsoleWrite(" Verified: " & $iNewWidth & "x" & $iNewHeight & _ " @ " & $aNewSettings[2] & " bits, " & $aNewSettings[3] & " Hz" & @CRLF) Else $iFailCount += 1 ConsoleWrite("FAILED!" & @CRLF) ConsoleWrite(" Expected: " & $iTestWidth & "x" & $iTestHeight & @CRLF) ConsoleWrite(" Got: " & $iNewWidth & "x" & $iNewHeight & @CRLF) EndIf ; Chờ một chút trước khi thử độ phân giải tiếp theo Sleep(2000) Next ConsoleWrite(@CRLF) ConsoleWrite("Test Summary:" & @CRLF) ConsoleWrite(" Total tests: " & $iTestCount & @CRLF) ConsoleWrite(" Successful: " & $iSuccessCount & @CRLF) ConsoleWrite(" Failed: " & $iFailCount & @CRLF) ConsoleWrite(@CRLF) ; Bước 4: Khôi phục về độ phân giải ban đầu ConsoleWrite("Step 4: Restoring original resolution..." & @CRLF) ConsoleWrite(" Changing back to " & $iOriginalWidth & "x" & $iOriginalHeight & "... ") Local $iRestore = _Monitor_SetResolution($iMonitorToTest, $iOriginalWidth, $iOriginalHeight, $iOriginalBits, $iOriginalFreq) If @error Then ConsoleWrite("FAILED!" & @CRLF) ConsoleWrite(" ERROR: Cannot restore original resolution. Error: " & @error & ", Extended: " & @extended & @CRLF) ConsoleWrite(" You may need to manually change resolution back in Windows Display Settings." & @CRLF) Else Sleep(1000) ; Xác thực lại Local $aRestoreSettings = _Monitor_GetDisplaySettings($iMonitorToTest) If @error Then ConsoleWrite("FAILED!" & @CRLF) ConsoleWrite(" Cannot verify restoration. Error: " & @error & @CRLF) ElseIf $aRestoreSettings[0] = $iOriginalWidth And $aRestoreSettings[1] = $iOriginalHeight Then ConsoleWrite("SUCCESS!" & @CRLF) ConsoleWrite(" Restored to: " & $aRestoreSettings[0] & "x" & $aRestoreSettings[1] & _ " @ " & $aRestoreSettings[2] & " bits, " & $aRestoreSettings[3] & " Hz" & @CRLF) Else ConsoleWrite("FAILED!" & @CRLF) ConsoleWrite(" Resolution mismatch after restore!" & @CRLF) EndIf EndIf ConsoleWrite(@CRLF & "=== TEST COMPLETED ===" & @CRLF)

Added function!

Hey ioa, just a suggestion - have you tried giving ownerdrawn buttons a go? WM_DRAWITEM triggers, and will tell you the button state so you can draw it accordingly. Basically you can have your button react to changes in focus, checked, depressed, greyed out states etc etc - without the need for manufacturing events via those dummy controls.

yeah, I'd imagine if you were going to accommodate for this, you'd want to change $iEnd = 0 meaning "end of array" and make people use the Default keyword. It would be a script breaking change though. And to be consistent you'll also want to check how "0" and "-1" are used throughout other funcs in the UDF... I'd say there'll be quite a bit of "If $iParam < 1" logic! But its not us that you need to persuade - so if you feel strongly enough about it, you can always make the suggestion in the bugtrac .

Updated the code above. Posting a "bump" type of post because if you are using this, there were 2 entries that needed to FreeMem in _WinHttp_SSL_Info() and didn't in the prior version.

Nah, that would be even worst. Let say I want to start at position 3 and search until the end. Based on help file, I would use : _ArraySearch($aArray, 5, 3, 0) But on your logic, I would get an error !

Ah, thanks heaps for that. A simple oversight which I should have picked up on since even in the help file it shows the need to get the window handle. Trying to test waaaaay past my bedtime. For reference just in case I need to google this again in future, this now works: $hWnd = WinGetHandle('[CLASS:Ultimate Jukebox Main]') _SendMessage($hWnd, 1024, 400)

After seeing a number of threads talking about how to exchange efficiently messages between processes (Inter Process Communication), I decided to create a framework using Windows Messages WM_COPYDATA. What is new with this UDF you ask ? Well it will depends how familiar you are with IPC. One thing is sure, the simplicity of use and the fabulous speed are amazing. This is based on a Clients-Server approach. You can have an unlimited number of clients talking with a single server. You will have to define the protocol of communication between them, but the code you have to create is incredibly low. The UDF proposes 2 simple message properties of communication. The first (called data) is based on a number. You can decide what value 1,2,3, etc. means between your client and server. Server will react upon the value of the data field. Second, there is a string field where you can inscribe additional information on request, and where the server will respond to client request (if necessary). Here are the functions that I have wrapped around this : Func _WCD_CreateServer Func _WCD_CreateClient Func _WCD_GetServerHandle Func _WCD_IsServerAvailable Func _WCD_Send Func _WCD_WM_COPYDATA_CLIENT_HANDLER Func _WCD_Client_GetResponse Func _WCD_WM_COPYDATA_SERVER_HANDLER Func _WCD_Server_PeekRequest Func _WCD_Server_GetRequest Func _WCD_Server_IsRequestAvail Here an example of the server : #include <Constants.au3> #include <GUIConstants.au3> #include "WCD_IPC.au3" Opt ("MustDeclareVars", 1) $_WCD_Verbose = False ; make it True if you want to follow the convos. False is by default. Local $hServer = _WCD_CreateServer () Local $aReq, $iData While True If _WCD_Server_IsRequestAvail () Then $aReq = _WCD_Server_GetRequest () $iData = @extended Switch $iData Case 1 ; who are you _WCD_Send($hServer, $aReq[0], $iData, @ComputerName) Case 2 Switch Number($aReq[1]) Case 1 _WCD_Send($hServer, $aReq[0], $iData, @IPAddress1) Case 2 _WCD_Send($hServer, $aReq[0], $iData, @IPAddress2) Case 3 _WCD_Send($hServer, $aReq[0], $iData, @IPAddress3) Case 4 _WCD_Send($hServer, $aReq[0], $iData, @IPAddress4) Case Else _WCD_Send($hServer, $aReq[0], $iData, "Invalid parameter") EndSwitch EndSwitch EndIf Sleep (100) WEnd And the client : #include <Constants.au3> #include <GUIConstants.au3> #include "WCD_IPC.au3" Opt ("MustDeclareVars", 1) $_WCD_Verbose = True ; as for the server, you can decide to make client verbose or not Global $hWnd = _WCD_CreateClient ("Test WCD Client") Global $hWndServer = _WCD_GetServerHandle () _WCD_Send($hWnd, $hWndServer, 1) ; simple request - who are you ? Local $sString = WaitForResponse () ConsoleWrite ($sString & @CRLF) _WCD_Send($hWnd, $hWndServer, 2, "5") ; adding text to a more complex request $sString = WaitForResponse () ConsoleWrite ($sString & @CRLF) Func WaitForResponse () Local $sResp While _WCD_IsServerAvailable () $sResp = _WCD_Client_GetResponse () If $sResp <> "" Then Return $sResp Sleep (100) WEnd EndFunc As always, let me know if you got issues, comments, suggestions. I will be glad to answer. Version 2020-06-27 * Allows processes with different levels of privilege to communicate with each other WCD_IPC.au3

This small library includes only one function, which allows to set resizing for elements created with UDF (_GUICtrl*_Create). It works just the same as standard GUICtrlSetResizing. Also this function compatible/works with standard controls. Example: #include <GUIRichEdit.au3> #include <GUIComboBox.au3> #include 'GUICtrlSetResizingEx.au3' $hForm = GUICreate('GUICtrlSetResizingEx Example 1', 380, 330, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_THICKFRAME, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_TABSTOP), $WS_EX_COMPOSITED) $hRichEdit = _GUICtrlRichEdit_Create($hForm, 'Edit1', 5, 5, 250, 250) _GUICtrlSetResizingEx($hRichEdit, BitOR($GUI_DOCKLEFT, $GUI_DOCKRIGHT, $GUI_DOCKTOP)) $hCombo = _GUICtrlComboBox_Create($hForm, 'Item', 5, 280, 250, 50, $CBS_DROPDOWNLIST) _GUICtrlComboBox_SetCurSel($hCombo, 0) _GUICtrlSetResizingEx($hCombo, BitOR($GUI_DOCKLEFT, $GUI_DOCKRIGHT, $GUI_DOCKBOTTOM)) $iButton = GUICtrlCreateButton('Native Button', 270, 5, 100, 25) _GUICtrlSetResizingEx(-1, BitOR($GUI_DOCKRIGHT, $GUI_DOCKTOP, $GUI_DOCKSIZE)) GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE GUIDelete($hForm) Exit EndSwitch WEnd GUICtrlSetResizingEx_1.3.zip

Here is an example how to translate error message: #include <Array.au3> #include <WinApi.au3> #include <MsgBoxConstants.au3> If $IDYES = MsgBox($MB_YESNO, 'Make a decision', 'Do you want to inercept error ?') Then AddHookApi("user32.dll", "MessageBoxW", "Intercept_MessageBoxW", "int", "hwnd;wstr;wstr;uint") EndIf _Example() Func _Example() ;~ _ErrorTranslator(Default) ; check your translation ; Let's try it ; Usual message box MsgBox(0, 'Test', 'Some text') ; Cause error that would say some AutoIt shit happened, but now it wouldn't say "AutoIt" DllStructCreate("byte[123456789097]") ; The End EndFunc ;==>_Example ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func Intercept_MessageBoxW($hWnd, $sText, $sTitle, $iType) Local $aCall = DllCall("user32.dll", "int", "MessageBoxW", _ "hwnd", $hWnd, _ "wstr", _ErrorTranslator($sText), _ "wstr", StringReplace($sTitle, "AutoIt", 'Error occured in ' & @ScriptName), _ "uint", $iType) If @error Or Not $aCall[0] Then Return 0 Return $aCall[0] EndFunc ;==>Intercept_MessageBoxW ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; The magic is down below Func AddHookApi($sModuleName, $vFunctionName, $vNewFunction, $sRet = "", $sParams = "") Local Static $pImportDirectory, $hInstance Local Const $IMAGE_DIRECTORY_ENTRY_IMPORT = 1 If Not $pImportDirectory Then $hInstance = _WinAPI_GetModuleHandle(0) $pImportDirectory = ImageDirectoryEntryToData($hInstance, $IMAGE_DIRECTORY_ENTRY_IMPORT) If @error Then Return SetError(1, 0, 0) EndIf Local $iIsInt = IsInt($vFunctionName) Local $iRestore = Not IsString($vNewFunction) Local $tIMAGE_IMPORT_MODULE_DIRECTORY Local $pDirectoryOffset = $pImportDirectory Local $tModuleName Local $iInitialOffset, $iInitialOffset2 Local $iOffset2 Local $tBufferOffset2, $iBufferOffset2 Local $tBuffer, $tFunctionOffset, $pOld, $fMatch, $pModuleName, $pFuncName Local Const $PAGE_READWRITE = 0x04 While 1 $tIMAGE_IMPORT_MODULE_DIRECTORY = DllStructCreate("dword RVAOriginalFirstThunk;" & _ "dword TimeDateStamp;" & _ "dword ForwarderChain;" & _ "dword RVAModuleName;" & _ "dword RVAFirstThunk", _ $pDirectoryOffset) If Not DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk") Then ExitLoop $pModuleName = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAModuleName") $tModuleName = DllStructCreate("char Name[" & _WinAPI_StringLenA($pModuleName) & "]", $pModuleName) If DllStructGetData($tModuleName, "Name") = $sModuleName Then ; function from this module $iInitialOffset = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk") $iInitialOffset2 = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAOriginalFirstThunk") If $iInitialOffset2 = $hInstance Then $iInitialOffset2 = $iInitialOffset $iOffset2 = 0 While 1 $tBufferOffset2 = DllStructCreate("dword_ptr", $iInitialOffset2 + $iOffset2) $iBufferOffset2 = DllStructGetData($tBufferOffset2, 1) If Not $iBufferOffset2 Then ExitLoop If $iIsInt Then If BitAND($iBufferOffset2, 0xFFFFFF) = $vFunctionName Then $fMatch = True ; wanted function Else $pFuncName = $hInstance + $iBufferOffset2 + 2 ; 2 is size od "word", see line below... $tBuffer = DllStructCreate("word Ordinal; char Name[" & _WinAPI_StringLenA($pFuncName) & "]", $hInstance + $iBufferOffset2) If DllStructGetData($tBuffer, "Name") == $vFunctionName Then $fMatch = True ; wanted function EndIf If $fMatch Then $tFunctionOffset = DllStructCreate("ptr", $iInitialOffset + $iOffset2) VirtualProtect(DllStructGetPtr($tFunctionOffset), DllStructGetSize($tFunctionOffset), $PAGE_READWRITE) If @error Then Return SetError(3, 0, 0) $pOld = DllStructGetData($tFunctionOffset, 1) If $iRestore Then DllStructSetData($tFunctionOffset, 1, $vNewFunction) Else DllStructSetData($tFunctionOffset, 1, DllCallbackGetPtr(DllCallbackRegister($vNewFunction, $sRet, $sParams))) EndIf Return $pOld EndIf $iOffset2 += DllStructGetSize($tBufferOffset2) WEnd ExitLoop EndIf $pDirectoryOffset += 20 ; size of $tIMAGE_IMPORT_MODULE_DIRECTORY WEnd Return SetError(4, 0, 0) EndFunc ;==>AddHookApi Func VirtualProtect($pAddress, $iSize, $iProtection) Local $aCall = DllCall("kernel32.dll", "bool", "VirtualProtect", "ptr", $pAddress, "dword_ptr", $iSize, "dword", $iProtection, "dword*", 0) If @error Or Not $aCall[0] Then Return SetError(1, 0, 0) Return 1 EndFunc ;==>VirtualProtect Func ImageDirectoryEntryToData($hInstance, $iDirectoryEntry) ; Get pointer to data Local $pPointer = $hInstance ; Start processing passed binary data. 'Reading' PE format follows. Local $tIMAGE_DOS_HEADER = DllStructCreate("char Magic[2];" & _ "word BytesOnLastPage;" & _ "word Pages;" & _ "word Relocations;" & _ "word SizeofHeader;" & _ "word MinimumExtra;" & _ "word MaximumExtra;" & _ "word SS;" & _ "word SP;" & _ "word Checksum;" & _ "word IP;" & _ "word CS;" & _ "word Relocation;" & _ "word Overlay;" & _ "char Reserved[8];" & _ "word OEMIdentifier;" & _ "word OEMInformation;" & _ "char Reserved2[20];" & _ "dword AddressOfNewExeHeader", _ $pPointer) Local $sMagic = DllStructGetData($tIMAGE_DOS_HEADER, "Magic") ; Check if it's valid format If Not ($sMagic == "MZ") Then Return SetError(1, 0, 0) ; MS-DOS header missing. Btw 'MZ' are the initials of Mark Zbikowski in case you didn't know. ; Move pointer $pPointer += DllStructGetData($tIMAGE_DOS_HEADER, "AddressOfNewExeHeader") ; move to PE file header ; In place of IMAGE_NT_SIGNATURE structure Local $tIMAGE_NT_SIGNATURE = DllStructCreate("dword Signature", $pPointer) ; Check signature If DllStructGetData($tIMAGE_NT_SIGNATURE, "Signature") <> 17744 Then ; IMAGE_NT_SIGNATURE Return SetError(2, 0, 0) ; wrong signature. For PE image should be "PE\0\0" or 17744 dword. EndIf ; Move pointer $pPointer += 4 ; size of $tIMAGE_NT_SIGNATURE structure ; In place of IMAGE_FILE_HEADER structure ; Move pointer $pPointer += 20 ; size of $tIMAGE_FILE_HEADER structure ; Determine the type Local $tMagic = DllStructCreate("word Magic;", $pPointer) Local $iMagic = DllStructGetData($tMagic, 1) Local $tIMAGE_OPTIONAL_HEADER If $iMagic = 267 Then ; x86 version ; Move pointer $pPointer += 96 ; size of $tIMAGE_OPTIONAL_HEADER ElseIf $iMagic = 523 Then ; x64 version ; Move pointer $pPointer += 112 ; size of $tIMAGE_OPTIONAL_HEADER Else Return SetError(3, 0, 0) ; unsupported module type EndIf ; Validate input by checking available number of structures that are in the module Local Const $IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16 ; predefined value that PE modules always use (AutoIt certainly) If $iDirectoryEntry > $IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1 Then Return SetError(4, 0, 0) ; invalid input ; Calculate the offset to wanted entry (every entry is 8 bytes) $pPointer += 8 * $iDirectoryEntry ; At place of correst directory entry Local $tIMAGE_DIRECTORY_ENTRY = DllStructCreate("dword VirtualAddress; dword Size", $pPointer) ; Collect data Local $pAddress = DllStructGetData($tIMAGE_DIRECTORY_ENTRY, "VirtualAddress") If $pAddress = 0 Then Return SetError(5, 0, 0) ; invalid input ; $pAddress is RVA, add it to base address Return $hInstance + $pAddress EndFunc ;==>ImageDirectoryEntryToData Func _ErrorTranslator($sText = Default) Local Static $aErrorMessages = _ [ _ [ _ "(Paused) ", _ "" _ ], _ [ _ "AutoIt Error", _ "" _ ], _ [ _ "AutoIt has detected the stack has become corrupt.\n\nStack corruption typically occurs when either the wrong calling convention is used or when the function is called with the wrong number of arguments.\n\nAutoIt supports the __stdcall (WINAPI) and __cdecl calling conventions. The __stdcall (WINAPI) convention is used by default but __cdecl can be used instead. See the DllCall() documentation for details on changing the calling convention.", _ "" _ ], _ [ _ """EndWith"" missing ""With"".", _ "" _ ], _ [ _ "Badly formatted ""Func"" statement.", _ "" _ ], _ [ _ """With"" missing ""EndWith"".", _ "" _ ], _ [ _ "Missing right bracket ')' in expression.", _ "" _ ], _ [ _ "Missing operator in expression.", _ "" _ ], _ [ _ "Unbalanced brackets in expression.", _ "" _ ], _ [ _ "Error in expression.", _ "" _ ], _ [ _ "Error parsing function call.", _ "" _ ], _ [ _ "Incorrect number of parameters in function call.", _ "" _ ], _ [ _ """ReDim"" used without an array variable.", _ "" _ ], _ [ _ "Illegal text at the end of statement (one statement per line).", _ "" _ ], _ [ _ """If"" statement has no matching ""EndIf"" statement.", _ "" _ ], _ [ _ """Else"" statement with no matching ""If"" statement.", _ "" _ ], _ [ _ """EndIf"" statement with no matching ""If"" statement.", _ "" _ ], _ [ _ "Too many ""Else"" statements for matching ""If"" statement.", _ "" _ ], _ [ _ """While"" statement has no matching ""Wend"" statement.", _ "" _ ], _ [ _ """Wend"" statement with no matching ""While"" statement.", _ "" _ ], _ [ _ "Variable used without being declared.", _ "" _ ], _ [ _ "Array variable has incorrect number of subscripts or subscript dimension range exceeded.", _ "" _ ], _ [ _ "Variable subscript badly formatted.", _ "" _ ], _ [ _ "Subscript used on non-accessible variable.", _ "" _ ], _ [ _ "Too many subscripts used for an array.", _ "" _ ], _ [ _ "Missing subscript dimensions in ""Dim"" statement.", _ "" _ ], _ [ _ "No variable given for ""Dim"", ""Local"", ""Global"", ""Struct"" or ""Const"" statement.", _ "" _ ], _ [ _ "Expected a ""="" operator in assignment statement.", _ "" _ ], _ [ _ "Invalid keyword at the start of this line.", _ "" _ ], _ [ _ "Array maximum size exceeded.", _ "" _ ], _ [ _ """Func"" statement has no matching ""EndFunc"".", _ "" _ ], _ [ _ "Duplicate function name.", _ "" _ ], _ [ _ "Unknown function name.", _ "" _ ], _ [ _ "Unknown macro.", _ "" _ ], _ [ _ "Unable to get a list of running processes.", _ "" _ ], _ [ _ "Invalid element in a DllStruct.", _ "" _ ], _ [ _ "Unknown option or bad parameter specified.", _ "" _ ], _ [ _ "Unable to load the internet libraries.", _ "" _ ], _ [ _ """Struct"" statement has no matching ""EndStruct"".", _ "" _ ], _ [ _ "Unable to open file, the maximum number of open files has been exceeded.", _ "" _ ], _ [ _ """ContinueLoop"" statement with no matching ""While"", ""Do"" or ""For"" statement.", _ "" _ ], _ [ _ "Invalid file filter given.", _ "" _ ], _ [ _ "Expected a variable in user function call.", _ "" _ ], _ [ _ """Do"" statement has no matching ""Until"" statement.", _ "" _ ], _ [ _ """Until"" statement with no matching ""Do"" statement.", _ "" _ ], _ [ _ """For"" statement is badly formatted.", _ "" _ ], _ [ _ """Next"" statement with no matching ""For"" statement.", _ "" _ ], _ [ _ """ExitLoop/ContinueLoop"" statements only valid from inside a For/Do/While loop.", _ "" _ ], _ [ _ """For"" statement has no matching ""Next"" statement.", _ "" _ ], _ [ _ """Case"" statement with no matching ""Select""or ""Switch"" statement.", _ "" _ ], _ [ _ """EndSelect"" statement with no matching ""Select"" statement.", _ "" _ ], _ [ _ "Recursion level has been exceeded - AutoIt will quit to prevent stack overflow.", _ "" _ ], _ [ _ "Cannot make existing variables static.", _ "" _ ], _ [ _ "Cannot make static variables into regular variables.", _ "" _ ], _ [ _ "Badly formated Enum statement", _ "" _ ], _ [ _ "This keyword cannot be used after a ""Then"" keyword.", _ "" _ ], _ [ _ """Select"" statement is missing ""EndSelect"" or ""Case"" statement.", _ "" _ ], _ [ _ """If"" statements must have a ""Then"" keyword.", _ "" _ ], _ [ _ "Badly formated Struct statement.", _ "" _ ], _ [ _ "Cannot assign values to constants.", _ "" _ ], _ [ _ "Cannot make existing variables into constants.", _ "" _ ], _ [ _ "Only Object-type variables allowed in a ""With"" statement.", _ "" _ ], _ [ _ """long_ptr"", ""int_ptr"" and ""short_ptr"" DllCall() types have been deprecated. Use ""long*"", ""int*"" and ""short*"" instead.", _ "" _ ], _ [ _ "Object referenced outside a ""With"" statement.", _ "" _ ], _ [ _ "Nested ""With"" statements are not allowed.", _ "" _ ], _ [ _ "Variable must be of type ""Object"".", _ "" _ ], _ [ _ "The requested action with this object has failed.", _ "" _ ], _ [ _ "Variable appears more than once in function declaration.", _ "" _ ], _ [ _ "ReDim array can not be initialized in this manner.", _ "" _ ], _ [ _ "An array variable can not be used in this manner.", _ "" _ ], _ [ _ "Can not redeclare a constant.", _ "" _ ], _ [ _ "Can not redeclare a parameter inside a user function.", _ "" _ ], _ [ _ "Can pass constants by reference only to parameters with ""Const"" keyword.", _ "" _ ], _ [ _ "Can not initialize a variable with itself.", _ "" _ ], _ [ _ "Incorrect way to use this parameter.", _ "" _ ], _ [ _ """EndSwitch"" statement with no matching ""Switch"" statement.", _ "" _ ], _ [ _ """Switch"" statement is missing ""EndSwitch"" or ""Case"" statement.", _ "" _ ], _ [ _ """ContinueCase"" statement with no matching ""Select""or ""Switch"" statement.", _ "" _ ], _ [ _ "Assert Failed!", _ "" _ ], _ [ _ "Obsolete function/parameter.", _ "" _ ], _ [ _ "Invalid Exitcode (reserved for AutoIt internal use).", _ "" _ ], _ [ _ "Variable cannot be accessed in this manner.", _ "" _ ], _ [ _ "Func reassign not allowed.", _ "" _ ], _ [ _ "Func reassign on global level not allowed.", _ "" _ ], _ [ _ "Unable to parse line.", _ "" _ ], _ [ _ "Unable to open the script file.", _ "" _ ], _ [ _ "String missing closing quote.", _ "" _ ], _ [ _ "Badly formated variable or macro.", _ "" _ ], _ [ _ "Missing separator character after keyword.", _ "" _ ], _ [ _ "Error allocating memory.", _ "Błąd allokacji pamięci." _ ] _ ] Local Static $aErrorMessages2 = _ [ _ ["(Paused) ", ""], _ ["AutoIt Error", ""], _ ["AutoIt has detected the stack has become corrupt.\n\nStack corruption typically occurs when either the wrong calling convention is used or when the function is called with the wrong number of arguments.\n\nAutoIt supports the __stdcall (WINAPI) and __cdecl calling conventions. The __stdcall (WINAPI) convention is used by default but __cdecl can be used instead. See the DllCall() documentation for details on changing the calling convention.", ""], _ ["""EndWith"" missing ""With"".", ""], _ ["Badly formatted ""Func"" statement.", ""], _ ["""With"" missing ""EndWith"".", ""], _ ["Missing right bracket ')' in expression.", ""], _ ["Missing operator in expression.", ""], _ ["Unbalanced brackets in expression.", ""], _ ["Error in expression.", ""], _ ["Error parsing function call.", ""], _ ["Incorrect number of parameters in function call.", ""], _ ["""ReDim"" used without an array variable.", ""], _ ["Illegal text at the end of statement (one statement per line).", ""], _ ["""If"" statement has no matching ""EndIf"" statement.", ""], _ ["""Else"" statement with no matching ""If"" statement.", ""], _ ["""EndIf"" statement with no matching ""If"" statement.", ""], _ ["Too many ""Else"" statements for matching ""If"" statement.", ""], _ ["""While"" statement has no matching ""Wend"" statement.", ""], _ ["""Wend"" statement with no matching ""While"" statement.", ""], _ ["Variable used without being declared.", ""], _ ["Array variable has incorrect number of subscripts or subscript dimension range exceeded.", ""], _ ["Variable subscript badly formatted.", ""], _ ["Subscript used on non-accessible variable.", ""], _ ["Too many subscripts used for an array.", ""], _ ["Missing subscript dimensions in ""Dim"" statement.", ""], _ ["No variable given for ""Dim"", ""Local"", ""Global"", ""Struct"" or ""Const"" statement.", ""], _ ["Expected a ""="" operator in assignment statement.", ""], _ ["Invalid keyword at the start of this line.", ""], _ ["Array maximum size exceeded.", ""], _ ["""Func"" statement has no matching ""EndFunc"".", ""], _ ["Duplicate function name.", ""], _ ["Unknown function name.", ""], _ ["Unknown macro.", ""], _ ["Unable to get a list of running processes.", ""], _ ["Invalid element in a DllStruct.", ""], _ ["Unknown option or bad parameter specified.", ""], _ ["Unable to load the internet libraries.", ""], _ ["""Struct"" statement has no matching ""EndStruct"".", ""], _ ["Unable to open file, the maximum number of open files has been exceeded.", ""], _ ["""ContinueLoop"" statement with no matching ""While"", ""Do"" or ""For"" statement.", ""], _ ["Invalid file filter given.", ""], _ ["Expected a variable in user function call.", ""], _ ["""Do"" statement has no matching ""Until"" statement.", ""], _ ["""Until"" statement with no matching ""Do"" statement.", ""], _ ["""For"" statement is badly formatted.", ""], _ ["""Next"" statement with no matching ""For"" statement.", ""], _ ["""ExitLoop/ContinueLoop"" statements only valid from inside a For/Do/While loop.", ""], _ ["""For"" statement has no matching ""Next"" statement.", ""], _ ["""Case"" statement with no matching ""Select""or ""Switch"" statement.", ""], _ ["""EndSelect"" statement with no matching ""Select"" statement.", ""], _ ["Recursion level has been exceeded - AutoIt will quit to prevent stack overflow.", ""], _ ["Cannot make existing variables static.", ""], _ ["Cannot make static variables into regular variables.", ""], _ ["Badly formated Enum statement", ""], _ ["This keyword cannot be used after a ""Then"" keyword.", ""], _ ["""Select"" statement is missing ""EndSelect"" or ""Case"" statement.", ""], _ ["""If"" statements must have a ""Then"" keyword.", ""], _ ["Badly formated Struct statement.", ""], _ ["Cannot assign values to constants.", ""], _ ["Cannot make existing variables into constants.", ""], _ ["Only Object-type variables allowed in a ""With"" statement.", ""], _ ["""long_ptr"", ""int_ptr"" and ""short_ptr"" DllCall() types have been deprecated. Use ""long*"", ""int*"" and ""short*"" instead.", ""], _ ["Object referenced outside a ""With"" statement.", ""], _ ["Nested ""With"" statements are not allowed.", ""], _ ["Variable must be of type ""Object"".", ""], _ ["The requested action with this object has failed.", ""], _ ["Variable appears more than once in function declaration.", ""], _ ["ReDim array can not be initialized in this manner.", ""], _ ["An array variable can not be used in this manner.", ""], _ ["Can not redeclare a constant.", ""], _ ["Can not redeclare a parameter inside a user function.", ""], _ ["Can pass constants by reference only to parameters with ""Const"" keyword.", ""], _ ["Can not initialize a variable with itself.", ""], _ ["Incorrect way to use this parameter.", ""], _ ["""EndSwitch"" statement with no matching ""Switch"" statement.", ""], _ ["""Switch"" statement is missing ""EndSwitch"" or ""Case"" statement.", ""], _ ["""ContinueCase"" statement with no matching ""Select""or ""Switch"" statement.", ""], _ ["Assert Failed!", ""], _ ["Obsolete function/parameter.", ""], _ ["Invalid Exitcode (reserved for AutoIt internal use).", ""], _ ["Variable cannot be accessed in this manner.", ""], _ ["Func reassign not allowed.", ""], _ ["Func reassign on global level not allowed.", ""], _ ["Unable to parse line.", ""], _ ["Unable to open the script file.", ""], _ ["String missing closing quote.", ""], _ ["Badly formated variable or macro.", ""], _ ["Missing separator character after keyword.", ""], _ ["Error allocating memory.", "Błąd allokacji pamięci."] _ ] ConsoleWrite("! $sText= " & $sText & @CRLF) For $iError_idx = 0 To UBound($aErrorMessages) - 1 If $aErrorMessages[$iError_idx][0] = $sText Then $sText = $aErrorMessages[$iError_idx][1] EndIf Next If Not @Compiled And $sText = Default Then _ArrayDisplay($aErrorMessages) If Not @Compiled And $sText = Default Then _ArrayDisplay($aErrorMessages2) Return $sText EndFunc ;==>_ErrorTranslator

Here, let me then: #include <WinApi.au3> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AddHookApi("user32.dll", "MessageBoxW", "Intercept_MessageBoxW", "int", "hwnd;wstr;wstr;uint") Func Intercept_MessageBoxW($hWnd, $sText, $sTitle, $iType) Local $aCall = DllCall("user32.dll", "int", "MessageBoxW", _ "hwnd", $hWnd, _ "wstr", $sText, _ "wstr", StringReplace($sTitle, "AutoIt", @ScriptName), _ "uint", $iType) If @error Or Not $aCall[0] Then Return 0 Return $aCall[0] EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Let's try it ; Usual message box MsgBox(0, 'Test', 'Some text') ; Cause error that would say some AutoIt shit happened, but now it wouldn't say "AutoIt" DllStructCreate("byte[123456789097]") ; The End ; The magic is down below Func AddHookApi($sModuleName, $vFunctionName, $vNewFunction, $sRet = "", $sParams = "") Local Static $pImportDirectory, $hInstance Local Const $IMAGE_DIRECTORY_ENTRY_IMPORT = 1 If Not $pImportDirectory Then $hInstance = _WinAPI_GetModuleHandle(0) $pImportDirectory = ImageDirectoryEntryToData($hInstance, $IMAGE_DIRECTORY_ENTRY_IMPORT) If @error Then Return SetError(1, 0, 0) EndIf Local $iIsInt = IsInt($vFunctionName) Local $iRestore = Not IsString($vNewFunction) Local $tIMAGE_IMPORT_MODULE_DIRECTORY Local $pDirectoryOffset = $pImportDirectory Local $tModuleName Local $iInitialOffset, $iInitialOffset2 Local $iOffset2 Local $tBufferOffset2, $iBufferOffset2 Local $tBuffer, $tFunctionOffset, $pOld, $fMatch, $pModuleName, $pFuncName Local Const $PAGE_READWRITE = 0x04 While 1 $tIMAGE_IMPORT_MODULE_DIRECTORY = DllStructCreate("dword RVAOriginalFirstThunk;" & _ "dword TimeDateStamp;" & _ "dword ForwarderChain;" & _ "dword RVAModuleName;" & _ "dword RVAFirstThunk", _ $pDirectoryOffset) If Not DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk") Then ExitLoop $pModuleName = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAModuleName") $tModuleName = DllStructCreate("char Name[" & _WinAPI_StringLenA($pModuleName) & "]", $pModuleName) If DllStructGetData($tModuleName, "Name") = $sModuleName Then ; function from this module $iInitialOffset = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAFirstThunk") $iInitialOffset2 = $hInstance + DllStructGetData($tIMAGE_IMPORT_MODULE_DIRECTORY, "RVAOriginalFirstThunk") If $iInitialOffset2 = $hInstance Then $iInitialOffset2 = $iInitialOffset $iOffset2 = 0 While 1 $tBufferOffset2 = DllStructCreate("dword_ptr", $iInitialOffset2 + $iOffset2) $iBufferOffset2 = DllStructGetData($tBufferOffset2, 1) If Not $iBufferOffset2 Then ExitLoop If $iIsInt Then If BitAND($iBufferOffset2, 0xFFFFFF) = $vFunctionName Then $fMatch = True; wanted function Else $pFuncName = $hInstance + $iBufferOffset2 + 2 ; 2 is size od "word", see line below... $tBuffer = DllStructCreate("word Ordinal; char Name[" & _WinAPI_StringLenA($pFuncName) & "]", $hInstance + $iBufferOffset2) If DllStructGetData($tBuffer, "Name") == $vFunctionName Then $fMatch = True; wanted function EndIf If $fMatch Then $tFunctionOffset = DllStructCreate("ptr", $iInitialOffset + $iOffset2) VirtualProtect(DllStructGetPtr($tFunctionOffset), DllStructGetSize($tFunctionOffset), $PAGE_READWRITE) If @error Then Return SetError(3, 0, 0) $pOld = DllStructGetData($tFunctionOffset, 1) If $iRestore Then DllStructSetData($tFunctionOffset, 1, $vNewFunction) Else DllStructSetData($tFunctionOffset, 1, DllCallbackGetPtr(DllCallbackRegister($vNewFunction, $sRet, $sParams))) EndIf Return $pOld EndIf $iOffset2 += DllStructGetSize($tBufferOffset2) WEnd ExitLoop EndIf $pDirectoryOffset += 20 ; size of $tIMAGE_IMPORT_MODULE_DIRECTORY WEnd Return SetError(4, 0, 0) EndFunc Func VirtualProtect($pAddress, $iSize, $iProtection) Local $aCall = DllCall("kernel32.dll", "bool", "VirtualProtect", "ptr", $pAddress, "dword_ptr", $iSize, "dword", $iProtection, "dword*", 0) If @error Or Not $aCall[0] Then Return SetError(1, 0, 0) Return 1 EndFunc Func ImageDirectoryEntryToData($hInstance, $iDirectoryEntry) ; Get pointer to data Local $pPointer = $hInstance ; Start processing passed binary data. 'Reading' PE format follows. Local $tIMAGE_DOS_HEADER = DllStructCreate("char Magic[2];" & _ "word BytesOnLastPage;" & _ "word Pages;" & _ "word Relocations;" & _ "word SizeofHeader;" & _ "word MinimumExtra;" & _ "word MaximumExtra;" & _ "word SS;" & _ "word SP;" & _ "word Checksum;" & _ "word IP;" & _ "word CS;" & _ "word Relocation;" & _ "word Overlay;" & _ "char Reserved[8];" & _ "word OEMIdentifier;" & _ "word OEMInformation;" & _ "char Reserved2[20];" & _ "dword AddressOfNewExeHeader", _ $pPointer) Local $sMagic = DllStructGetData($tIMAGE_DOS_HEADER, "Magic") ; Check if it's valid format If Not ($sMagic == "MZ") Then Return SetError(1, 0, 0) ; MS-DOS header missing. Btw 'MZ' are the initials of Mark Zbikowski in case you didn't know. ; Move pointer $pPointer += DllStructGetData($tIMAGE_DOS_HEADER, "AddressOfNewExeHeader") ; move to PE file header ; In place of IMAGE_NT_SIGNATURE structure Local $tIMAGE_NT_SIGNATURE = DllStructCreate("dword Signature", $pPointer) ; Check signature If DllStructGetData($tIMAGE_NT_SIGNATURE, "Signature") <> 17744 Then ; IMAGE_NT_SIGNATURE Return SetError(2, 0, 0) ; wrong signature. For PE image should be "PE\0\0" or 17744 dword. EndIf ; Move pointer $pPointer += 4 ; size of $tIMAGE_NT_SIGNATURE structure ; In place of IMAGE_FILE_HEADER structure ; Move pointer $pPointer += 20 ; size of $tIMAGE_FILE_HEADER structure ; Determine the type Local $tMagic = DllStructCreate("word Magic;", $pPointer) Local $iMagic = DllStructGetData($tMagic, 1) Local $tIMAGE_OPTIONAL_HEADER If $iMagic = 267 Then ; x86 version ; Move pointer $pPointer += 96 ; size of $tIMAGE_OPTIONAL_HEADER ElseIf $iMagic = 523 Then ; x64 version ; Move pointer $pPointer += 112 ; size of $tIMAGE_OPTIONAL_HEADER Else Return SetError(3, 0, 0) ; unsupported module type EndIf ; Validate input by checking available number of structures that are in the module Local Const $IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16 ; predefined value that PE modules always use (AutoIt certainly) If $iDirectoryEntry > $IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1 Then Return SetError(4, 0, 0) ; invalid input ; Calculate the offset to wanted entry (every entry is 8 bytes) $pPointer += 8 * $iDirectoryEntry ; At place of correst directory entry Local $tIMAGE_DIRECTORY_ENTRY = DllStructCreate("dword VirtualAddress; dword Size", $pPointer) ; Collect data Local $pAddress = DllStructGetData($tIMAGE_DIRECTORY_ENTRY, "VirtualAddress") If $pAddress = 0 Then Return SetError(5, 0, 0) ; invalid input ; $pAddress is RVA, add it to base address Return $hInstance + $pAddress EndFuncedit: because this is better than before.