Elkha - Blue
매크로
오토핫키 커뮤니티

자유

2014.11.09 21:07

숨어야산다님 조언 따라 만들어본 픽셀,좌표 확인기!

으뜸어린이

조회 수 18017 추천 1 댓글 11

스크립트설명:

좌표랑 픽셀값을 실시간으로 찾아주고 키 하나로 on/off 시키는 스크립트입니다.

간단하게 보시고 보완,보강했으면 좋은부분 댓글로 달아주세요!

꺼졌을 때,

켜졌을 때,

스크립트-------------------------------------------

timercheck:=0

Gui, Add, Text, x22 y20 , 좌표

Gui, Add, Text, x22 y50 , 픽셀

Gui, Add, Text, x22 y80 , On/Off

Gui, Add, Edit, x70 y15 w100 Disabled vEdit1, off

Gui, Add, Edit, x70 y45 w100 Disabled vEdit2, off

Gui, Add, Edit, x70 y75 w100 Disabled vEdit3, off

; Generated using SmartGUI Creator 4.0

Gui, Show, x165 y593,?

return

F1::

if timercheck=0

{

gosub, timeron

}

else if timercheck=1

{

gosub, timeroff

}

return

timeron:

timercheck:=1

GuiControl,, Edit3, on

settimer, timer, 200

return

timeroff:

timercheck:=0

GuiControl,, Edit3, off

GuiControl,, Edit1, off

GuiControl,, Edit2, off

settimer, timer, off

return

Timer:

CoordMode, mouse,Screen

CoordMode, pixel,Screen

MouseGetPos, xx,yy

PixelGetColor, a,xx,yy

GuiControl,,Edit1,%xx%,%yy%

Guicontrol,,Edit2,%a%

return

F3::

ExitApp

return

F2::

Reload

return

추천 비추천 리스트 보기

위로 아래로 댓글로 가기

Comments '11'

디디마 2014.11.09 21:13

우와 능력자시네요!! ㅋㅋㅋㅋ

보강했으면 좋을것같은 기능은... 보강이 아니라 추가지만..

마우스커서 부분과 주변을 확대해서, 커서로 픽셀을 정확하게 가리키는 기능이 있었으면........가능하면 좋겠습니다 ㅎㅎㅎ..

댓글 0 -0
으뜸어린이 2014.11.09 21:27

에.. 제가 아직 그정도는..ㅠㅠ 무리입니다
조금 더 공부해보고 시도해볼게요..

댓글 0 -0
리체 2014.11.09 21:22

나이스! 완성하셨군요.
Disable은 빼시고 on,off 메시지는 마지막 칸에만 표시하고
좌표와 픽셀칼라값은 그대로 놔두신다면?복사해서 붙여넣기가 편하죠

댓글 0 -0
으뜸어린이 2014.11.09 21:27

아! 그렇게 쓸수 있겠네요! ㅎㅎ 좋은 정보 감사합니다 ㅎㅎ
참고할게요

댓글 0 -0
레이븐 2014.11.10 09:55

제가 GUI 쪽에 좀 서툴렀는데 이걸 보니 좋은 참고가 되네요.

댓글 0 -0
으뜸어린이 2014.11.10 19:03

미숙한점이 많아서 크게 참고는 안될거예요 ㅠ

댓글 0 -0
파더 2014.11.10 17:30

안그래도 오핫포럼에서 본글이있어서 만들어놀까했는데.. 완성작이 여기있었군요.. 잘쓰겠습니다 ㅎ

댓글 0 -0
으뜸어린이 2014.11.10 19:04

도움이 되셨다니 다행이네요 ㅎㅎ

댓글 0 -0
숨어야산다 2014.11.10 22:07

도움이 됐다니 다행이네요

픽셀서치를 사용하시는건가요?

댓글 0 -0
으뜸어린이 2014.11.11 01:34

아..ㅎㅎ 찾는게 아니라 마우스커서의 픽셀값과 좌표를 표시해주는 거예요

댓글 0 -0
따기따기 2014.11.28 21:40

이런건 많이 있어요...
<==================================스크립트=========================================>

;Reveal information on windows, controls, etc.?
;by toralf
;requires AHK 1.0.44.04
;www.autohotkey.com/forum/topic8976.html

ScriptName = AHK Window Info 1.7

