AutoHotkey Community

WinActivate, % "ahk_id" DllCall("WindowFromPoint", Int,320, Int,500 )

GetWinAtCoords(x,y,what="ID")      ; works like GetControlAtCoords?
{
   WinID := DllCall("WindowFromPoint", Int,x, Int,y)   ; by SKAN   --> is it WinID or ControlID?
   if what = ID
   Return WinID
   else if what = Class
   {
      WinGetClass, WinClass, ahk_id %WinID%
      Return WinClass
   }
   else if what = Title
   {
      WinGetTitle, WinTitle, ahk_id %WinID%
      Return WinTitle
   }
   else if what = PID
   {
      WinGet, WinPID, PID, ahk_id %WinID%
      Return WinPID
   }
}



;===Test===
1::
x := 100, y := 100
MsgBox, % GetWinAtCoords(x,y,"ID") "`n" GetWinAtCoords(x,y,"Class") "`n" GetWinAtCoords(x,y,"Title") "`n" GetWinAtCoords(x,y,"PID")
Return

WinID := DllCall("WindowFromPoint", Int,x, Int,y)

   WinID := DllCall( "GetAncestor", UInt
           ,DllCall( "WindowFromPoint", Int,X, Int,Y )
           , UInt,GA_ROOTOWNER := 3 )

GetWinAtCoords(x,y,what="Title")      ; by SKAN and Learning one
{
   ; Returns Title/ID/Class/PID of window at given coordinates
   WinID := DllCall( "GetAncestor", UInt      ; by SKAN
           ,DllCall( "WindowFromPoint", Int,X, Int,Y )
           , UInt, GA_ROOT := 2)
   if what = Title
   {
      WinGetTitle, WinTitle, ahk_id %WinID%
      Return WinTitle
   }
   else if what = ID
   Return WinID
   else if what = Class
   {
      WinGetClass, WinClass, ahk_id %WinID%
      Return WinClass
   }
   else if what = PID
   {
      WinGet, WinPID, PID, ahk_id %WinID%
      Return WinPID
   }
}

   WinID := DllCall( "GetAncestor", UInt
           ,DllCall( "WindowFromPoint", Int,X, Int,Y )
           , UInt,GA_ROOT := 2 )

; Ascertaining Control's hWnd/ClassNN for given coordinates   ;   By SKAN  | 28-March-2010
; Forum Topic :  www.autohotkey.com/forum/viewtopic.php?t=45186

If ! WinExist( "Calculator ahk_class SciCalc" ) {
   Run Calc
   WinWait, Calculator ahk_class SciCalc
}
hWnd    := WinExist( "Calculator ahk_class SciCalc" )
hCtrl   := Control_ByPos( hWnd,10,10 )
ClassNN := Control_GetClassNN( hWnd,hCtrl )
MsgBox, 0, Control @10`,10, %ClassNN%

Return                                                 ; // End of auto-execute section //

Control_ByPos( hPar, x=0, y=0 ) { ; www.autohotkey.com/forum/viewtopic.php?p=343110#343110
 hWnd := ( ID := WinExist( "ahk_id" hPar) ) ? ID : WinExist( hPar )
Return WinExist( "ahk_id" DllCall( "ChildWindowFromPoint", UInt,hWnd, Int,x, Int,y ) )
}

Control_GetClassNN( hPar,hCtrl ){ ; www.autohotkey.com/forum/viewtopic.php?p=301151#301151
 hWnd := ( ID := WinExist( "ahk_id" hPar) ) ? ID : WinExist( hPar )
 WinGet, CH, ControlListHwnd, ahk_id %hWnd%
 WinGet, CN, ControlList, ahk_id %hWnd%
 LF:= "`n",  CH:= LF CH LF, CN:= LF CN LF,  S:= SubStr( CH, 1, InStr( CH, LF hCtrl LF ) )
 StringReplace, S, S,`n,`n, UseErrorLevel
 StringGetPos, P, CN, `n, L%ErrorLevel%
Return SubStr( CN, P+2, InStr( CN, LF, 0, P+2 ) -P-2 )
}