XProfan

' (W) 2003 Frank Abbing
'
Déclarer sx&,sy&,bereich#,être#,erg&,erg2&,x&,y&,text$,handl&
Faible être#,8
Faible bereich#,1024
DEF GetCursorPos(1) !"User32","GetCursorPos"
DEF WindowFromPoint(2) !"User32","WindowFromPoint"
DEF ChildWindowFromPoint(3) !"User32","ChildWindowFromPoint"
Def GetSysColor(1) !"User32","GetSysColor"
Def ScreenToClient(2) !"User32","ScreenToClient"
Def GetClassName(3) !"User32","GetClassNameA"
Def GetWindowText(3) !"User32","GetWindowTextA"
DEF NewWindowPos(7) !"User32","SetWindowPos"
DEF AllocConsole(0) !"KERNEL32","AllocConsole"

Proc DText

    Paramètres xx&,yy&,ttext$
    Drawtext xx&,yy&,ttext$

ENDPROC

Windowtitle "Fensterhandles..."
style de fenêtre 26
window (%maxx/2-112),(%maxy/2-80)-444,164
settruecolor 1
cls GetSysColor(15)
NewWindowPos(%hwnd,-1,0,0,0,0,$13)
Usefont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1

whilenot %mousepressed=2

    Sleep 10
    GetCursorPos(être#)
    x&=Long(être#,0)
    y&=Long(être#,4)
    erg&=@WindowFromPoint(x&,y&)

    Si erg&<>0

        ScreenToClient(erg&,être#)
        x&=Long(être#,0)
        y&=Long(être#,4)
        erg2&=@ChildWindowFromPoint(erg&,x&,y&)

    EndIf

    Couleur du texte 0,GetSysColor(15)
    handl&=@GetActiveWindow()
    DText 8,8, "Maus Position X = "+Str$(x&)+"          "
    DText 8,21,"Maus Position Y = "+Str$(y&)+"          "
    DText 8,38,"Handle eigenes la fenêtre = $"+@Hex$(%hwnd)+"                    "
    DText 8,55,"Handle sous Mauszeiger = $"+@Hex$(erg&)+"                    "
    DText 8,68,"Handle sous Mauszeiger (Child) = $"+@Hex$(erg2&)+"                    "
    GetClassname(erg&,bereich#,128)Déclarer sx&,sy&,text$,x&,y&,bereich#
    text$=String$(bereich#,0)
    DText 8,85,handl&'"Klassenname = "+text$+"                                                      "
    GetWindowText(erg&,bereich#,128)
    text$=String$(bereich#,0)
    DText 8,98,"Fenstername = "+text$+"                                                      "
    @SendMessage(erg&,13,128,bereich#)
    text$=String$(bereich#,0)
    DText 8,111,"Fenstertext = "+text$+"                                                      "

Wend

Dispose être#
Dispose bereich#
end

cls

tandis que 1

    waitinput 2500
    sendkey(0,65)

Wend