; 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("Press Pause to hide GUI again", 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, Show, GuiShow
? Menu, Tray, Default, Show?
? Menu, Tray, Add, Exit, 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
? Gui1UniqueID := WinExist()?
? Gui, 1:Font, s6, MS Sans Serif
? Gui, 1:Margin, 0, 0
? Gui, 1:Add, Tab, w287 h145 vTab1 gTab1 AltSubmit -Wrap , Simple|Advanced|Mouse|Options|Info
? ? Gui, 1:Tab, Simple
? ? ? Gui, 1:Add, Text, x5 y28 , Window Title
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w211 vEdtEasyWindowTitle,?
? ??
? ? ? Gui, 1:Add, Text, x5 y+5, Window Class
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w206 vEdtEasyWindowClass,?

? ? ? Gui, 1:Add, Text, x5 y+5, Control ClassNN
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w196 vEdtEasyControlClass,?

? ? ? Gui, 1:Add, Text, x5 y+5, Control Text
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w216 vEdtEasyControlText,?

? ? ? Gui, 1:Add, Text, x5 y+5, Mouse Position relative to Window
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w110 vEdtEasyMousePosWin,

? ? Gui, 1:Tab, Advanced
? ? ? Gui, 1:Add, Text, x5 y28 Section, Pos. rel. to Window
? ? ? 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, Control ? ? ?
? ? ? Gui, 1:Font, normal?
? ? ? ? Gui, 1:Add, Text, xs+4 yp+18, Text
? ? ? ? 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, Pos
? ? ? ? Gui, 1:Add, Edit, x+2 yp-3 w60 vEdtControlPos,?
? ? ??
? ? ? ? Gui, 1:Add, Text, x+5 yp+3, Size
? ? ? ? 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, List`nItems ?
? ? ? ? Gui, 1:Add, Edit, x+4 r3 w237 vEdtListItems,?
? ? ? ??
? ? ? Gui, 1:Font, bold?
? ? ? Gui, 1:Add, GroupBox, xs w274 h492 -wrap vGrbAdvancedWindow, Window
? ? ? Gui, 1:Font, normal?
? ? ? ? Gui, 1:Add, Text, xs+4 yp+18 , Title
? ? ? ? Gui, 1:Add, Edit, x+2 yp-3 w244 vEdtWindowTitle,?
? ? ??
? ? ? ? Gui, 1:Add, Text, xs+4 y+5, Position
? ? ? ? Gui, 1:Add, Edit, x+2 yp-3 w88 vEdtWindowPos,?
? ? ??
? ? ? ? Gui, 1:Add, Text, x+5 yp+3, Size
? ? ? ? Gui, 1:Add, Edit, x+2 yp-3 w112 vEdtWindowSize,
? ? ??
? ? ? ? Gui, 1:Add, Text, xs+4 y+5, Class
? ? ? ? Gui, 1:Add, Edit, x+2 yp-3 w100 vEdtWindowClass,?
? ? ??
? ? ? ? Gui, 1:Add, Text, x+5 yp+3, Process
? ? ? ? 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, Process ID
? ? ? ? Gui, 1:Add, Edit, x+2 yp-3 w80 vEdtWindowPID,?
? ??
? ? ? ? Gui, 1:Add, Text, xs+4 y+3, StatusbarText (Part# - Text) ?
? ? ? ? Gui, 1:Add, ListBox, xs+4 y+2 r4 w266 vLsbStatusbarText,?
? ? ? ??
? ? ? ? Gui, 1:Add, Text, xs+4 y+3 Section, Fast Visible Text ?
? ? ? ? Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextFastVisible,?

? ? ? ? Gui, 1:Add, Text, x+2 ys, Fast Hidden Text ?
? ? ? ? Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextFastHidden,?

? ? ? ? Gui, 1:Add, Text, xs Section vTxtWindowTextSlowVisible, Slow Visible Text ?
? ? ? ? Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextSlowVisible,?

? ? ? ? Gui, 1:Add, Text, x+2 ys vTxtWindowTextSlowHidden, Slow Hidden Text ?
? ? ? ? Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextSlowHidden,?
? ? ??
? ? Gui, 1:Tab, Mouse
? ? ? Gui, 1:Add, Text, x5 y28, Data of/under mouse cursor and Positions relative to
? ? ? Gui, 1:Add, Text, x5 y+5, Window
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w106 vEdtMousePosWin,
? ? ??
? ? ? Gui, 1:Add, Text, x+5 yp+3, Screen
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w88 vEdtMousePosScreen,
? ??
? ? ? Gui, 1:Add, Text, x5 y+5, Active Window
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w73 vEdtMousePosAWin,
? ??
? ? ? Gui, 1:Add, Text, x+5 yp+3, Cursor
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w92 vEdtMousePointer,
? ??
? ? ? Gui, 1:Add, Text, x5 y+5, RGB Color
? ? ? Gui, 1:Add, Edit, x+2 yp-3 w95 vEdtMouseColorRGB,
? ??
? ? ? Gui, 1:Add, Text, x+5 yp+3, RGB Color
? ? ? 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, Color Picker
? ? ? Gui, 1:Font, normal?
? ? ? ? Gui, 1:Add, Text, xs+4 yp+18, Dimension:
? ? ? ? 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, Options

? ? ? Gui, 1:Add, Text, x5 y25 Section , Show window and control data for
? ? ? Gui, 1:Add, Radio, xs y+5 vRadWindow gRefreshControlStates, Active Window
? ? ? Gui, 1:Add, Radio, xs y+5 Checked gRefreshControlStates, Window under Mouse Cursor

? ? ? Gui, 1:Add, Button, x+55 y25 gBtnShowOptions1, Advanced`nOptions

? ? ? Gui, 1:Add, Text, xs y+25, Show control data for
? ? ? Gui, 1:Add, Radio, xs y+5 vRadControl gRefreshControlStates, Focused Control in Window
? ? ? Gui, 1:Add, Radio, xs y+5 Checked gRefreshControlStates, Control under Mouse Cursor

? ? ? Gui, 1:Add, Checkbox, xs y+15 vChkTtpMaster gRefreshControlStates Checked%ChkTtpMaster%, Show tooltip at cursor
? ? ? Gui, 1:Add, Button, x+3 yp-5 gBtnShowOptions2, Data Filter Options

? ? ? Gui, 1:Add, Text, xs y+12 , Draw a rectangle around
? ? ? Gui, 1:Add, Checkbox, x+5 vChkDrawRectCtrl gChkDrawRectCtrl Checked%ChkDrawRectCtrl%, control (red)
? ? ? Gui, 1:Add, Checkbox, y+5 vChkDrawRectWin gChkDrawRectWin Checked%ChkDrawRectWin%, window (green)
? ? ??
? ? ? 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+17 ,Log Data to File ?
? ? ? Gui, 1:Add, Button, x+5 yp-5 gBtnShowOptions3, Log Options
? ? ? Gui, 1:Add, Button, x+5 vBtnSaveExport gBtnSaveExport, Save to file?
? ? ? Gui, 1:Add, Edit, xs w255 vEdtExportFile, %EdtExportFile%
? ? ? Gui, 1:Add, Button, x+2 yp-1 gBtnBrowseExportFile,...?
? ? Gui, 1:Tab, Info
? ? ? 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, More Information - Please read
? ? ??
? 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, >>>not updated<<<
? ? ? GuiControl, 1:, LsbStatusbarText, |>>>not updated<<<
? ? ? GuiControl, 1:, EdtWindowTextFastVisible, >>>not updated<<<
? ? ? GuiControl, 1:, EdtWindowTextSlowVisible, >>>not updated<<<
? ? ? GuiControl, 1:, EdtWindowTextFastHidden, >>>not updated<<<
? ? ? GuiControl, 1:, EdtWindowTextSlowHidden, >>>not updated<<<
? ? }
? 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,"<< Less Info","More Info >>")?
? 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, s8, MS Sans Serif
? Gui, 3:Add, Button, gCloseInfoGui, Close
? Gui, 3:Add, Edit, w600 h400 vEdtInfoText, %InformationText%
? Gui, 3:Show,, Info - %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
BtnShowOptions:
? UpdateIsStopped := True
? Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%
? Hotkey, ~%CbbHtkUpdate%, Off
? Hotkey, IfWinNotActive
??
? Gui, 1:+Disabled
? Gui, 4:+Owner1 +AlwaysOnTop +ToolWindow
? Gui, 4:Font, s8, MS Sans Serif

