autohotkey 辅助工具

autohotkey 辅助工具

AHKV1的

1

;AHK v1.1 x64/x32 compatible update by jeeswg of:
;Get Info from Context Menu - Scripts and Functions - AutoHotkey Community
;https://autohotkey.com/board/topic/19754-get-info-from-context-menu/
 
;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         micha
;
; Script Function:
;	Demonstrates how to retrieve infos from a context/ popup menu
;
 
/*
This is the struct we are using.
typedef struct tagMENUITEMINFO {
	UINT    cbSize;
	UINT    fMask;
	UINT    fType;
	UINT    fState;
	UINT    wID;
	HMENU   hSubMenu;
	HBITMAP hbmpChecked;
	HBITMAP hbmpUnchecked;
	ULONG_PTR dwItemData;
	LPTSTR  dwTypeData;
	UINT    cch;
	HBITMAP hbmpItem;
} MENUITEMINFO, *LPMENUITEMINFO;
 
*/
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
#Persistent
RunAsAdmin() 
SetTimer, Demo, 500
return
Demo:
;constants
MFS_ENABLED = 0
MFS_CHECKED = 8
MFS_DEFAULT = 0x1000
MFS_DISABLED = 2
MFS_GRAYED = 1
MFS_HILITE = 0x80
;MFS_UNCHECKED = 0
;MFS_UNHILITE = 0
;Get mouse position and handle to wnd under the mouse cursor
MouseGetPos, MouseScreenX, MouseScreenY, MouseWindowUID, MouseControlID
WinGet,ControlHwnd, ID,ahk_id %MouseWindowUID%
;Get count of menu items
ContextMenCnt := GetContextMenuCount(ControlHwnd)
if ContextMenCnt < 1
{
	Tooltip,
	return
}
TooltipText =
;Read info for each menu item
loop, %ContextMenCnt%
{
	IsEnabled := GetContextMenuState(ControlHwnd, a_index-1)
	{
		CurrentText =
		;~ if IsEnabled = 0
		;~ CurrentText = %CurrentText% Enabled
		;~ if (IsEnabled & MFS_CHECKED)
		;~ CurrentText = %CurrentText% Checked
		;~ if (IsEnabled & MFS_DEFAULT)
		;~ CurrentText = %CurrentText% Default
		;~ if (IsEnabled & MFS_DISABLED)
		;~ CurrentText = %CurrentText% Disabled
		;~ if (IsEnabled & MFS_GRAYED)
		;~ CurrentText = %CurrentText% Grayed
		;~ if (IsEnabled & MFS_HILITE)
		;~ CurrentText = %CurrentText% Highlight
		;~ TooltipText = %TooltipText%%a_index%:%CurrentText%`n
		if (IsEnabled & MFS_HILITE)
        {
		CurrentText := GetContextMenuID(ControlHwnd, a_index-1) . A_Tab . GetContextMenuText(ControlHwnd, a_index-1)
        TooltipText := CurrentText    
		}
	}
}
;~ TextText =
;~ loop, %ContextMenCnt%
;~ {
	;~ StrSize := GetContextMenuText(ControlHwnd, a_index-1)
	;~ nID := GetContextMenuID(ControlHwnd, a_index-1)
	;~ TextText = %TextText%%a_index%:%StrSize%-ID=%nID%`n
;~ }
CoordMode, Tooltip, Screen
Tooltip, %TooltipText%---`n%TextText%, 0, 0
return
/***************************************************************
* returns the count of menu items
***************************************************************
*/
GetContextMenuCount(hWnd)
{
	WinGetClass, WindowClass, ahk_id %hWnd%
	;All popups should have the window class #32768
	if WindowClass <> #32768
	{
		return 0
	}
	; Retrieve menu handle from window
	SendMessage, 0x01E1, , , , ahk_id %hWnd%
	;Errorlevel is set by SendMessage. It contains the handle to the menu
	hMenu := errorlevel
	menuitemcount:=DllCall("GetMenuItemCount", Ptr,hMenu)
	Return, menuitemcount
}
/***************************************************************
* returns the state of a menu entry
***************************************************************
*/
GetContextMenuState(hWnd, Position)
{
	WinGetClass, WindowClass, ahk_id %hWnd%
	if WindowClass <> #32768
	{
		return -1
	}
	SendMessage, 0x01E1, , , , ahk_id %hWnd%
	;Errorlevel is set by SendMessage. It contains the handle to the menu
	hMenu := errorlevel
	;We need to allocate a struct
	VarSetCapacity(MenuItemInfo, 60, 0)
	;Set Size of Struct to the first member
	NumPut(A_PtrSize=8?80:48, MenuItemInfo, 0, "UInt")
	;Get only Flags from dllcall GetMenuItemInfo MIIM_TYPE = 1
	NumPut(1, MenuItemInfo, 4, "UInt")
	;GetMenuItemInfo: Handle to Menu, Index of Position, 0=Menu identifier / 1=Index
	InfoRes := DllCall("user32.dll\GetMenuItemInfo", Ptr,hMenu, UInt,Position, Int,1, Ptr,&MenuItemInfo)
	InfoResError := errorlevel
	LastErrorRes := DllCall("GetLastError", UInt)
	if InfoResError <> 0
	return -1
	if LastErrorRes != 0
	return -1
	;Get Flag from struct
	GetMenuItemInfoRes := NumGet(MenuItemInfo, 12, "UInt")
	/*
	IsEnabled = 1
	if GetMenuItemInfoRes > 0
	IsEnabled = 0
	return IsEnabled
	*/
	return GetMenuItemInfoRes
}
/***************************************************************
* returns the ID of a menu entry
***************************************************************
*/
GetContextMenuID(hWnd, Position)
{
	WinGetClass, WindowClass, ahk_id %hWnd%
	if WindowClass <> #32768
	{
		return -1
	}
	SendMessage, 0x01E1, , , , ahk_id %hWnd%
	;Errorlevel is set by SendMessage. It contains the handle to the menu
	hMenu := errorlevel
	;UINT GetMenuItemID(          HMENU hMenu,    int nPos);
	InfoRes := DllCall("user32.dll\GetMenuItemID", Ptr,hMenu, Int,Position, UInt)
	InfoResError := errorlevel
	LastErrorRes := DllCall("GetLastError", UInt)
	if InfoResError <> 0
	return -1
	if LastErrorRes != 0
	return -1
	return InfoRes
}
/***************************************************************
* returns the text of a menu entry (standard windows context menus only!!!)
***************************************************************
*/
GetContextMenuText(hWnd, Position)
{
	WinGetClass, WindowClass, ahk_id %hWnd%
	if WindowClass <> #32768
	{
		return -1
	}
	SendMessage, 0x01E1, , , , ahk_id %hWnd%
	;Errorlevel is set by SendMessage. It contains the handle to the menu
	hMenu := errorlevel
	;We need to allocate a struct
	VarSetCapacity(MenuItemInfo, 200, 0)
	;Set Size of Struct (48) to the first member
	NumPut(A_PtrSize=8?80:48, MenuItemInfo, 0, "UInt")
	;Retrieve string MIIM_STRING = 0x40 = 64 (/ MIIM_TYPE = 0x10 = 16)
	NumPut(64, MenuItemInfo, 4, "UInt")
	;Set type - Get only size of string we need to allocate
	;NumPut(0, MenuItemInfo, 8, "UInt")
	;GetMenuItemInfo: Handle to Menu, Index of Position, 0=Menu identifier / 1=Index
	InfoRes := DllCall("user32.dll\GetMenuItemInfo", Ptr,hMenu, UInt,Position, Int,1, Ptr,&MenuItemInfo)
	if InfoRes = 0
	return -1
	InfoResError := errorlevel
	LastErrorRes := DllCall("GetLastError", UInt)
	if InfoResError <> 0
	return -1
	if LastErrorRes <> 0
	return -1
	;Get size of string from struct
	GetMenuItemInfoRes := NumGet(MenuItemInfo, A_PtrSize=8?64:40, "UInt")
	;If menu is empty return
	If GetMenuItemInfoRes = 0
	return "{Empty String}"
	;+1 should be enough, we'll use 2
	GetMenuItemInfoRes += 2
	;Set capacity of string that will be filled by windows
	VarSetCapacity(PopupText, GetMenuItemInfoRes, 0)
	;Set Size plus 0 terminator + security ;-)
	NumPut(GetMenuItemInfoRes, MenuItemInfo, A_PtrSize=8?64:40, "UInt")
	NumPut(&PopupText, MenuItemInfo, A_PtrSize=8?56:36, "Ptr")
	InfoRes := DllCall("user32.dll\GetMenuItemInfo", Ptr,hMenu, UInt,Position, Int,1, Ptr,&MenuItemInfo)
	if InfoRes = 0
	return -1
	InfoResError := errorlevel
	LastErrorRes := DllCall("GetLastError", UInt)
	if InfoResError <> 0
	return -1
	if LastErrorRes <> 0
	return -1
	return PopupText
}
;PrintScreen::reload
RunAsAdmin() {
	full_command_line := DllCall("GetCommandLine", "str")
	if not (A_IsAdmin or RegExMatch(full_command_line, " /restart(?!\S)"))
	{
		try
		{
			if A_IsCompiled
				Run *RunAs "%A_ScriptFullPath%" /restart
			else
				Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
		}
		ExitApp
	}
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246

2

;Reveal information on windows, controls, etc.
;by toralf
;requires AHK 1.0.44.04
;www.autohotkey.com/forum/topic8976.html
 
ScriptName := "AHK 窗口信息捕获 1.7"
,左键:="LButton"
,中键:="MButton"
,右键:="RButton"
; License: Attribution-NonCommercial-ShareAlike 2.5 licence from Creative Commons
; for details see: http://creativecommons.org/licenses/by-nc-sa/2.5/legalcode
;
; export code by sosaited www.autohotkey.com/forum/viewtopic.php?t=8732&p=53372#53372
; idea and lot of code of frame drawing by shimanov
; several ideas from Chris and other users of the AHK forum
 
; initial ideas taken from these scripts:
; Ahk Window Spy 1.3.3 by Decarlo www.autohotkey.com/forum/viewtopic.php?t=4679
; WinInfo Menu by Jon www.autohotkey.com/forum/viewtopic.php?t=8617
 
;changes since 1.6
; - added a small gap in the mouse picker grid to identify the center (thanks fade2gray)
; - adjusted groupbox size and tab size
; - added reset of picker to default color on dimensional change
 
;changes since 1.5
; - Groupboxes with bold text have been set -wrap, to fix line breaks on some windows themes
; - BGR is made default for color picker
; - update is stopped when mouse moves over its own gui, allowing easier graping of data, since no Pause key needs to be pressed.
 
;changes since 1.4
; - "H" replaced with Hwnd; "P" and "S" with "Pos" and "Size" on advanced tab for Control
; - GroupBox names have bold font
; - Mouse color picker is only updated when mouse tab is visible. Otherwise set to gray
; - set default for color picker to 15x15, since it only influences CPU load when the mouse tab is visible
; - controls list items are only updated when advanced tab is visible. Otherwise set to ">>>not updated<<<""
; - windows statusbar text is only updated when advanced tab is visible. Otherwise set to ">>>not updated<<<""
; - fast/slow visible/hidden window text are only updated when advanced tab is visible. Otherwise set to ">>>not updated<<<""
;todo
; - Window Info should be tested on Windows 9x
 
;changes since 1.3
; - last tab gets remembered between starts
; - large list hides automatically when tab is not "Advanced"
; - by default not rectangle is drawn around controls
; - gui starts NoActivate
; - fixed a problem with hidden gui and pause key
; - reduced impact in hidden mode on CPU load to nearly 0
; - to support 800x600 screen resolutions the advanced tab initial height is 600
; - instead of auto-update, update of data can be done on mouse click (button can be L/M/R, default M)
; - when started with "HideGui" turned on: GUI starts hidden, after 500 ms data is collected and GUI shown
; - changed licence to Attribution-NonCommercial-ShareAlike 2.5 licence from Creative Commons
 
;changes since 1.2
; - added: Control handle to advanced and list view
; - improved: fixed some spelling mistakes
; - fixed: option "Show tooltip at cursor" had no effect
; - fixed: option "Show tooltip at cursor" wasn't remembered between sessions
; - improved: For all DllCall's the types are put in quotes
; - changed: coordinates and sizes will have a space after the comma when put on clipboard
; - changed: the number of characters in the GUI for the list items is limited to 200. Clipboard will receive all
; - changed: "Introduction - Please Read" button moved to new info tab
; - changed: Renamed "active control in window" to "focused control in window".
; - fixed: Window Info refused to minimize while the right-side list was displayed.
; - changed: While Window Info is minimized, updating of data is turned off
; - fixed: Coordinates of GUI got stored when GUI got closed minimized
 
;changes since 1.1
; - added: OnExit routine that cleans up frame gui if script exits unexpectedly
; - changed: Tooltip of control frame disappears when mouse gets moved onto it.
; - changed: font size of GUI is now 6pt
 
;changes since 1.0
; - improved: specified the font for the GUI, MS Sans Serif, 8 point
; - changed: for some OS (WIN_2000,WIN_NT4,WIN_95,WIN_98,WIN_ME) the icon is changed to ID 57
; - improved: small features that simplify maintenance
;        + combine update routines
;        + simplify options actions
;        + simplify Pause Key actions
;        + reorder code
; - improved: new method to capture fast/slow visible/hidden window text (Thanks Chris)
; - changed: Gui (advanced) now holds fields for fast/slow visible/hidden window text
; - added: option to switch color picker between RGB and BGR
; - improved: color picker only updates when mouse moves or color below mouse changes. This reduces jittery update.
; - changed: Color picker now has a 15x15 color matrix
; - changed: checkbox "Show right List" changed to button that alternates between "More Info >>" and "<< Less Info".
; - added: check for minium required AHK version
; - added: new option to turn auto-update automatically ON when Gui gets inactive (if it had been turned off (by pause or by the large list))
 
/*
Requests:
[quote="Chris"]Sometimes pressing Window Info's minimize button fails to work.[/quote]I still can't reproduce it. I tried it 20 times any each time the window minimized
 
[quote="Chris"]I've made a note to test it on Win9x prior to distribution.[/quote]Please do. Or is there someone else out there to do the testing. Would be very much appreaciated.
 
[quote="Chris"]Minor typos in source code comments: "or less or" should be "or else" in 2 places.[/quote]The two cases where "or less or" is written are actually correct.
*/
 
AHK_version := "1.0.44.04"
if not A_IsCompiled      ;if it is a script
    CheckAHKVersion(AHK_version)   ;check if minimum AHK Version is installed
 
InformationText =
(LTrim
    This Gui will reveal information on windows, controls, etc.
    This software is under the GNU General Public License for details see: www.autohotkey.com/docs/license.htm
 
    Move your mouse over the area of interest and see the data in this GUI changing accordingly (auto-update). The auto-update stops when this GUI becomes the active one. To achieve this without moving the mouse you can use Alt+Tab to change to %ScriptName%. Or you can use a hotkey to turn the auto-update off. The default hotkey is the Pause key.
 
    When the data for the large list is collected (advanced tab), the auto-update of the data is stopped automatically to allow you to work with the data. Use the toggle hotkey (see below) to create a new snapshot of data. Or turn on the option, to start updating again when the GUI gets deactivated.
 
    These shortcuts exist:
    =================
 
    => Toggle Auto-Update Hotkey (default: Pause):
    ---------------------------------------------------------------------------
    Toggles (start/stop) auto-updating data in GUI OR creates a new snapshot of data when auto-update has been stopped automatically.
 
    => Left-Mouse Button:
    ---------------------------------------
    Copies the content of a control to the clipboard. This is achieved in the code with OnMessage(), thus it should not interfere with any of your own hotkeys.
 
    => Middle-Mouse Button:
    ---------------------------------------
    Toggles AlwaysOnTop status of this window. Click inside the window, it will not work on the titlebar. This is achieved in the code with OnMessage(), thus it should not interfere with any of your own hotkeys.
 
    => Win+s hotkey combination:
    ------------------------------------------------
    Exports data to file. It will only work, when auto-update has been stopped.
 
    Remarks:
    =======
    - You can change the toggle auto-update hotkey in the advanced options (you will not see keys that do not produces visible characters, e.g. the default Pause key). A key has to be specified. A single Ctrl, Shift, Alt, Win key or their combinations are not allowed.
    - The advanced option "Hide/Show Gui" allows you to create snapshots of data while the GUI is hidden. The toggle auto-update hotkey will toggle the visibility of the GUI. Just before the GUI is shown again the data gets collected and the GUI updated.
    - Log to file only works when auto-update has been stopped.
    - Specify a file name you want to save the data too. Insert #'s into the filename, if you want %ScriptName% to number the files automatically.
)
 
#SingleInstance force
;set working dir, in case this script is called from some other script in a different dir
SetWorkingDir, %A_ScriptDir%
 
gosub, ReadIni
gosub, CreateTrayMenu
gosub, BuildGui
 
WindowControlTextSize = 32767  ; Must be 32767 or less or it won't work on Windows 95.
VarSetCapacity(WindowControlText, WindowControlTextSize)
ControlTextSize = 512          ; Must be 32767 or less or it won't work on Windows 95.
VarSetCapacity(ControlText, ControlTextSize)
 
;activate auto-update toggle hotkey
Hotkey, %HtkPauseAction%, PauseAction, On
 
;toggle AOT attribute of GUI with middle mouse click
WM_MButtonDOWN = 0x207
OnMessage(WM_MBUTTONDOWN, "ToggleOnTopGui1")
 
;initialize Save hotkey, so it can be easily turned on/off
Hotkey, #s, BtnSaveExport, Off
;initialize update on click hotkey, so it can be easily turned on/off
Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%
Hotkey, ~%CbbHtkUpdate%, UpdateOnClick, Off
Hotkey, IfWinNotActive
 
;activate update on click
if RadUpdateOnClick {
    Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%
    Hotkey, ~%CbbHtkUpdate%, On
    Hotkey, IfWinNotActive
}else{
    ;activate auto-start updating at Gui inactivity
    WM_ACTIVATE = 0x6
    if ChkAutoStartUpdate
        OnMessage(WM_ACTIVATE, "WM_ACTIVATE")
 
    ;set timer once, so that it knows its interval and can be easily turned on/off
    UpdateIsStopped := True
    SetTimer, UpdateInfo, %CbbUpdateInterval%
    if ChkHideGui {
        Sleep, 500
        gosub, PauseAction
        ToolTip("暂停以隐藏界面", 2000)
    }else
        UpdateIsStopped := False
}
 
;activate copy-on-click for left mouse click
WM_LButtonDOWN = 0x201
if ChkCopyToCB
OnMessage(WM_LBUTTONDOWN, "WM_LBUTTONDOWN")
 
;set static parameters to draw frames around control and window
SysGet, ScreenWidth, 78   ; get Screen size from virtual Screen
SysGet, ScreenHeight, 79
frame_cc = 0x0000FF       ;set color for frame, 0x00BBGGRR
frame_cw = 0x00FF00       ;set color for frame, 0x00BBGGRR
frame_t  = 2              ;set line thickness for frame, 1-10
 
gosub, ToogleExportActions
gosub, PrepareFrameDraw  ;create or destroy frame drawing objects
 
OnExit, ExitSub
return
;######## End of Auto-Exec-Section
 
ExitSub:
gosub, CleanUpFrameGui
Sleep,50
ExitApp
return
 
ReadIni:
    SplitPath, A_ScriptName, , , , OutNameNoExt
    IniFile = %OutNameNoExt%.ini
 
    IniRead, Gui1Pos                 , %IniFile%, Settings, Gui1Pos                , x0 y0
    IniRead, Gui1AOTState            , %IniFile%, Settings, Gui1AOTState           , 1
    IniRead, Tab1                    , %IniFile%, Settings, Tab1                   , 1
    IniRead, RadWindow               , %IniFile%, Settings, RadWindow              , 2
    IniRead, RadControl              , %IniFile%, Settings, RadControl             , 2
    IniRead, SelectedRadList         , %IniFile%, Settings, SelectedRadList        , 1
    IniRead, ChkShowList             , %IniFile%, Settings, ChkShowList            , 0
    IniRead, HtkPauseAction          , %IniFile%, Settings, HtkPauseAction         , Pause
    IniRead, ChkCopyToCB             , %IniFile%, Settings, ChkCopyToCB            , 1
    IniRead, ChkHideGui              , %IniFile%, Settings, ChkHideGui             , 0
    IniRead, ChkUseSaveHotkey        , %IniFile%, Settings, ChkUseSaveHotkey       , 0
    IniRead, ChkExportMousePosScreen , %IniFile%, Export  , ChkExportMousePosScreen, 1
    IniRead, ChkExportMousePosAWin   , %IniFile%, Export  , ChkExportMousePosAWin  , 0
    IniRead, ChkExportMousePosWin    , %IniFile%, Export  , ChkExportMousePosWin   , 1
    IniRead, ChkExportMousePointer   , %IniFile%, Export  , ChkExportMousePointer  , 0
    IniRead, ChkExportMouseColorRGB  , %IniFile%, Export  , ChkExportMouseColorRGB , 0
    IniRead, ChkExportMouseColorHex  , %IniFile%, Export  , ChkExportMouseColorHex , 0
    IniRead, ChkExportCtrlText       , %IniFile%, Export  , ChkExportCtrlText      , 1
    IniRead, ChkExportCtrlClass      , %IniFile%, Export  , ChkExportCtrlClass     , 1
    IniRead, ChkExportCtrlPos        , %IniFile%, Export  , ChkExportCtrlPos       , 0
    IniRead, ChkExportCtrlSize       , %IniFile%, Export  , ChkExportCtrlSize      , 0
    IniRead, ChkExportCtrlListItems  , %IniFile%, Export  , ChkExportCtrlListItems , 0
    IniRead, ChkExportWinTitle       , %IniFile%, Export  , ChkExportWinTitle      , 1
    IniRead, ChkExportWinPos         , %IniFile%, Export  , ChkExportWinPos        , 0
    IniRead, ChkExportWinSize        , %IniFile%, Export  , ChkExportWinSize       , 0
    IniRead, ChkExportWinClass       , %IniFile%, Export  , ChkExportWinClass      , 1
    IniRead, ChkExportWinProcess     , %IniFile%, Export  , ChkExportWinProcess    , 1
    IniRead, ChkExportWinUID         , %IniFile%, Export  , ChkExportWinUID        , 0
    IniRead, ChkExportWinPID         , %IniFile%, Export  , ChkExportWinPID        , 0
    IniRead, ChkExportWinStatusText  , %IniFile%, Export  , ChkExportWinStatusText , 1
    IniRead, ChkExportWinText        , %IniFile%, Export  , ChkExportWinText       , 1
    IniRead, ChkExportLargeList      , %IniFile%, Export  , ChkExportLargeList     , 1
    IniRead, EdtExportFile           , %IniFile%, Export  , EdtExportFile          , AHK_Window_Info_Data_###.txt
    IniRead, ChkExportAutoNumber     , %IniFile%, Export  , ChkExportAutoNumber    , 1
    IniRead, ChkExportAppend         , %IniFile%, Export  , ChkExportAppend        , 0
    IniRead, ChkShowInfoToolTip      , %IniFile%, Advanced, ChkShowInfoToolTip     , 1
    IniRead, ChkDrawRectCtrl         , %IniFile%, Advanced, ChkDrawRectCtrl        , 0
    IniRead, ChkDrawRectWin          , %IniFile%, Advanced, ChkDrawRectWin         , 0
    IniRead, ChkTtpMaster            , %IniFile%, Advanced, ChkTtpMaster           , 0
    IniRead, ChkTtpMSPos             , %IniFile%, Advanced, ChkTtpMSPos            , 0
    IniRead, ChkTtpMWPos             , %IniFile%, Advanced, ChkTtpMWPos            , 1
    IniRead, ChkTtpMColor            , %IniFile%, Advanced, ChkTtpMColor           , 1
    IniRead, ChkTtpCClass            , %IniFile%, Advanced, ChkTtpCClass           , 1
    IniRead, ChkTtpCPos              , %IniFile%, Advanced, ChkTtpCPos             , 0
    IniRead, ChkTtpCSize             , %IniFile%, Advanced, ChkTtpCSize            , 0
    IniRead, ChkTtpWClass            , %IniFile%, Advanced, ChkTtpWClass           , 1
    IniRead, ChkTtpWTitle            , %IniFile%, Advanced, ChkTtpWTitle           , 1
    IniRead, CbbUpdateInterval       , %IniFile%, Advanced, CbbUpdateInterval      , 100
    IniRead, CbbColorPickDim         , %IniFile%, Advanced, CbbColorPickDim        , 15x15
    IniRead, RadColorPick            , %IniFile%, Advanced, RadColorPick           , 2
    IniRead, ChkAutoStartUpdate      , %IniFile%, Advanced, ChkAutoStartUpdate     , 1
    IniRead, CbbHtkUpdate            , %IniFile%, Advanced, CbbHtkUpdate           , MButton
    IniRead, RadUpdateOnClick        , %IniFile%, Advanced, RadUpdateOnClick       , 0
    IniRead, RadUpdateAuto           , %IniFile%, Advanced, RadUpdateAuto          , 1
return
 
CreateTrayMenu:
    ;location of icon file
    IconFile := A_WinDir "\system" iif(A_OSType = "WIN32_WINDOWS","","32") "\shell32.dll"
    ;create traybar menu
    ;icon for taskbar and for proces in task manager
    if A_OSVersion in WIN_2000,WIN_NT4,WIN_95,WIN_98,WIN_ME
        Menu, Tray, Icon, %IconFile%, 57
    else
        Menu, Tray, Icon, %IconFile%, 172
    Menu, Tray, NoStandard
    Menu, Tray, Tip, %ScriptName%
    Menu, Tray, Add, 显示, GuiShow
    Menu, Tray, Default, 显示
    Menu, Tray, Add, 退出, GuiClose
    Menu, Tray, Click, 1
return
 
GuiShow:
    Gui, 1:Show                   ;show window again if it has been hidden
return
 
BuildGui:
    GuiIsVisible := False
    Gui, 1: +Resize +LastFound
    ;~ Gui, 1: +Resize +LastFound
    Gui1UniqueID := WinExist()
    Gui, 1:Font, s10, MS Sans Serif
    Gui, 1:Margin, 0, 0
    ;~ Gui, 1:Add, Tab, w287 h145 vTab1 gTab1 AltSubmit -Wrap , 简洁|高级|鼠标|选项|信息
    Gui, 1:Add, Tab, vTab1 gTab1 AltSubmit -Wrap , 简洁(&S)|高级(&V)|鼠标(&M)|选项(&O)|信息(&I)
        Gui, 1:Tab, 简洁
            Gui, 1:Add, Text, x5 y28 , 窗口标题
            Gui, 1:Add, Edit, x+2 yp-3 w211 vEdtEasyWindowTitle,
            ;~ Gui, 1:Add, Edit, x+2 yp-3 w211 vEdtEasyWindowTitle,
 
            Gui, 1:Add, Text, x5 y+5, 窗口类(Class)
            Gui, 1:Add, Edit, x+2 yp-3 w206 vEdtEasyWindowClass,
 
            Gui, 1:Add, Text, x5 y+5, 控件(ClassNN)
            Gui, 1:Add, Edit, x+2 yp-3 w196 vEdtEasyControlClass,
 
            Gui, 1:Add, Text, x5 y+5, 控件文本(Text)
            Gui, 1:Add, Edit, x+2 yp-3 w216 vEdtEasyControlText,
 
            Gui, 1:Add, Text, x5 y+5, 鼠标位置(相对窗口)
            Gui, 1:Add, Edit, x+2 yp-3 w110 vEdtEasyMousePosWin,
 
        Gui, 1:Tab, 高级
            Gui, 1:Add, Text, x5 y28 Section, 鼠标位置(相对窗口)
            Gui, 1:Add, Edit, x+2 yp-3 w80 vEdtDataMousePosWin,
 
            Gui, 1:Add, Button, x+28 yp-1 vBtnShowList gBtnShowList -Wrap, % iif(ChkShowList,"<< Less Info","More Info >>")
 
            Gui, 1:Font, bold
            Gui, 1:Add, GroupBox, xs w274 h114 -wrap, 控件
            Gui, 1:Font, normal
            Gui, 1:Add, Text, xs+4 yp+18, 文本
            Gui, 1:Add, Edit, x+2 yp-3 w104 vEdtControlText,
 
            Gui, 1:Add, Text, x+5 yp+3, ClassNN
            Gui, 1:Add, Edit, x+2 yp-3 w91 vEdtControlClass,
 
            Gui, 1:Add, Text, xs+4 y+5, 位置
            Gui, 1:Add, Edit, x+2 yp-3 w60 vEdtControlPos,
 
            Gui, 1:Add, Text, x+5 yp+3, 尺寸
            Gui, 1:Add, Edit, x+2 yp-3 w65 vEdtControlSize,
 
            Gui, 1:Add, Text, x+5 yp+3, Hwnd
            Gui, 1:Add, Edit, x+2 yp-3 w59 vEdtControlHwnd,
 
            Gui, 1:Add, Text, xs+4 y+3, 列表`n项目
            Gui, 1:Add, Edit, x+4 r2 w237 vEdtListItems,
 
            Gui, 1:Font, bold
            Gui, 1:Add, GroupBox, xs w274 h492 -wrap vGrbAdvancedWindow, 窗口
            Gui, 1:Font, normal
            Gui, 1:Add, Text, xs+4 yp+18 , 标题
            Gui, 1:Add, Edit, x+2 yp-3 w244 vEdtWindowTitle,
 
            Gui, 1:Add, Text, xs+4 y+5, 位置
            Gui, 1:Add, Edit, x+2 yp-3 w88 vEdtWindowPos,
 
            Gui, 1:Add, Text, x+5 yp+3, 大小
            Gui, 1:Add, Edit, x+2 yp-3 w112 vEdtWindowSize,
 
            Gui, 1:Add, Text, xs+4 y+5, 类
            Gui, 1:Add, Edit, x+2 yp-3 w100 vEdtWindowClass,
 
            Gui, 1:Add, Text, x+5 yp+3, 进程
            Gui, 1:Add, Edit, x+2 yp-3 w94 vEdtWindowProcess,
 
            Gui, 1:Add, Text, xs+4 y+5, Unique ID
            Gui, 1:Add, Edit, x+2 yp-3 w77 vEdtWindowUID,
 
            Gui, 1:Add, Text, x+5 yp+3, 进程 ID
            Gui, 1:Add, Edit, x+2 yp-3 w80 vEdtWindowPID,
 
            Gui, 1:Add, Text, xs+4 y+3, 状态栏文本 (栏# - 文本)
            Gui, 1:Add, ListBox, xs+4 y+2 r4 w266 vLsbStatusbarText,
 
            Gui, 1:Add, Text, xs+4 y+3 Section, 快速可视文本
            Gui, 1:Add, Edit, y+2 r6 w132 vEdtWindowTextFastVisible,
 
            Gui, 1:Add, Text, x+2 ys, 快速隐藏文本
            Gui, 1:Add, Edit, y+2 r6 w132 vEdtWindowTextFastHidden,
 
            Gui, 1:Add, Text, xs y+3 Section vTxtWindowTextSlowVisible, 慢速可视文本
            Gui, 1:Add, Edit, y+2 r6 w132 vEdtWindowTextSlowVisible,
 
            Gui, 1:Add, Text, x+2 ys vTxtWindowTextSlowHidden, 慢速隐藏文本
            Gui, 1:Add, Edit, y+2 r6 w132 vEdtWindowTextSlowHidden,
 
        Gui, 1:Tab, 鼠标
            Gui, 1:Add, Text, x5 y28, 鼠标指针相关数据
            Gui, 1:Add, Text, x5 y+5, 窗口
            Gui, 1:Add, Edit, x+2 yp-3 w106 vEdtMousePosWin,
 
            Gui, 1:Add, Text, x+5 yp+3, 屏幕
            Gui, 1:Add, Edit, x+2 yp-3 w88 vEdtMousePosScreen,
 
            Gui, 1:Add, Text, x5 y+5, 激活窗口
            Gui, 1:Add, Edit, x+2 yp-3 w73 vEdtMousePosAWin,
 
            Gui, 1:Add, Text, x+5 yp+3, 指针
            Gui, 1:Add, Edit, x+2 yp-3 w92 vEdtMousePointer,
 
            Gui, 1:Add, Text, x5 y+5, RGB 颜色
            Gui, 1:Add, Edit, x+2 yp-3 w95 vEdtMouseColorRGB,
 
            Gui, 1:Add, Text, x+5 yp+3, RGB 颜色
            Gui, 1:Add, Edit, x+2 yp-3 w72 vEdtMouseColorHex,
 
            Gui, 1:Font, bold
            Gui, 1:Add, GroupBox, x5 y+10 Section w274 h305 -wrap, 颜色拾取
            Gui, 1:Font, normal
            Gui, 1:Add, Text, xs+4 yp+18, 范围:
            Gui, 1:Add, ComboBox, x+5 yp-3 w55 vCbbColorPickDim gRefreshControlStates, 1x1|3x3||5x5|7x7|9x9|15x15
            Gui, 1:Add, Radio, x+5 yp+3 vRadColorPick gRefreshControlStates, RGB
            Gui, 1:Add, Radio, x+5 Checked gRefreshControlStates, BGR
 
            Gui, 1:Add, Text, xs+4 y+5 w10 h5 Section,        ;only to create a gap to the color matix
 
            loop, 15 {
                Row = %A_Index%
                dy := (Row = 8 OR Row = 9) ? "y+2" : ""
                Gui, 1:Add, Progress, xs+5 %dy% w17 h17 vPgbColorPicker%Row%_1,
                loop, 14 {
                    Column := A_Index + 1
                    dx := (A_Index = 7 OR A_Index = 8) ? 2 : 0
                    Gui, 1:Add, Progress, x+%dx% w17 h17 vPgbColorPicker%Row%_%Column%,
                }
            }
 
        Gui, 1:Tab, 选项
 
            Gui, 1:Add, Text, x5 y25 Section , 显示窗口与控件数据
            Gui, 1:Add, Radio, xs y+5 vRadWindow gRefreshControlStates, 激活窗口(&I)
            Gui, 1:Add, Radio, xs y+5 Checked gRefreshControlStates, 鼠标指针下窗口(&M)
 
            Gui, 1:Add, Button, x+55 y25 gBtnShowOptions1, 高级选项(&A)
 
            Gui, 1:Add, Text, xs y+35, 显示控件数据
            Gui, 1:Add, Radio, xs y+5 vRadControl gRefreshControlStates, 窗口焦点控件(&H)
            Gui, 1:Add, Radio, xs y+5 Checked gRefreshControlStates, 鼠标指针下控件(&T)
 
            Gui, 1:Add, Checkbox, xs y+15 vChkTtpMaster gRefreshControlStates Checked%ChkTtpMaster%, 指针显示提示(&P)
            Gui, 1:Add, Button, x+3 yp-5 gBtnShowOptions2, 数据过滤选项(&D)
 
            Gui, 1:Add, Text, xs y+10 , 显示捕捉边缘
            Gui, 1:Add, Checkbox, x+5 vChkDrawRectCtrl gChkDrawRectCtrl Checked%ChkDrawRectCtrl%, 控件[红](&C)
            Gui, 1:Add, Checkbox, y+5 vChkDrawRectWin gChkDrawRectWin Checked%ChkDrawRectWin%, 窗口[绿](&W)
 
            ExportOptions =           ;collect all checkboxes, so they can be Parsed in a loop
            (LTrim Join,
                ChkExportMousePosScreen,ChkExportMousePosAWin,ChkExportMousePosWin
                ChkExportMousePointer,ChkExportMouseColorRGB,ChkExportMouseColorHex
                ChkExportCtrlText,ChkExportCtrlClass,ChkExportCtrlPos
                ChkExportCtrlSize,ChkExportCtrlListItems,ChkExportWinTitle,ChkExportWinPos
                ChkExportWinSize,ChkExportWinClass,ChkExportWinProcess
                ChkExportWinUID,ChkExportWinPID,ChkExportWinStatusText
                ChkExportWinText,ChkExportLargeList
            )
 
            Gui, 1:Add, Text, xs y+15, 记录数据文件
            Gui, 1:Add, Button, x+5 yp-5 gBtnShowOptions3, 记录选项(&R)
            Gui, 1:Add, Button, x+5 vBtnSaveExport gBtnSaveExport, 保存到文件(&F)
            Gui, 1:Add, Edit, xs w255 vEdtExportFile, %EdtExportFile%
            Gui, 1:Add, Button, x+2 yp-1 gBtnBrowseExportFile,...
        Gui, 1:Tab, 信息
            Gui, 1:Add, Text, x5 y25 Section ,
            (
This GUI will reveal information on windows, controls, etc.,
but only when this GUI is not the active window.
 
- To start/stop updating data press the Auto-Update
  toggle Hotkey (default: Pause).
- To put the content of a field on the clipboard click with
  the left mouse button into the field. 
- To toggle the always-on-top state of this GUI use the
  middle mouse button.
            )
            Gui, 1:Add, Button, x70 y+5 vBtnShowInfo gBtnShowInfo, 更多信息 - 请阅读
 
    Gui, 1:Tab
    GuiControl, Choose, Tab1, %Tab1%
 
    Gui, 1:Add, Radio, x290 y2 Section vRadList1 gRadList, Info on all Controls of one window
    Gui, 1:Add, Radio, x+5 vRadList2 gRadList, Info on all Windows    (Click radio buttons again to refresh list)
    Gui, 1:Add, ListView, xs y+5 w370 h339 vLV1 Count200
    	, Z or Stack Order|Unique ID or Handle|Window PID|Class(NN)|Process Name|Hidden|Title or Text|X|Y|Width|Height|Style|ExStyle|Selected|CurrentCol|CurrentLine|LineCount|Choice|Tab|Enabled|Checked
 
    ;Apply settings
    if RadWindow = 1
        GuiControl, 1:, RadWindow, 1
    if RadControl = 1
        GuiControl, 1:, RadControl, 1
    if RadColorPick = 1
        GuiControl, 1:, RadColorPick, 1
    GuiControl, 1:, RadList%SelectedRadList%, 1
    GuiControl, 1:ChooseString, CbbColorPickDim, %CbbColorPickDim%
    StringSplit, Dim, CbbColorPickDim, x    ;prepare color picker dimensions
    Dim = %Dim1%
    HalfDim := Dim // 2 + 1
 
    gosub, ShowHideList
 
    if Gui1AOTState {
        Gui, 1:+AlwaysOnTop
        TitleExtension = - *AOT*
    }
 
    if ChkHideGui
        ShowOption = Hide
    else
        ShowOption = NoActivate
    Gui, 1:Show, %Gui1Pos% %ShowOption% AutoSize , %ScriptName% %TitleExtension%
    if !ChkHideGui
        GuiIsVisible := True
return
 
;###############################################################################
;###   prepare hotkey or mouse interaction with GUI   ##########################
;###############################################################################
 
WM_LBUTTONDOWN(wParam, lParam, msg, hwnd){       ;Copy-On-Click for controls
    global
    local Content
 
    if A_GuiControl is Space                     ;Control is not known
        return
    if A_GuiControl not contains Edt,Lsb,Pgb     ;Control is something else then edit, listbox or Progressbar Control
        return
 
    ;Check for full text vars
    Fulltext = %A_GuiControl%Full
    if (%Fulltext% <> "")
        Content := %Fulltext%
    else {
        if A_GuiControl contains Pgb                 ;get value from color pickers (Progressbar)
            Content := %A_GuiControl%
        else
            GuiControlGet, Content, , %A_GuiControl% ;get Controls content
    }
 
    if Content is Space                          ;content is empty or couldn't be retrieved
        return
 
    if A_GuiControl contains Class               ;change data for specific fields
        Content = ahk_class %Content%
    else if A_GuiControl contains UID
        Content = ahk_id %Content%
    else if A_GuiControl contains PID
        Content = ahk_pid %Content%
    else if A_GuiControl contains Process
        Content = ahk_pname %Content%
    else if A_GuiControl contains Pos,Size
    {
        StringReplace, Content, Content, x
        StringReplace, Content, Content, y
        StringReplace, Content, Content, w
        StringReplace, Content, Content, h
        StringReplace, Content, Content, %A_Space%, `,%A_Space%
    }
    else if A_GuiControl contains Pgb
        Content = 0x%Content%
    ClipBoard = %Content%                   ;put content in clipboard
 
    if ChkShowInfoToolTip {
        if (StrLen(Content) > 200){             ;give feedback (limit size to 200 characters)
            StringLeft, Content, Content, 200
            Content = %Content% ...
        }
        ToolTip("ClipBoard = " Content)
    }
}
 
WM_ACTIVATE(wParam, lParam, msg, hwnd){
    Global UpdateIsStopped, ChkHideGui
    if (wParam  AND !ChkHideGui)
        UpdateIsStopped := False
}
 
UpdateOnClick:
    UpdateIsStopped := False    ;needs to be set if large list had set it to true
    gosub, UpdateInfo           ;collect data
return
 
PauseAction:                      ;user has pressed toogle auto-update hotkey
    if ChkHideGui {                 ;user wants hide/show Toggle
        UpdateIsStopped := False    ;needs to be set if large list had set it to true
        if GuiIsVisible {
            Gui, 1:Hide
        }else{
            SetTimer, UpdateInfo, Off ;turn timer off, to collect only once data
            UpdateIsStopped := False  ;turn update on
            UpdateAfterPause := True  ;set flag to update all
            gosub, UpdateInfo         ;collect data
            UpdateAfterPause := False ;turn off flag to update all
            UpdateIsStopped := True   ;turn update off
            SetTimer, UpdateInfo, %CbbUpdateInterval% ;turn timer back on
            gosub, GuiShow            ;bring Gui to front
        }
        GuiIsVisible := not GuiIsVisible
        if ChkShowInfoToolTip
            ToolTip(iif(UpdateIsStopped,"Press " HtkPauseAction " to hide Gui","Wait for " HtkPauseAction " key to`nupdate data and show Gui"),2000)
    }else {
        UpdateIsStopped := not UpdateIsStopped  ;Toggle update status and show feedback
        if UpdateIsStopped                      ;when stopped, bring Gui to front
            gosub, GuiShow
        if ChkShowInfoToolTip                   ;give feedback
            ToolTip(Scriptname "`n----------------------------`nUpdate data : " iif(UpdateIsStopped,"Off","On"))
    }
 
    gosub, ToogleExportActions
    gosub, PrepareFrameDraw  ;create or destroy frame drawing objects
return
 
ToogleExportActions:
    ;Disable Export Save button during update
    GuiControl, 1:Enable%UpdateIsStopped%, BtnSaveExport
 
    ;Enable Export Save hotkey when update is stopped and hotkey wanted
    if (ChkUseSaveHotkey AND UpdateIsStopped)
        Hotkey, #s, , On
    else                 ; ... otherwise de-activate Export Save Hotkey
        Hotkey, #s, , Off UseErrorLevel
return
 
PrepareFrameDraw:           ;create or destroy frame drawing objects
    if (UpdateIsStopped OR (ChkDrawRectCtrl = 0 AND ChkDrawRectWin = 0)){
        gosub, CleanUpFrameGui
        ;create GUI Only if Gui doesn't exist yet and is needed.
    }else if ( (ChkDrawRectCtrl OR ChkDrawRectWin) And not FrameGuiExists ){
        FrameGuiExists := True
        ;create transparent GUI covering the whole screen
        Gui, 2:+Lastfound +AlwaysOnTop
        Gui, 2:Color, Black
        WinSet, TransColor, Black
        Gui, 2: -Caption +ToolWindow
        Gui, 2:Show, x0 y0 w%ScreenWidth% h%ScreenHeight%, FrameDrawGui2
        UniqueIDGui2 := WinExist()
 
        ;create draw objects for that window
        CreateDrawHandles(UniqueIDGui2, ScreenWidth, ScreenHeight, frame_cc, frame_cw)
    }
    ;set previous control/window to nothing, so that the frames start to draw immediatly
    PreviousControlID =
    PreviousWindowID =
return
 
CleanUpFrameGui:
    DeleteObject( h_brushC )       ;destroy objects
    DeleteObject( h_brushW )
    DeleteObject( h_region )
    DeleteObject( hbm_buffer )
 
    DeleteDC( hdc_frame )
    DeleteDC( hdc_buffer )
    Gui, 2:Destroy                 ;destroy Gui
    FrameGuiExists := False
    ToolTip, , , , 2               ;remove Control frame ToolTip
    ToolTip, , , , 3               ;remove window frame ToolTip
return
 
;###############################################################################
;###   Interactions with GUI controls   ########################################
;###############################################################################
 
Tab1:
    GuiControlGet, Tab1, 1:                ;get current value
    gosub, ClearNotUsedControls
    if (Tab1 = 1){                            ;adjust tab height based on visible tab
        GuiControl, 1:Move, Tab1, h145
    }else if (Tab1 = 2) {
        GuiControl, 1:Move, Tab1, h570
    }else if (Tab1 = 3) {
        GuiControl, 1:Move, Tab1, h430
    }else if (Tab1 = 4) {
        GuiControl, 1:Move, Tab1, h274
    }else if (Tab1 = 5) {
        GuiControl, 1:Move, Tab1, h174
    }
    ChkShowList := False
    gosub, ShowHideList
    Gui, 1:Show, AutoSize                         ;autosize Gui
return
 
ClearNotUsedControls:
    if (Tab1 <> 2) {
        GuiControl, 1:, EdtListItems, >>>未更新<<<
        GuiControl, 1:, LsbStatusbarText, |>>>未更新<<<
        GuiControl, 1:, EdtWindowTextFastVisible, >>>未更新<<<
        GuiControl, 1:, EdtWindowTextSlowVisible, >>>未更新<<<
        GuiControl, 1:, EdtWindowTextFastHidden, >>>未更新<<<
        GuiControl, 1:, EdtWindowTextSlowHidden, >>>未更新<<<
    }
    if (Tab1 <> 3) {
        loop, %Dim% {
            Row := A_Index + 8 - HalfDim
            loop, %Dim% {
                y++
                Control := "PgbColorPicker" (A_Index + 8 - HalfDim) "_" Row
                GuiControl, 1:+BackgroundECE9D8,%Control%
            }
        }
 
    }
return
 
ShowHideList:
    GuiControl, 1:, BtnShowList, % iif(ChkShowList,"<< 减少信息(&L)","更多信息(&M) >>")
    GuiControl, 1:Show%ChkShowList%, RadList1      ;show/hide Controls
    GuiControl, 1:Show%ChkShowList%, RadList2
    GuiControl, 1:Show%ChkShowList%, LV1          ;show/hide large list
return
 
BtnShowList:
    ChkShowList := not ChkShowList
    gosub, ShowHideList
    Gui, 1:Show, AutoSize                         ;autosize Gui
    if ChkShowList
        gosub, GetDataForLargeList      ;get data
return
 
RadList:
    LV_Delete()                                      ;clear Controls
    StringRight, SelectedRadList, A_GuiControl, 1    ;get which got pressed
    loop, 2                                          ;deactivate the other
        if (A_Index <> SelectedRadList)
            GuiControl, 1:, RadList%A_Index%, 0
    Gui, 1:Submit, NoHide
    gosub, GetDataForLargeList                       ;get data
return
 
GetDataForLargeList:
    if (RadList1 = 1){                   ;get data depending on choice
        WindowUniqueID = %EdtWindowUID%
        if EdtWindowUID is not Space
            gosub, GetControlListInfo
    }
    else
        gosub, GetAllWindowsInfo
return
 
RefreshControlStates:
    Gui, 1:Submit, NoHide                   ;get current values of all Controls
    StringSplit, Dim, CbbColorPickDim, x    ;prepare color picker dimensions
    Dim = %Dim1%
    HalfDim := Dim // 2 + 1
    loop, 15 {
        Row = %A_Index%
        loop, 15
            GuiControl, 1:+BackgroundDefault ,PgbColorPicker%Row%_%A_Index%
    }
return
 
ChkDrawRectCtrl:
    GuiControlGet, ChkDrawRectCtrl, 1:      ;get current value
    gosub, PrepareFrameDraw
    ToolTip, , , , 2
return
 
ChkDrawRectWin:
    GuiControlGet, ChkDrawRectWin, 1:       ;get current value
    gosub, PrepareFrameDraw
    ToolTip, , , , 3
return
 
;###############################################################################
;###   GUI actions   ###########################################################
;###############################################################################
 
GuiSize:
    if (A_EventInfo = 0) {   ;restored, or resized
        GuiControl, 1:Move, Tab1, h%A_GuiHeight%
        w := A_GuiWidth - 290
        h := A_GuiHeight - 22
        GuiControl, 1:Move, LV1, w%w% h%h%
        h -= 143
        GuiControl, 1:Move, GrbAdvancedWindow, h%h%
        h := (h - 218) / 2
        ;~ GuiControl, 1:Move, EdtWindowTextFastVisible, h%h%
        ;~ GuiControl, 1:Move, EdtWindowTextFastHidden, h%h%
        y := A_GuiHeight - h - 24
        GuiControl, 1:Move, TxtWindowTextSlowVisible, y%y%
        GuiControl, 1:Move, TxtWindowTextSlowHidden, y%y%
        y += 15
        ;~ GuiControl, 1:Move, EdtWindowTextSlowVisible, y%y% h%h%
        ;~ GuiControl, 1:Move, EdtWindowTextSlowHidden, y%y% h%h%
        if (LastEventInfo = 1){    ;Gui got restored
            ;start updating again
            UpdateIsStopped := False
            ;reactivate frame
            gosub, PrepareFrameDraw
        }
    }else if (A_EventInfo = 1) {   ;minimized
        ;stop updating
        UpdateIsStopped := True
        ;remove frames
        gosub, PrepareFrameDraw
    }
    LastEventInfo = %A_EventInfo%
return
 
WriteIni:
    Gui, 1:Submit, NoHide
    WinGetPos, PosX, PosY, SizeW, SizeH, %WinNameGui1%
    loop, 2
        if (RadList%A_Index% = 1)
            IniWrite, %A_Index%    , %IniFile%, Settings, SelectedRadList
    if (PosX > -4 and PosY > -4)
        IniWrite, x%PosX% y%PosY%      , %IniFile%, Settings, Gui1Pos
    IniWrite, %Gui1AOTState%       , %IniFile%, Settings, Gui1AOTState
    IniWrite, %Tab1%               , %IniFile%, Settings, Tab1
    IniWrite, %RadWindow%          , %IniFile%, Settings, RadWindow
    IniWrite, %RadControl%         , %IniFile%, Settings, RadControl
    IniWrite, %ChkShowList%        , %IniFile%, Settings, ChkShowList
    IniWrite, %HtkPauseAction%     , %IniFile%, Settings, HtkPauseAction
    IniWrite, %ChkCopyToCB%        , %IniFile%, Settings, ChkCopyToCB
    IniWrite, %ChkHideGui%         , %IniFile%, Settings, ChkHideGui
    IniWrite, %ChkUseSaveHotkey%   , %IniFile%, Settings, ChkUseSaveHotkey
 
    loop, Parse, ExportOptions, `,
        IniWrite, % %A_LoopField%  , %IniFile%, Export  , %A_LoopField%
    IniWrite, %EdtExportFile%      , %IniFile%, Export  , EdtExportFile
    IniWrite, %ChkExportAutoNumber%, %IniFile%, Export  , ChkExportAutoNumber
    IniWrite, %ChkExportAppend%    , %IniFile%, Export  , ChkExportAppend
    IniWrite, %ChkShowInfoToolTip% , %IniFile%, Advanced, ChkShowInfoToolTip
    IniWrite, %ChkDrawRectCtrl%    , %IniFile%, Advanced, ChkDrawRectCtrl
    IniWrite, %ChkDrawRectWin%     , %IniFile%, Advanced, ChkDrawRectWin
    IniWrite, %ChkTtpMaster%       , %IniFile%, Advanced, ChkTtpMaster
    IniWrite, %ChkTtpMSPos%        , %IniFile%, Advanced, ChkTtpMSPos
    IniWrite, %ChkTtpMWPos%        , %IniFile%, Advanced, ChkTtpMWPos
    IniWrite, %ChkTtpMColor%       , %IniFile%, Advanced, ChkTtpMColor
    IniWrite, %ChkTtpCClass%       , %IniFile%, Advanced, ChkTtpCClass
    IniWrite, %ChkTtpCPos%         , %IniFile%, Advanced, ChkTtpCPos
    IniWrite, %ChkTtpCSize%        , %IniFile%, Advanced, ChkTtpCSize
    IniWrite, %ChkTtpWClass%       , %IniFile%, Advanced, ChkTtpWClass
    IniWrite, %ChkTtpWTitle%       , %IniFile%, Advanced, ChkTtpWTitle
    IniWrite, %CbbUpdateInterval%  , %IniFile%, Advanced, CbbUpdateInterval
    IniWrite, %CbbColorPickDim%    , %IniFile%, Advanced, CbbColorPickDim
    IniWrite, %RadColorPick%       , %IniFile%, Advanced, RadColorPick
    IniWrite, %ChkAutoStartUpdate% , %IniFile%, Advanced, ChkAutoStartUpdate
    IniWrite, %CbbHtkUpdate%       , %IniFile%, Advanced, CbbHtkUpdate
    IniWrite, %RadUpdateOnClick%   , %IniFile%, Advanced, RadUpdateOnClick
    IniWrite, %RadUpdateAuto%      , %IniFile%, Advanced, RadUpdateAuto
return
 
GuiClose:
GuiEscape:
    gosub, WriteIni
    ExitApp
return
 
;###############################################################################
;###   GUI for information text   ##############################################
;###############################################################################
 
BtnShowInfo:
    GuiControl, 1:Disable, BtnShowInfo
    Gui, 3:+Owner1 +AlwaysOnTop +ToolWindow +Resize
    Gui, 3:Font, s12, MS Sans Serif
    Gui, 3:Add, Button, gCloseInfoGui, 关闭
    ;~ Gui, 3:Add, Edit, w600 h400 vEdtInfoText, %InformationText%
    Gui, 3:Add, Edit, w600 h400 vEdtInfoText, %InformationText%
    Gui, 3:Show, AutoSize, 信息 - %ScriptName%
return
 
3GuiClose:
3GuiEscape:
CloseInfoGui:
    GuiControl, 1:Enable, BtnShowInfo
    Gui, 3:Destroy
return
 
3GuiSize:
    w := A_GuiWidth - 20
    h := A_GuiHeight - 45
    GuiControl, 3:Move, EdtInfoText, w%w% h%h%
return
 
;###############################################################################
;###   GUI for options   #######################################################
;###############################################################################
 
BtnShowOptions1:
    ChangeToTab := 1
    gosub, BtnShowOptions
return
BtnShowOptions2:
    ChangeToTab := 2
    gosub, BtnShowOptions
return
BtnShowOptions3:
    ChangeToTab := 3
    gosub, BtnShowOptions
return
subCbbHtkUpdate:
CbbHtkUpdate:=%CbbHtkUpdateV%
return
BtnShowOptions:
    UpdateIsStopped := True
    Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%
    Hotkey, ~%CbbHtkUpdate%, Off
    Hotkey, IfWinNotActive
 
    Gui, 1:+Disabled
    Gui, 4:+Owner1 +AlwaysOnTop +ToolWindow
    Gui, 4:Font, s12, MS Sans Serif
 
    Gui, 4:Add, Tab, Section w435 h580 vTab2 AltSubmit -Wrap, 高级(&V)|提示(&T)|记录文件(&R)
        Gui, 4:Tab, 高级
            Gui, 4:Add, GroupBox, w410 h95, 更新数据
            Gui, 4:Add, Radio, x40 yp+22 Checked%RadUpdateOnClick% vRadUpdateOnClick gRadUpdate, 点击(&K)
            ;~ Gui, 4:Add, ComboBox, x+5 yp-3 w80 vCbbHtkUpdate, LButton|MButton||RButton
            Gui, 4:Add, DropDownList, x+5 yp-3 w80 vCbbHtkUpdateV gsubCbbHtkUpdate, 左键|中键||右键
            Gui, 4:Add, Radio, x40 y+8 Checked%RadUpdateAuto% vRadUpdateAuto gRadUpdate, 自动更新[毫秒](&T):
            Gui, 4:Add, ComboBox, x+5 yp-3 w50 vCbbUpdateInterval, 100||200|300|400|500|1000|2000
 
            Gui, 4:Add, Checkbox, x22 y+20 vChkChangePauseHotkey gChkChangePauseHotkey, (&S)更改切换自动更新热键 [默认: Pause)]
            Gui, 4:Add, Hotkey, xp+15 y+5 w150 vHtkPauseAction gHtkPauseAction Disabled, %HtkPauseAction%
 
            Gui, 4:Add, Checkbox, xp-15 y+5 vChkHideGui Checked%ChkHideGui%, (&G)通过上述热键隐藏/显示 GUI`; GUI 显示前将收集数据.
            Gui, 4:Add, Checkbox, y+5 vChkAutoStartUpdate Checked%ChkAutoStartUpdate%, (&D)在自动更新关闭后, GUI 重新开始更新数据.
            Gui, 4:Add, Checkbox, y+5 vChkCopyToCB Checked%ChkCopyToCB%, (&P)在收集数据区域点击左键复制数据到粘贴板.
 
            Gui, 4:Add, Text, y+20, 更新关闭时:
            Gui, 4:Add, Checkbox, vChkUseSaveHotkey Checked%ChkUseSaveHotkey%, (&F)使用热键 Win+S 记录数据到文件
 
            Gui, 4:Add, Checkbox, y+20 Section vChkShowInfoToolTip Checked%ChkShowInfoToolTip%, (&O)显示数据提示
        Gui, 4:Tab, 提示
            Gui, 4:Add, Text, , 选择鼠标指针显示数据
            Gui, 4:Add, Checkbox, vChkTtpMSPos Checked%ChkTtpMSPos%, (&S) 屏幕鼠标位置 *
            Gui, 4:Add, Checkbox, vChkTtpMWPos Checked%ChkTtpMWPos%, (&W) 窗口幕鼠标位置
            Gui, 4:Add, Checkbox, vChkTtpMColor Checked%ChkTtpMColor%, (&I) 鼠标下像素颜色
            Gui, 4:Add, Checkbox, vChkTtpCClass Checked%ChkTtpCClass%, (&T) 鼠标指针下控件类 *
            Gui, 4:Add, Checkbox, vChkTtpCPos Checked%ChkTtpCPos%, (&P) 控件位置
            Gui, 4:Add, Checkbox, vChkTtpCSize Checked%ChkTtpCSize%, (&Z) 控件大小
            Gui, 4:Add, Checkbox, vChkTtpWClass Checked%ChkTtpWClass%, (&L) 窗口类 *
            Gui, 4:Add, Checkbox, vChkTtpWTitle Checked%ChkTtpWTitle%, (&E) 窗口标题 *
            Gui, 4:Add, Text, , (* = GUI 隐藏时有效)
        Gui, 4:Tab, 记录文件
            Gui, 4:Add, GroupBox, Section w274 R3 , 记录鼠标数据
            Gui, 4:Add, Checkbox, vChkExportMousePosScreen Checked%ChkExportMousePosScreen% xs+4 yp+18, 屏幕鼠标位置
            Gui, 4:Add, Checkbox, vChkExportMousePosAWin   Checked%ChkExportMousePosAWin%   xs+125 yp, 相对激活窗口位置
            Gui, 4:Add, Checkbox, vChkExportMousePosWin    Checked%ChkExportMousePosWin%    xs+4 y+5, 相对窗口位置
            Gui, 4:Add, Checkbox, vChkExportMousePointer   Checked%ChkExportMousePointer%   xs+125 yp, 指针类型
            Gui, 4:Add, Checkbox, vChkExportMouseColorRGB  Checked%ChkExportMouseColorRGB%  xs+4 y+5, RGB 颜色
            Gui, 4:Add, Checkbox, vChkExportMouseColorHex  Checked%ChkExportMouseColorHex%  xs+125 yp, Hex 颜色
            Gui, 4:Add, GroupBox, xs w274 R3 , 记录控件数据
            Gui, 4:Add, Checkbox, vChkExportCtrlText  Checked%ChkExportCtrlText%            xs+4 yp+18, 控件文本
            Gui, 4:Add, Checkbox, vChkExportCtrlClass Checked%ChkExportCtrlClass%           xs+125 yp, 控件 ClassNN
            Gui, 4:Add, Checkbox, vChkExportCtrlPos   Checked%ChkExportCtrlPos%             xs+4 y+5, 控件位置
            Gui, 4:Add, Checkbox, vChkExportCtrlSize  Checked%ChkExportCtrlSize%            xs+125 yp, 控件大小
            Gui, 4:Add, Checkbox, vChkExportCtrlListItems  Checked%ChkExportCtrlListItems%  xs+4 y+5, 控件列表项
            Gui, 4:Add, GroupBox, xs w274 R4 , 记录窗口数据
            Gui, 4:Add, Checkbox, vChkExportWinTitle       Checked%ChkExportWinTitle%       xs+4 yp+18, 窗口标题
            Gui, 4:Add, Checkbox, vChkExportWinPos         Checked%ChkExportWinPos%         xs+4 y+5, 窗口位置
            Gui, 4:Add, Checkbox, vChkExportWinSize        Checked%ChkExportWinSize%        xs+125 yp, 窗口大小
            Gui, 4:Add, Checkbox, vChkExportWinClass       Checked%ChkExportWinClass%       xs+4 y+5, 窗口类
            Gui, 4:Add, Checkbox, vChkExportWinProcess     Checked%ChkExportWinProcess%     xs+125 yp, 窗口进程
            Gui, 4:Add, Checkbox, vChkExportWinUID         Checked%ChkExportWinUID%         xs+4 y+5, 窗口 UID
            Gui, 4:Add, Checkbox, vChkExportWinPID         Checked%ChkExportWinPID%         xs+125 yp, 窗口 PID
            Gui, 4:Add, Checkbox, vChkExportWinStatusText  Checked%ChkExportWinStatusText%  xs+4 y+5, 状态栏文本
            Gui, 4:Add, Checkbox, vChkExportWinText        Checked%ChkExportWinText%        xs+125 yp, 窗口文本
 
            Gui, 4:Add, Checkbox, xs y+25 vChkExportLargeList  Checked%ChkExportLargeList%, 记录大列表         选择:
 
            Gui, 4:Add, Button, x+2 yp-5 gBtnExportCheckAll, 全部
            Gui, 4:Add, Button, x+2 gBtnExportCheckNone , 无
            Gui, 4:Add, Button, x+2 gBtnExportCheckReverse , 反选
 
            Gui, 4:Add, Text, xs y+5, 附加数据选项:
            Gui, 4:Add, Checkbox, y+5 Section vChkExportAutoNumber gChkExportAutoNumber Checked%ChkExportAutoNumber%, 使用数字替换文件名中的 "#"
            Gui, 4:Add, Checkbox, y+5 vChkExportAppend gChkExportAppend Checked%ChkExportAppend%, 附加数据到文件
    Gui, 4:Tab
 
    Gui, 4:Add, Button, xm gApplyOptions, 应用(&A)
    Gui, 4:Add, Button, x+5 g4GuiClose, 取消(&C)
 
    if RadUpdateOnClick {
        GuiControl, 4:Disable, ChkChangePauseHotkey
        GuiControl, 4:Disable, ChkHideGui
        GuiControl, 4:Disable, ChkAutoStartUpdate
    }
    GuiControl, 4:ChooseString, CbbHtkUpdate, %CbbHtkUpdate%
    GuiControl, 4:ChooseString, CbbUpdateInterval, %CbbUpdateInterval%
    gosub, ChkExportAutoNumber
    gosub, ChkExportAppend
    GuiControl, 4:Choose, Tab2, %ChangeToTab%
 
    Gui, 4:Show,, Options - %ScriptName%
return
 
RadUpdate:
    if (A_GuiControl = "RadUpdateOnClick"){
        GuiControl, 4:, RadUpdateAuto, 0
        GuiControl, 4:, ChkChangePauseHotkey, 0
        GuiControl, 4:Disable, ChkChangePauseHotkey
        GuiControl, 4:Disable, HtkPauseAction
        GuiControl, 4:, ChkHideGui, 0
        GuiControl, 4:Disable, ChkHideGui
        GuiControl, 4:, ChkAutoStartUpdate, 0
        GuiControl, 4:Disable, ChkAutoStartUpdate
    }else{
        GuiControl, 4:, RadUpdateOnClick, 0
        GuiControl, 4:Enable, ChkChangePauseHotkey
        GuiControl, 4:Enable, ChkHideGui
        GuiControl, 4:Enable, ChkAutoStartUpdate
        GuiControl, 4:, ChkAutoStartUpdate, 1
    }
return
 
ApplyOptions:
    Gui, 4:Submit
    if ChkCopyToCB
        OnMessage( WM_LButtonDOWN, "WM_LButtonDOWN" )   ;activate copy-on-Click
    else
        OnMessage( WM_LButtonDOWN, "" )                 ;deactivate copy-on-Click
    if ChkAutoStartUpdate
        OnMessage(WM_ACTIVATE, "WM_ACTIVATE")       ;activate auto-start updating at Gui inactivity
    else
        OnMessage(WM_ACTIVATE, "" )                 ;deactivate auto-start updating
    if RadUpdateAuto {
        SetTimer, UpdateInfo, %CbbUpdateInterval%
    }else{
        SetTimer, UpdateInfo, Off
        Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%
        Hotkey, ~%CbbHtkUpdate%, UpdateOnClick, On
        Hotkey, IfWinNotActive
    }
    gosub, PauseAction
4GuiClose:
4GuiEscape:
    UpdateIsStopped := False
    Gui, 1:-Disabled
    Gui, 4:Destroy
return
 
ChkChangePauseHotkey:
    GuiControlGet, ChkChangePauseHotkey, 4:      ;get current value
    if ChkChangePauseHotkey {
        ;de-activate current auto-update toggle hotkey
        Hotkey, %HtkPauseAction%, Off
        GuiControl, 4:Enable, HtkPauseAction
    }else
        gosub, HtkPauseAction
return
 
HtkPauseAction:
    GuiControlGet, HtkPauseAction, 4:      ;get current value
    if HtkPauseAction {
        if HtkPauseAction in ^,+,!         ;don't react on simple modifiers
            return
        ;activate new auto-update toggle hotkey
        Hotkey, %HtkPauseAction%, PauseAction, On
        GuiControl, 4:Disable, HtkPauseAction
        GuiControl, 4:, ChkChangePauseHotkey, 0
    }else{
        GuiControl, 4:, ChkChangePauseHotkey, 1
        GuiControl, 4:Enable, HtkPauseAction
        ToolTip("You need to specify a Hotkey", 2000)
    }
return
 
BtnExportCheckAll:
    loop, Parse, ExportOptions, `,
        GuiControl, 4:, %A_LoopField%, 1
return
BtnExportCheckNone:
    loop, Parse, ExportOptions, `,
        GuiControl, 4:, %A_LoopField%, 0
return
BtnExportCheckReverse:
    Gui, 1:Submit, NoHide
    loop, Parse, ExportOptions, `,
        GuiControl, 4:, %A_LoopField%, % not %A_LoopField%
return
ChkExportAutoNumber:
    Gui, 4:Submit, NoHide
    if ChkExportAutoNumber
        GuiControl, 4:Disable, ChkExportAppend
    else
        GuiControl, 4:Enable, ChkExportAppend
return
ChkExportAppend:
    Gui, 4:Submit, NoHide
    if ChkExportAppend
        GuiControl, 4:Disable, ChkExportAutoNumber
    else
        GuiControl, 4:Enable, ChkExportAutoNumber
return
 
;###############################################################################
;###   getting the data    #####################################################
;###############################################################################
 
UpdateInfo:
    if UpdateIsStopped
        return
 
    if (WinActive("A") = Gui1UniqueID )    ;don't update when window becomes the active one
        return
 
    if (Tab1 > 3 )    ;don't update when tab 4 or tab 5 are visible
        return
 
    SetBatchLines, -1
 
    ;get mouse pos and make sure mouse is not on frames or tooltips or on it's own gui
    MouseIsOnFrameGui := False
    gosub, CheckForFramesAndTipsAndGetMousePos
    if MouseIsOnFrameGui
        return
 
    gosub, SetWhichWindow
    gosub, SetWhichControl
 
    if (ChkHideGui And ChkTtpMaster And !GuiIsVisible)   ;update only small info when Gui is hidden if tool tips are wanted
        gosub, UpdateMinimumInfo
    else if (!ChkHideGui Or UpdateAfterPause) ;update only when Gui not set to HideGui or if Pause is release and one update is needed
        gosub, UpdateAllInfo
 
    ;draw frames if wanted
    if ( ( ChkDrawRectCtrl OR ChkDrawRectWin )                           ;user wants to see at least one of the frames
    	AND PreviousControlID <> ControlID                                ;the control has changed
    	AND StatusDrawFrame ){                                             ;AND the Mouse is not on the active window which should be drawn
        if not FrameGuiExists         ;create frame Gui if it had been destroyed, e.g. by viewing the large list
            gosub, PrepareFrameDraw
    DrawFrameAroundControl(ControlID, WindowUniqueID, frame_t)
    }
;memorize IDs
PreviousControlID = %ControlID%
PreviousWindowID = %WindowID%
 
if UpdateIsStopped {         ;when update stopped within this Run, behave as if Toggle Hotkey was pressed
    gosub, ToogleExportActions
    gosub, PrepareFrameDraw  ;create or destroy frame drawing objects
    gosub, GuiShow
}
return
 
;check if frames or tool tips are under mouse pointer
CheckForFramesAndTipsAndGetMousePos:
    ;get mouse positions relative to screen
    CoordMode, Mouse, Screen
    MouseGetPos, MouseScreenX, MouseScreenY, MouseWindowUID, MouseControlID
    WinGetClass, WindowClass, ahk_id %MouseWindowUID%
    WinGetTitle, WindowTitle, ahk_id %MouseWindowUID%
    if ( MouseWindowUID = UniqueIDGui2                    ;if window is frame Gui
    	OR  MouseWindowUID = Gui1UniqueID                ;or real gui
    	OR (WindowClass = "tooltips_class32"                ;or window is tooltip
    	AND ( WindowTitle = PreviousControlID               ;and has the title of the last control
    	OR WindowTitle = PreviousWindowID                 ;or has the title of the last window
    	OR InStr(WindowTitle,Scriptname)) ) ) ;{          ;or has a title that contains the script name, then it might be one of the info tooltips
        MouseIsOnFrameGui := True
    if (MouseIsOnFrameGui AND WindowTitle = PreviousControlID) ;remove Control frame ToolTip if Mouse is on it, to be able to see Screen below
        ToolTip, , , , 2
return
 
;set UID of window for which the following data should be retrieved
SetWhichWindow:
    StatusDrawFrame := True
    if (RadWindow = 1){                      ;for active window
        WinGet, WindowUniqueID, ID, A
        if (WindowUniqueID <> MouseWindowUID)  ;Mouse is not in active window, don't redraw frames
            StatusDrawFrame := False
    }else                                    ;for window under Mouse pointer
        WindowUniqueID = %MouseWindowUID%
return
 
;set control ID for which the data should be retrieved
SetWhichControl:
    if (RadControl = 1)        ;for active Control
        ControlGetFocus, ControlID, ahk_id %WindowUniqueID%
    else                       ;for Control under Mouse pointer
        ControlID = %MouseControlID%
return
 
UpdateMinimumInfo:
    ;optional tooltip
    if ChkTtpMaster {
        InfoString := iif(ChkTtpMSPos,"MScreen: " MouseScreenX "," MouseScreenY "`n")
        . iif(ChkTtpCClass,"Control ClassNN: " MouseControlID "`n")
        . iif(ChkTtpWClass,"Window Class: " WindowClass "`n")
        . iif(ChkTtpWTitle,"Window Title: " WindowTitle "`n")
        StringTrimRight, InfoString, InfoString, 1    ;remove last `n
        if InfoString
            ToolTip(Scriptname "`n----------------------------`n" InfoString)
    }
return
 
UpdateAllInfo:
    ;ToolTip, UpdateAllInfo - %A_Now%   ;??? for debug
 
    gosub, GetMouseInfo
    gosub, GetControlInfo
 
    ;optional tooltip
    if ChkTtpMaster {
        InfoString := iif(ChkTtpMSPos,"MScreen: " MouseScreenX "," MouseScreenY "`n")
        . iif(ChkTtpMWPos,"MWindow: " MouseWindowX "," MouseWindowY "`n")
        . iif(ChkTtpMColor,"MColor: " MouseColorRGB "`n")
        . iif(ChkTtpCClass,"Control ClassNN: " MouseControlID "`n")
        . iif(ChkTtpCPos,"Control Pos: " ControlX "," ControlY "`n")
        . iif(ChkTtpCSize,"Control Size: " ControlWidth "," ControlHeight "`n")
        . iif(ChkTtpWClass,"Window Class: " WindowClass "`n")
        . iif(ChkTtpWTitle,"Window Title: " WindowTitle "`n")
        StringTrimRight, InfoString, InfoString, 1    ;remove last `n
        if InfoString
            ToolTip(Scriptname "`n----------------------------`n" InfoString)
    }
 
    gosub, GetWindowInfo
    if (Tab1 = 2) ;get window text only when advanced tab is active
        gosub, GetWindowText
 
    if ChkShowList {                        ;if large list is shown
        if RadList1 = 1               ;get data depending on choice
            gosub, GetControlListInfo
        else
            gosub, GetAllWindowsInfo
 
        UpdateIsStopped := True                  ;give feedback and stop updating
        if ChkShowInfoToolTip
            ToolTip("Stopped to update data to allow working with "
        . iif(SelectedRadList = 1,"list of Controls")
        . iif(SelectedRadList = 2,"list of windows")
        . "`nPress Pause key to create a new snapshot", 2000)
    }
return
 
GetMouseInfo:
    ;get mouse pos relative to windows
    WinGetPos, WindowActiveX, WindowActiveY,,, A
    WinGetPos, WindowX, WindowY,,, ahk_id %MouseWindowUID%
    MouseWindowActiveX := MouseScreenX - WindowActiveX
    MouseWindowActiveY := MouseScreenY - WindowActiveY
    MouseWindowX := MouseScreenX - WindowX
    MouseWindowY := MouseScreenY - WindowY
    GuiControl, 1:, EdtMousePosScreen, x%MouseScreenX% y%MouseScreenY%
    GuiControl, 1:, EdtMousePosWin, x%MouseWindowX% y%MouseWindowY%
    GuiControl, 1:, EdtEasyMousePosWin, x%MouseWindowX% y%MouseWindowY%
    GuiControl, 1:, EdtDataMousePosWin, x%MouseWindowX% y%MouseWindowY%
    GuiControl, 1:, EdtMousePosAWin, x%MouseWindowActiveX% y%MouseWindowActiveY%
 
    ;get pointer shape
    GuiControl, 1:, EdtMousePointer, %A_Cursor%
 
    ;get color below mouse pointer
    CoordMode, Pixel, Screen
    PixelGetColor, MouseColorRGB, %MouseScreenX%, %MouseScreenY%, RGB
    StringMid, MouseColorR, MouseColorRGB, 3, 2
    StringMid, MouseColorG, MouseColorRGB, 5, 2
    StringMid, MouseColorB, MouseColorRGB, 7, 2
    GuiControl, 1:, EdtMouseColorRGB, % "R" HEXtoDEC(MouseColorR) " G" HEXtoDEC(MouseColorG)" B" HEXtoDEC(MouseColorB)
    GuiControl, 1:, EdtMouseColorHex, %MouseColorRGB%
 
    if (Tab1 = 3) {      ;Only update color picker when Mouse tab is active
        if ( MouseScreenX MouseScreenY <> OldPosition or MouseColorRGB <> OldMouseColorRGB){    ;only update color picker when Mouse moves or color changes
            x := MouseScreenX - HalfDim
            loop, %Dim% {
                x++
                Row := A_Index + 8 - HalfDim
                y := MouseScreenY - HalfDim
                loop, %Dim% {
                    y++
                    PixelGetColor, ColorRGB, %x%, %y%, % iif(RadColorPick = 1, "RGB")
                    StringTrimLeft, ColorRGB, ColorRGB, 2
                    Control := "PgbColorPicker" (A_Index + 8 - HalfDim) "_" Row
                    %Control% = %ColorRGB%
                    if RadColorPick = 2
                        PixelGetColor, ColorRGB, %x%, %y%, RGB
                    GuiControl, 1:+Background%ColorRGB%,%Control%
                }
            }
        }
        OldPosition = %MouseScreenX%%MouseScreenY%
        OldMouseColorRGB = %MouseColorRGB%
    }
return
 
GetControlInfo:
    GuiControl, 1:, EdtControlClass, %ControlID%
    GuiControl, 1:, EdtEasyControlClass, %ControlID%
 
    ;get Pos, Size, Text
    ControlGetPos, ControlX, ControlY, ControlWidth, ControlHeight, %ControlID%, ahk_id %WindowUniqueID%
    GuiControl, 1:, EdtControlPos, x%ControlX% y%ControlY%
    GuiControl, 1:, EdtControlSize, w%ControlWidth% h%ControlHeight%
 
    ControlGet, ControlHwnd, Hwnd,, %ControlID%, ahk_id %WindowUniqueID%
    GuiControl, 1:, EdtControlHwnd, %ControlHwnd%
 
    ;Chris suggests to avoid any call to ControlGetText or WinGetText because they force the OS to copy an
    ; unlimited amount of text across process boundaries. This text could be several megabytes or more if
    ; someone has a big text file or Word document open. Instead use WM_GETTEXT.
    ;   ControlGetText, ControlText, %ControlID%, ahk_id %WindowUniqueID%
    MouseGetPos,,,,ControlHWND, 2
    SendMessage, 0xD, ControlTextSize, &ControlText,, ahk_id %ControlHWND%  ; 0xD is WM_GETTEXT.
    EdtControlTextFull := ShowOnlyAPartInGui("EdtControlText", ControlText, 100)
    EdtEasyControlTextFull := ShowOnlyAPartInGui("EdtEasyControlText", ControlText, 100)
 
    if (Tab1 = 2) { ;get Control list data only when advanced tab is active
        ControlGet, ControlListItems, List, , %ControlID%, ahk_id %WindowUniqueID%
        EdtListItemsFull := ShowOnlyAPartInGui("EdtListItems", ControlListItems, 200)
    }
return
 
GetWindowInfo:
    ;get Title, Pos, Size, PID, Process, Class
    WinGetTitle, WindowTitle, ahk_id %WindowUniqueID%
    WinGetPos, WindowX, WindowY, WindowWidth, WindowHeight, ahk_id %WindowUniqueID%
    WinGet, WindowPID, PID, ahk_id %WindowUniqueID%
    WinGet, WindowProcessName, ProcessName, ahk_pid %WindowPID%
    WinGetClass, WindowClass, ahk_id %WindowUniqueID%
    GuiControl, 1:, EdtWindowTitle, %WindowTitle%
    GuiControl, 1:, EdtEasyWindowTitle, %WindowTitle%
    GuiControl, 1:, EdtWindowPos, x%WindowX% y%WindowY%
    GuiControl, 1:, EdtWindowSize, w%WindowWidth% h%WindowHeight%
    GuiControl, 1:, EdtWindowClass, %WindowClass%
    GuiControl, 1:, EdtEasyWindowClass, %WindowClass%
    GuiControl, 1:, EdtWindowProcess, %WindowProcessName%
    GuiControl, 1:, EdtWindowUID, %WindowUniqueID%
    GuiControl, 1:, EdtWindowPID, %WindowPID%
 
    if (Tab1 = 2) { ;get advanced window data only when advanced tab is active
        ;get and set statusbartext (maximum 10)
        ListOfStatusbarText =
        loop, 10 {
            StatusBarGetText, StatusBarText, %A_Index%, ahk_id %WindowUniqueID%
            if StatusBarText
                ListOfStatusbarText = %ListOfStatusbarText%%A_Index% - %StatusBarText%|
        }
        if ListOfStatusbarText is Space
            ListOfStatusbarText = No text found in statusbar
        GuiControl, 1:, LsbStatusbarText, |%ListOfStatusbarText%
    }
return
 
GetWindowText:
    EdtWindowTextFastVisible =
    EdtWindowTextSlowVisible =
    EdtWindowTextFastHidden =
    EdtWindowTextSlowHidden =
 
    ;Suggested by Chris
    WinGet, ListOfControlHandles, ControlListHwnd, ahk_id %WindowUniqueID%  ; Requires v1.0.43.06+.
    loop, Parse, ListOfControlHandles, `n
    {
        text_is_fast := true
        if not DllCall("GetWindowText", "uint", A_LoopField, "str", WindowControlText, "int", WindowControlTextSize){
            text_is_fast := false
            SendMessage, 0xD, WindowControlTextSize, &WindowControlText,, ahk_id %A_LoopField%  ; 0xD is WM_GETTEXT
        }
        if (WindowControlText <> ""){
            ControlGet, WindowControlStyle, Style,,, ahk_id %A_LoopField%
            if (WindowControlStyle & 0x10000000){  ; Control is visible vs. hidden (WS_VISIBLE).
                if text_is_fast
                    EdtWindowTextFastVisible = %EdtWindowTextFastVisible%%WindowControlText%`r`n
                else
                    EdtWindowTextSlowVisible = %EdtWindowTextSlowVisible%%WindowControlText%`r`n
            }else{  ; Hidden text.
                if text_is_fast
                    EdtWindowTextFastHidden = %EdtWindowTextFastHidden%%WindowControlText%`r`n
                else
                    EdtWindowTextSlowHidden = %EdtWindowTextSlowHidden%%WindowControlText%`r`n
            }
        }
    }
 
    EdtWindowTextFastVisibleFull := ShowOnlyAPartInGui("EdtWindowTextFastVisible", EdtWindowTextFastVisible, 400)
    EdtWindowTextSlowVisibleFull := ShowOnlyAPartInGui("EdtWindowTextSlowVisible", EdtWindowTextSlowVisible, 400)
    EdtWindowTextFastHiddenFull := ShowOnlyAPartInGui("EdtWindowTextFastHidden", EdtWindowTextFastHidden, 400)
    EdtWindowTextSlowHiddenFull := ShowOnlyAPartInGui("EdtWindowTextSlowHidden", EdtWindowTextSlowHidden, 400)
return
 
ShowOnlyAPartInGui(Control, FullContent, Limit=200){
    Content = %FullContent%
    if (StrLen(Content) > Limit){         ;limits the Control text in the Gui. An unlimited length caused on some PCs 100% CPU load
        StringLeft, Content, Content, %Limit%
        Content = %Content% ...
    }
    GuiControl, 1:, %Control%, %Content%
    return FullContent
}
 
GetControlListInfo:
    ;get list of controls in z order
    WinGet, ControlList, ControlList, ahk_id %WindowUniqueID%
 
    ;get all data for these controls
    loop, Parse, ControlList, `n
    {
        ControlID0 = %A_Index%
        ControlID = %A_LoopField%
        ControlID%A_Index% = %ControlID%
        ControlGetPos, ControlX%A_Index%, ControlY%A_Index%, ControlWidth%A_Index%, ControlHeight%A_Index%, %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlHwnd%A_Index%, Hwnd,, %ControlID%, ahk_id %WindowUniqueID%
        ControlGetText, ControlText%A_Index%, %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlChecked%A_Index%, Checked, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlEnabled%A_Index%, Enabled, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlVisible%A_Index%, Visible, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlTab%A_Index%, Tab, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlChoice%A_Index%, Choice, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlLineCount%A_Index%, LineCount, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlCurrentLine%A_Index%, CurrentLine, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlCurrentCol%A_Index%, CurrentCol, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlSelected%A_Index%, Selected, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlStyle%A_Index%, Style, , %ControlID%, ahk_id %WindowUniqueID%
        ControlGet, ControlExStyle%A_Index%, ExStyle, , %ControlID%, ahk_id %WindowUniqueID%
    }
 
    ;add all data to listview
    GuiControl, -Redraw, LV1          ; speed up adding data
    LV_Delete()                       ; remove old data
    loop, %ControlID0% {
        LV_Add(""
        	, A_Index                     ; Z or Stack Order
        	, ControlHwnd%A_Index%          ; Unique ID
        	, ""                          ; Window PID
        	, ControlID%A_Index%          ; Window Class
        	, ""                          ; Window Process Name
        	, ControlVisible%A_Index%     ; Visible or Hidden?
        	, ControlText%A_Index%        ; Title or Text
        	, ControlX%A_Index%           ; X
        	, ControlY%A_Index%           ; Y
        	, ControlWidth%A_Index%       ; Width
        	, ControlHeight%A_Index%      ; Height
        	, ControlStyle%A_Index%       ; Style
        	, ControlExStyle%A_Index%     ; ExStyle
        	, ControlSelected%A_Index%    ; Selected
        	, ControlCurrentCol%A_Index%  ; CurrentCol
        	, ControlCurrentLine%A_Index% ; CurrentLine
        	, ControlLineCount%A_Index%   ; LineCount
        	, ControlChoice%A_Index%      ; Choice
        	, ControlTab%A_Index%         ; Tab
        	, ControlEnabled%A_Index%     ; Enabled
        	, ControlChecked%A_Index%)    ; Checked
    }
    LV_ModifyCol()                    ; Auto-size all columns
    LV_ModifyCol(1, "Integer Left")   ; column Z Order
    LV_ModifyCol(3, 0)                ; hide column Window PID
    LV_ModifyCol(5, 0)                ; hide column Window Process Name
    LV_ModifyCol(7, "150")            ; column Text
    GuiControl, +Redraw, LV1
return
 
GetAllWindowsInfo:
    ;get list of all visible windows in stack order
    DetectHiddenWindows, Off
    WinGet, WinIDs, List
    loop, %WinIDs%
        winListIDsVisible := winListIDsVisible WinIDs%A_Index% "`n"
 
    ;get list of all windows in stack order
    DetectHiddenWindows, On
    WinGet, WinIDs, List
 
    ;get all data for all windows
    loop, %WinIDs% {
        UniqueID := "ahk_id " WinIDs%A_Index%
        WinGetPos, WindowX%A_Index%, WindowY%A_Index%, WindowWidth%A_Index%, WindowHeight%A_Index%, %UniqueID%
        WinGet, winPID%A_Index%, PID, %UniqueID%
        WinGet, ProcessName%A_Index%, ProcessName, % "ahk_pid " winPID%A_Index%
        WinGetTitle, winTitle%A_Index%, %UniqueID%
        WinGetClass, winClass%A_Index%, %UniqueID%
    }
    DetectHiddenWindows, off
 
    ;add all data to listview
    GuiControl, -Redraw, LV1          ; speed up adding data
    LV_Delete()                       ; remove old data
    loop, %WinIDs% {
        LV_Add(""
        	, A_Index                   ; Z or Stack Order
        	, WinIDs%A_Index%           ; Unique ID
        	, winPID%A_Index%           ; Window PID
        	, winClass%A_Index%         ; Window Class
        	, processName%A_Index%      ; Process Name
        	, iif(InStr(winListIDsVisible,WinIDs%A_Index%),"","Hidden")  ; Visible or Hidden?
        	, winTitle%A_Index%         ; Title or Text
        	, WindowX%A_Index%          ; X
        	, WindowY%A_Index%          ; Y
        	, WindowWidth%A_Index%      ; Width
        	, WindowHeight%A_Index%)    ; Height
    }
    LV_ModifyCol()                    ; Auto-size all columns
    LV_ModifyCol(1, "Integer Left")   ; column Stack Order
    LV_ModifyCol(4, "100")            ; column Class
    LV_ModifyCol(7, "150")            ; column Title
    GuiControl, +Redraw, LV1
return
 
;draw frames around controls and/or windows
DrawFrameAroundControl(ControlID, WindowUniqueID, frame_t){
    global h_brushC, h_brushW, ChkDrawRectCtrl, ChkDrawRectWin
 
    ;get coordinates of Window and control again
    ;(could have been past into the function but it seemed too much parameters)
    WinGetPos, WindowX, WindowY, WindowWidth, WindowHeight, ahk_id %WindowUniqueID%
    ControlGetPos, ControlX, ControlY, ControlWidth, ControlHeight, %ControlID%, ahk_id %WindowUniqueID%
 
    ;find upper left corner relative to screen
    StartX := WindowX + ControlX
    StartY := WindowY + ControlY
 
    ;show ID in upper left corner
    CoordMode, ToolTip, Screen
 
    ;show frame gui above AOT apps
    Gui, 2: +AlwaysOnTop
 
    if ChkDrawRectWin {
        ;if windows upper left corner is outside the screen
        ; it is assumed that the window is maximized and the frame is made smaller
        if ( WindowX < 0 AND WindowY < 0 ){
            WindowX += 4
            WindowY += 4
            WindowWidth -= 8
            WindowHeight -= 8
        }
 
        ;remove old rectangle from screen and save/buffer screen below new rectangle
        BufferAndRestoreRegion( WindowX, WindowY, WindowWidth, WindowHeight )
 
        ;draw rectangle frame around window
        DrawFrame( WindowX, WindowY, WindowWidth, WindowHeight, frame_t, h_brushW )
 
        ;show tooltip above window frame when enough space
        if ( WindowY > 22)
            WindowY -= 22
 
        ;Show tooltip with windows unique ID
        ToolTip, %WindowUniqueID%, WindowX, WindowY, 3
    }
    else
    ;remove old rectangle from screen and save/buffer screen below new rectangle
        BufferAndRestoreRegion( StartX, StartY, ControlWidth, ControlHeight )
 
    if ChkDrawRectCtrl {
        ;draw rectangle frame around control
        DrawFrame( StartX, StartY, ControlWidth, ControlHeight, frame_t, h_brushC )
 
        ;show tooltip above control frame when enough space, or below
        if ( StartY > 22)
            StartY -= 22
        else
            StartY += ControlHeight
 
        ;show control tooltip left of window tooltip if position identical (e.g. Windows Start Button on Taskbar)
        if (StartY = WindowY
        	AND StartX < WindowX + 50)
            StartX += 50
 
        ;Show tooltip with controls unique ID
        ToolTip, %ControlID%, StartX, StartY, 2
    }
    ;set back ToolTip position to default
    CoordMode, ToolTip, Relative
}
 
;###############################################################################
;###   export the data    ######################################################
;###############################################################################
 
BtnBrowseExportFile:
    Gui, 1:Submit, NoHide
    SelectFile("EdtExportFile", EdtExportFile, "email")
return
 
BtnSaveExport:
    Gui, 1:Submit, NoHide
 
    ;return if no filename is given
    if EdtExportFile is Space
    {
        ToolTip("No filename for export specified.", 3000)
        MsgBox, 48, Problem , No export filename is given.
        return
    }
 
    ;return if no data is selected for export
    NumberOfExports = 0
    loop, Parse, ExportOptions, `,
        NumberOfExports := NumberOfExports + %A_LoopField%
    if (NumberOfExports = 0){
        ToolTip("No data selected for export.", 3000)
        return
    }
 
    ;get filename
    if (ChkExportAutoNumber){
        FileNameForExport := GetAvailableFileName(EdtExportFile)
        if not FileNameForExport {
            ToolTip("Could get filename for export.`n" ErrorLevel, 3000)
            return
        }
    }else
        FileNameForExport = %EdtExportFile%
 
    GuiControl, 1:Disable, BtnSaveExport
    gosub, ExportDataToFile
    GuiControl, 1:Enable, BtnSaveExport
    if ChkShowInfoToolTip
        ToolTip("Data exported to file: " FileNameForExport, 3000)
