XProfan

- Page 1 -

Heinz
Bernhard

Hello, yet already time herzlichsten Thanks for, that your you my trouble angeschaut have !!!
will be Both now testing and poste tommorrow success or bad luck.
Greeting Heinz

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

11/30/11 ▲

E.T.

Related to the Fensterfänger was only so one thought:
with the mouse the window "Search" and (without To clicking) somewhere whom Window Title beautiful vergrößert Show. and with klick on the indicated cover the suitable Window enable (the lever has one then Yes, then ists to that Bsp. too alike whether the Word-Window "Dokument" or "Ich write grade was" heist).

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

E.T.

Hm, strain seen: Fensterfänger without View source, means everything new building

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

From Frank gibt's here Yes yet [...]

, however :

Compile Mark Separation

' (W) 2003 Frank Abbing
'
Declare sx&,sy&,area#,be#,erg&,erg2&,x&,y&,Text$,handl&
Dim be#,8
Dim area#,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

    Parameters xx&,yy&,ttext$
    DrawText xx&,yy&,ttext$

ENDPROC

Windowtitle "Fensterhandles..."
windowstyle 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(be#)
    x&=Long(be#,0)
    y&=Long(be#,4)
    erg&=@WindowFromPoint(x&,y&)

    If erg&<>0

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

    EndIf

    Text Color 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 own Window = $"+@Hex$(%hwnd)+"                    "
    DText 8,55,"Handle under Cursor = $"+@Hex$(erg&)+"                    "
    DText 8,68,"Handle under Cursor (Child) = $"+@Hex$(erg2&)+"                    "
    GetClassname(erg&,area#,128)Declare sx&,sy&,Text$,x&,y&,area#
    Text$=String $(area#,0)
    DText 8,85,handl&'"Klassenname = "+Text$+"                                                      "
    GetWindowText(erg&,area#,128)
    Text$=String $(area#,0)
    DText 8,98,"Fenstername = "+text $+"                                                      "
    @SendMessage(erg&,13,128,area#)
    Text$=String $(area#,0)
    DText 8,111,"Fenstertext = "+text $+"                                                      "

wend

Dispose be#
Dispose area#
end

can I not find. I hope it nothing against it, I it here einstelle.

E.T.

Well, becomes already not so bad his:
Frank has Yes no (C) reingeschrieben separate one (W), what Yes well for "Wer too always it using and weiterverarbeiten and release will" standing

... or "Woppel-Right"...

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Looks time whether that here with you runs... (by me tuts so... ^^)

If the App runs sends tappt im dunkeln any 2,5 sec on the currently-active Window whom Tastendruck A.

Download
external Download

Compile Mark Separation

cls

while 1

    waitinput 2500
    Global(0,65)

wend

akeyb.exe	1.032 kB

Hochgeladen:	12/01/11

Downloadcounter:
		Download

Dieter
Zornow

by me runs it too. The problem might well his, if I on the virtual keyboard what eingebe is the Tastaturfenster currently.

XProfan X2
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

- Page 2 -

Untitled (12/01/11)

From Frank gibt's here Yes yet [...]. I hope it nothing against it, I it here einstelle.

Have nothing against it, is still one suitor code.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

might one vlt. time look what it bring with Messages How WM_NCACTIVATE false or with WM_ACTIVATE true zurückzugeben -

or one should How Franks ambassador such Messages complete abgreifen and thereby letzt-relevantes lever remember.

Heinz
Bernhard

Sorry, I wished no Sub-Topic produce, is in freudiger excitement happens.
means once more:
Yes, first once more thanks for Your trouble.
presupposed, I have everything correctly. made, I had with the first Vorschlägen no Erfolge.
now have your whom Code Frank - thanks Frank - reingestellt and so becomes it now well too go.
it must still in my Program eingearbeitet go, but I be voller Optimismus and ahne already good Results.
over again Thanks for so much Hilfsbereitschaft of you.
i think, we can so the Topic "Bildschirmtastatur" terminate.
Regards of Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7