? Gui, 4:Add, Tab, Section w300 h390 vTab2 AltSubmit -Wrap, Advanced|ToolTip|Log to File?
? ? Gui, 4:Tab, Advanced
? ? ? Gui, 4:Add, GroupBox, w275 h73, Update data
? ? ? Gui, 4:Add, Radio, xp+10 yp+22 Checked%RadUpdateOnClick% vRadUpdateOnClick gRadUpdate, on click with
? ? ? Gui, 4:Add, ComboBox, x+5 yp-3 w80 vCbbHtkUpdate, LButton|MButton||RButton
? ? ? Gui, 4:Add, Radio, x32 y+8 Checked%RadUpdateAuto% vRadUpdateAuto gRadUpdate, automatically every milliseconds:
? ? ? 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, Change hotkey to toogle auto-update (default: 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%, Hide/Show GUI with above hotkey`;`nbefore the GUI is shown data will be collected ?
? ? ? Gui, 4:Add, Checkbox, y+5 vChkAutoStartUpdate Checked%ChkAutoStartUpdate%, Start updating of data again when Gui gets inactive`nafter auto-update has been turned off.?
? ? ? Gui, 4:Add, Checkbox, y+5 vChkCopyToCB Checked%ChkCopyToCB%, Copy data to clipboard with left click on data field ?

? ? ? Gui, 4:Add, Text, y+20, When update is turned off:
? ? ? Gui, 4:Add, Checkbox, vChkUseSaveHotkey Checked%ChkUseSaveHotkey%, Use Win+S as hotkey to log data to file
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? Gui, 4:Add, Checkbox, y+20 Section vChkShowInfoToolTip Checked%ChkShowInfoToolTip%, Show info-tooltips
? ? Gui, 4:Tab, ToolTip
? ? ? Gui, 4:Add, Text, , Check which data you want to see next to the mouse cursor
? ? ? Gui, 4:Add, Checkbox, vChkTtpMSPos Checked%ChkTtpMSPos%, Mouse position on screen *
? ? ? Gui, 4:Add, Checkbox, vChkTtpMWPos Checked%ChkTtpMWPos%, Mouse position on window
? ? ? Gui, 4:Add, Checkbox, vChkTtpMColor Checked%ChkTtpMColor%, Color under mouse pointer
? ? ? Gui, 4:Add, Checkbox, vChkTtpCClass Checked%ChkTtpCClass%, Control class under mouse pointer *
? ? ? Gui, 4:Add, Checkbox, vChkTtpCPos Checked%ChkTtpCPos%, Control position
? ? ? Gui, 4:Add, Checkbox, vChkTtpCSize Checked%ChkTtpCSize%, Control size
? ? ? Gui, 4:Add, Checkbox, vChkTtpWClass Checked%ChkTtpWClass%, Window class * ? ? ? ? ? ? ? ?
? ? ? Gui, 4:Add, Checkbox, vChkTtpWTitle Checked%ChkTtpWTitle%, Window title * ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? Gui, 4:Add, Text, , (* = available when Gui is hidden)
? ? Gui, 4:Tab, Log to File
? ? ? Gui, 4:Add, GroupBox, Section w274 h70 , Log this Mouse Data
? ? ? ? Gui, 4:Add, Checkbox, vChkExportMousePosScreen Checked%ChkExportMousePosScreen% xs+4 yp+18, Position on Screen?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportMousePosAWin ? Checked%ChkExportMousePosAWin% ? xs+125 yp, Pos. rel. to active Window?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportMousePosWin ? ?Checked%ChkExportMousePosWin% ? ?xs+4 y+5, Pos. rel. to Window?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportMousePointer ? Checked%ChkExportMousePointer% ? xs+125 yp, Cursor Style?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportMouseColorRGB ?Checked%ChkExportMouseColorRGB% ?xs+4 y+5, RGB Color?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportMouseColorHex ?Checked%ChkExportMouseColorHex% ?xs+125 yp, Hex Color?
? ? ? Gui, 4:Add, GroupBox, xs w274 h75 , Log this Control Data?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportCtrlText ?Checked%ChkExportCtrlText% ? ? ? ? ? ?xs+4 yp+18, Control Text?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportCtrlClass Checked%ChkExportCtrlClass% ? ? ? ? ? xs+125 yp, Control ClassNN?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportCtrlPos ? Checked%ChkExportCtrlPos% ? ? ? ? ? ? xs+4 y+5, Control Position?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportCtrlSize ?Checked%ChkExportCtrlSize% ? ? ? ? ? ?xs+125 yp, Control Size?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportCtrlListItems ?Checked%ChkExportCtrlListItems% ?xs+4 y+5, Control List Items?
? ? ? Gui, 4:Add, GroupBox, xs w274 h110 , Log this Window Data?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinTitle ? ? ? Checked%ChkExportWinTitle% ? ? ? xs+4 yp+18, Window Title?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinPos ? ? ? ? Checked%ChkExportWinPos% ? ? ? ? xs+4 y+5, Window Position?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinSize ? ? ? ?Checked%ChkExportWinSize% ? ? ? ?xs+125 yp, Window Size?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinClass ? ? ? Checked%ChkExportWinClass% ? ? ? xs+4 y+5, Window Class?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinProcess ? ? Checked%ChkExportWinProcess% ? ? xs+125 yp, Window Process?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinUID ? ? ? ? Checked%ChkExportWinUID% ? ? ? ? xs+4 y+5, Window Unique ID?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinPID ? ? ? ? Checked%ChkExportWinPID% ? ? ? ? xs+125 yp, Win Process ID?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinStatusText ?Checked%ChkExportWinStatusText% ?xs+4 y+5, Statusbar Text?
? ? ? ? Gui, 4:Add, Checkbox, vChkExportWinText ? ? ? ?Checked%ChkExportWinText% ? ? ? ?xs+125 yp, Window Text?
? ??
? ? ? Gui, 4:Add, Checkbox, xs y+16 vChkExportLargeList ?Checked%ChkExportLargeList%, Log Large List ? ? ? ? Check:
? ??
? ? ? Gui, 4:Add, Button, x+2 yp-5 gBtnExportCheckAll, All?
? ? ? Gui, 4:Add, Button, x+2 gBtnExportCheckNone , None?
? ? ? Gui, 4:Add, Button, x+2 gBtnExportCheckReverse , Rev
? ??
? ? ? Gui, 4:Add, Text, xs y+5, Additional log options:
? ? ? Gui, 4:Add, Checkbox, y+5 Section vChkExportAutoNumber gChkExportAutoNumber Checked%ChkExportAutoNumber%, Replace "#" in filename with Numbers
? ? ? Gui, 4:Add, Checkbox, y+5 vChkExportAppend gChkExportAppend Checked%ChkExportAppend%, Append data to file
? Gui, 4:Tab

? Gui, 4:Add, Button, xm gApplyOptions, Apply Options
? Gui, 4:Add, Button, x+5 g4GuiClose, Cancel

? 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
? ? ? ? ? ? ? ? ######## Z or Stack Order, Unique ID, Window PID, Window Class,
? ? ? ? ? ? ? ? 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 )?
? }?

댓글 0 -0

✔댓글 쓰기

Category

List of Articles
분류	제목	글쓴이	최근변경	추천
질문	return 이 궁금합니다 ㅠㅠ 10	밴클리프	2014.11.11	0/0
자유	숨어야산다님 조언 따라 만들어본 픽셀,좌표 확인기! 11	으뜸어린이	2014.11.28	1/0
질문	themida 사용하시는분 계신가요? 7	호로록뚝딱	2014.11.26	0/0
질문	비활성 마우스 질문드립니다. 3	lidmt	2018.02.20	0/0
정보	이미지서치 후 비활성 클릭 17	lidmt	2016.07.02	0/0
질문	이미지서치 부분입니다. 변수에 값을넣는데요. 4	우후훅	2014.11.11	0/0
자유	SciTE4AutoHotkey 자료 요청드립니다. 8	레이븐	2014.11.18	0/0
질문	gui버튼 시작중지 보임안보임설정부분요. 11	우후훅	2015.03.07	0/0
질문	이미지서치 확장자 질문드립니다. 6	생물	2014.11.17	0/0
질문	혹시 핫키 눌러서 수행중에 다른핫키도 먹히게 하는게 ... 3	으뜸어린이	2014.11.15	0/0
질문	GUI 버튼 체크상태 실시간판별 어떻게하나요. 13	우후훅	2014.11.14	0/0
질문	오토핫키 잘하시는분 도움좀 부탁드려요. 3	라디	2014.11.15	0/0
질문	비활성 메크로는 오토핫키만 가능한가요? 28	으뜸어린이	2014.12.01	0/0
자유	특정게임 매크로 작동안되는것들이 문제죠. 6	우후훅	2014.11.15	0/0
질문	이미지서치할 때 같은 폴더내 모든 이미지를 찾는 명령... 5	으뜸어린이	2014.11.18	0/0
질문	별이되라 이미지서치 이부분 잘되시나요? 8	우후훅	2015.01.15	0/0
질문	이거 비활성으로 싹다 바꾸려면 어떻게 해야하나요?? 10	cris	2015.03.20	0/0
자유	핫키, Postmessage 어떻게들쓰고계세요? 15	우후훅	2016.04.08	0/0
질문	gui,add,picture 를 버튼형식으로 만들 수는 없나요?? 10	으뜸어린이	2014.11.26	0/0
자유	오토핫키 함수에 관해서요. 6	우후훅	2014.11.20	0/-1

쓰기

재밌는 인터넷 놀이터 테일스타에 어서오세요 :)

숨어야산다님 조언 따라 만들어본 픽셀,좌표 확인기!