return
 
ExportDataToFile:
    if ChkExportAppend
        FileAppend, `n===========next snapshot===========`n, %FileNameForExport%
    else
        FileDelete, %FileNameForExport%
 
    ExportString := "Data exported from " ScriptName " at " A_Now "`n`nMouse Data`n"
    . iif(ChkExportMousePosScreen,"Mouse position Relative to Screen :`n" EdtMousePosScreen "`n`n")
    . iif(ChkExportMousePosWin,"Mouse position Relative to window under Mouse pointer :`n" EdtMousePosWin "`n`n")
    . iif(ChkExportMousePosAWin,"Mouse position Relative to active window :`n" EdtMousePosAWin "`n`n")
    . iif(ChkExportMousePointer,"Mouse cursor style :`n" EdtMousepointer "`n`n")
    . iif(ChkExportMouseColorRGB,"Pixel Color in RGB format under Mouse pointer :`n" EdtMouseColorRGB "`n`n")
    . iif(ChkExportMouseColorHex,"Pixel Color in Hex format (RGB) Mouse pointer :`n" EdtMouseColorHex "`n`n")
    . "`nControl data for "
    . iif(RadControl = 1,"active Control of " iif(RadWindow = 1,"active window","window under Mouse pointer") ,"Control under Mouse pointer")
    . "`n"
    . iif(ChkExportCtrlText,"Control text :`n" EdtControlText "`n`n")
    . iif(ChkExportCtrlClass,"Control classNN :`n" EdtControlClass "`n`n")
    . iif(ChkExportCtrlPos,"Control position :`n" EdtControlPos "`n`n")
    . iif(ChkExportCtrlSize,"Control size :`n" EdtControlSize "`n`n")
    . iif(ChkExportCtrlListItems,"Control list items :`n" EdtListItems "`n`n")
    . "`nWindow data for "
    . iif(RadWindow = 1,"active window","window under Mouse pointer")
    . "`n"
    . iif(ChkExportWinTitle,"Window title :`n" EdtWindowTitle "`n`n")
    . iif(ChkExportWinPos,"Window position :`n" EdtWindowPos "`n`n")
    . iif(ChkExportWinSize,"Window size :`n" EdtWindowSize "`n`n")
    . iif(ChkExportWinClass,"Window class :`n" EdtWindowClass "`n`n")
    . iif(ChkExportWinProcess,"Window Process name:`n" EdtWindowProcess "`n`n")
    . iif(ChkExportWinUID,"Window unique ID :`n" EdtWindowUID "`n`n")
    . iif(ChkExportWinPID,"Window PID :`n" EdtWindowPID "`n`n")
    FileAppend, %ExportString%, %FileNameForExport%
 
    ExportString =
    if ChkExportWinStatusText {
        StringReplace, StatusbarText, ListOfStatusbarText, |, `n, All
        ExportString := "`n######## Window Statusbar Text (Part# - Text) :`n" StatusbarText "`n`n"
    }
    if ChkExportWinText
        ExportString := ExportString
    . iif(EdtWindowTextFastVisible,"`n######## Fast Visible Window Text :`n" EdtWindowTextFastVisible "`n`n")
    . iif(EdtWindowTextSlowVisible,"`n######## Slow Visible Window Text :`n" EdtWindowTextSlowVisible "`n`n")
    . iif(EdtWindowTextFastHidden,"`n######## Fast Hidden Window Text :`n" EdtWindowTextFastHidden "`n`n")
    . iif(EdtWindowTextSlowHidden,"`n######## Slow Hidden Window Text :`n" EdtWindowTextSlowHidden "`n`n")
    FileAppend, %ExportString%, %FileNameForExport%
 
    if ChkExportLargeList {
        if LV_GetCount() {
            ExportString := "`n########"
            . iif(RadList3,"Data of all Controls of the " iif(RadWindow = 1,"active window","window under the Mousepointer") ,"Data of all windows")
            ExportString = %ExportString% :`n
            (LTrim Join`s
                Process Name, Hidden, Title or Text, X, Y, Width, Height, Style,
                ExStyle, Selected, CurrentCol, CurrentLine, LineCount, Choice,
                Tab, Enabled, Checked
 
            )
            Columns := LV_GetCount("Col")
            loop, % LV_GetCount() {
                Row = %A_Index%
                loop %Columns% {
                    LV_GetText(Text, Row , A_Index)
                    ExportString = %ExportString%%Text%,
                }
                StringTrimRight,ExportString,ExportString,1  ;remove last comma
                ExportString = %ExportString%`n              ;start new line
            }
        }
        if ExportString
            FileAppend, %ExportString%, %FileNameForExport%
    }
return
 
;###############################################################################
;###   small helper functions   ################################################
;###############################################################################
 
iif(expr, a, b:=""){
    if expr
        return a
    return b
}
 
ToggleOnTopGui1(wParam, lParam, msg, hwnd) {
    Global Gui1UniqueID, Gui1AOTState
 
    WinGetTitle, CurrentTitle , ahk_id %Gui1UniqueID%
    if (Gui1AOTState){
        Gui, 1: -AlwaysOnTop
        StringTrimRight, CurrentTitle, CurrentTitle, 8
        WinSetTitle, ahk_id %Gui1UniqueID%, , %CurrentTitle%
    }else {
        Gui, 1: +AlwaysOnTop
        WinSetTitle, ahk_id %Gui1UniqueID%, , %CurrentTitle% - *AOT*
    }
    Gui1AOTState := not Gui1AOTState
}
 
ToolTip(Text, TimeOut:=1000){
    ToolTip, %Text%
    SetTimer, RemoveToolTip, %TimeOut%
    return
}
RemoveToolTip:
    ToolTip
return
 
HEXtoDEC(HEX){
    StringUpper, HEX, HEX
    loop, % StrLen(HEX) {
        StringMid, Col, HEX, % (StrLen(HEX) + 1) - A_Index, 1
        if Col is integer
            DEC1 := Col * 16 ** (A_Index - 1)
        else
            DEC1 := (Asc(Col) - 55) * 16 ** (A_Index - 1)
        DEC += %DEC1%
    }
    return DEC
}
 
SelectFile(Control, OldFile, Text){
    Gui, 1:+OwnDialogs
    StringReplace, OutputVar, OldFile, #, *, All
    IfExist %A_ScriptDir%\%OutputVar%
        StartFolder = %A_ScriptDir%
    else ifExist %OldFile%
            SplitPath, OldFile, , StartFolder
    else
        StartFolder =
    FileSelectFile, SelectedFile, S18, %StartFolder%, Select file for %Text%, Text file (*.txt)
    if SelectedFile {
        StringReplace, SelectedFile, SelectedFile, %A_ScriptDir%\
        GuiControl, 1: ,%Control%, %SelectedFile%
    }
}
 
CheckAHKVersion(AHK_version){
    StringSplit, A, A_AHKVERSION, .
    StringSplit, B, AHK_version, .
    Ax = 0
    Bx = 0
    loop, %A0%{      ; create unique number for both versions, max. verion 999.999.999.999 leads to 999999999999
        Ax := Ax + A%A_Index% * 1000 ** ( A0 - A_Index )
        Bx := Bx + B%A_Index% * 1000 ** ( A0 - A_Index )
    }
    if ( Bx > Ax ) {
        MsgBox, 16, Old AHK version,
        (LTrim
            This script requires a newer version of AHK.
            Installed version = %A_AHKVERSION%
            Required version = %AHK_version%
 
            Please download latest version and install it.
            This Program will exit and open the webpage
            where you can download the latest AHK version.
        )
        Run, http://www.autoHotkey.com/download
        ExitApp
    }
}
 
;#############   Get next free/available File Name   ##########################
GetAvailableFileName(ExportFileName){
    ;separate FileName and FileDir
    SplitPath, ExportFileName, FileName, FileDir
 
    ;return ExportFileName if FileName doesn't contain "#"
    if (InStr(FileName, "#") = 0)
        return, ExportFileName
 
    ;add "\" to FileDir again
    if FileDir
        FileDir = %FileDir%\
 
    ;split FileName with #
    StringSplit, NameArray, FileName, #
 
    ;Search from StartID = 1
    StartID = 1
    loop {
        Number := A_Index + StartID - 1
 
        ;untill number is too large ...
        if ( StrLen(Number) > NameArray0 - 1 ) {
            ErrorLevel =
            (LTrim
                All files exist for >%ExportFileName%<
                with all "#" between %StartID% and %Number%.
            )
            return 0
        }
 
        ;otherwise fill number with leading zeros
        loop, % NameArray0 - 1 - StrLen(Number)
            Number = 0%Number%
 
        ;split number in an array
        StringSplit, NumberArray, Number
 
        ;mix and concatenate the names array with the numbers array
        FileName =
        loop, %NameArray0%
            FileName := FileName . NameArray%A_Index% . NumberArray%A_Index%
 
        ;check if GivenFileName doesn't exist
        if not FileExist(FileDir . FileName)
            return FileDir . FileName
    }
}
 
;#############   destroy draw objects   #######################################
DeleteObject( p_object ) {
    ;deletes a logical pen, brush, font, bitmap, region, or palette, freeing all system resources
    DllCall( "gdi32.dll\DeleteObject", "uint", p_object )
}
 
DeleteDC( p_dc ) {
    ;deletes the specified device context (DC).
    DllCall( "gdi32.dll\DeleteDC", "uint", p_dc )
}
 
;#############   create draw objects   ########################################
CreateDrawHandles(UniqueID, ScreenWidth, ScreenHeight, frame_cc, frame_cw){
    global   hdc_frame, hdc_buffer, h_region, h_brushC, h_brushW
 
    ;Get handle to display device context (DC) for the client area of a specified window
    hdc_frame := DllCall( "GetDC"
    	, "uint", UniqueID )
 
    ;create buffer to store old color data to remove drawn rectangles
    hdc_buffer := DllCall( "gdi32.dll\CreateCompatibleDC"
    	, "uint", hdc_frame )
 
    ;Create Bitmap buffer to remove drawn rectangles
    hbm_buffer := DllCall( "gdi32.dll\CreateCompatibleBitmap"
    	, "uint", hdc_frame
    	, "int", ScreenWidth
    	, "int", ScreenHeight )
 
    ;Select Bitmap buffer in buffer to remove drawn rectangles
    DllCall( "gdi32.dll\SelectObject"
    	, "uint", hdc_buffer
    	, "uint", hbm_buffer )
 
    ;create a dummy rectangular region.
    h_region := DllCall( "gdi32.dll\CreateRectRgn"
    	, "int", 0
    	, "int", 0
    	, "int", 0
    	, "int", 0 )
 
    ;specify the color of the control frame.
    h_brushC := DllCall( "gdi32.dll\CreateSolidBrush"
    	, "uint", frame_cc )
    ;specify the color of the window frame.
    h_brushW := DllCall( "gdi32.dll\CreateSolidBrush"
    	, "uint", frame_cw )
}
 
;#############   remove old rectangle and save screen below new rectangle   ###
BufferAndRestoreRegion( p_x, p_y, p_w, p_h ) {
    global   hdc_frame, hdc_buffer
    static   buffer_state, old_x, old_y, old_w, old_h
 
    ;Copies the source rectangle directly to the destination rectangle.
    SRCCOPY   = 0x00CC0020
 
    ;remove previously drawn rectangle (restore previoulsy buffered color data)
    if ( buffer_state = "full")
    ;perform transfer of color data of rectangle from source DC into destination DC
    ; from buffer to screen, erasing the previously darwn reactangle
        DllCall( "gdi32.dll\BitBlt"
    	, "uint", hdc_frame
    	, "int", old_x
    	, "int", old_y
    	, "int", old_w
    	, "int", old_h
    	, "uint", hdc_buffer
    	, "int", 0
    	, "int", 0
    	, "uint", SRCCOPY )
    else
        buffer_state = full
 
    ;remember new rectangle for next loop (to be removed)
    old_x := p_x
    old_y := p_y
    old_w := p_w
    old_h := p_h
 
    ; Store current color data of new rectangle in buffer
    DllCall( "gdi32.dll\BitBlt"
    	, "uint", hdc_buffer
    	, "int", 0
    	, "int", 0
    	, "int", p_w
    	, "int", p_h
    	, "uint", hdc_frame
    	, "int", p_x
    	, "int", p_y
    	, "uint", SRCCOPY )
}
 
;#############   draw frame   #################################################
DrawFrame( p_x, p_y, p_w, p_h, p_t, h_brush ) {
    global   hdc_frame, h_region
 
    ; modify dummy rectangular region to desired reactangle
    DllCall( "gdi32.dll\SetRectRgn"
    	, "uint", h_region
    	, "int", p_x
    	, "int", p_y
    	, "int", p_x+p_w
    	, "int", p_y+p_h )
 
    ; draw region frame with thickness (width and hight are the same)
    DllCall( "gdi32.dll\FrameRgn"
    	, "uint", hdc_frame
    	, "uint", h_region
    	, "uint", h_brush
    	, "int", p_t
    	, "int", p_t )
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924