XProfan

- Página 1 -

Heinz
Bernhard

¡Hola, a ahora ya veces herzlichsten Dank dafür, dass Ihr Euch mein Problema angeschaut habt !!!
Werde Beides ahora testen y poste morgen Erfolg oder Pech.
Saludo Heinz

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

30.11.2011 ▲

E.T.

Relacionado con la Fensterfänger war sólo así una Gedanke:
Mit ratón el Ventana "suchen" y (sin a clic) irgendwo el Fenstertitel schön vergrößert Mostrar. Und en klick en el angezeigten Titel el entsprechende Ventana aktivieren (el handle ha una continuación sí, entonces ists para Bsp. auch egal si el Word-Ventana "Dokument" oder "Ich escribir 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, grad gesehen: Fensterfänger sin Ver código fuente, also alles neu bauen

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...

Kompilieren Marca Separación

Von Franco gibt's hier sí todavía [...]

, sin embargo :

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

    Parámetros 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&=Largo(be#,0)
    y&=Largo(be#,4)
    erg&=@WindowFromPoint(x&,y&)

    If erg&<>0

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

    EndIf

    Color del texto 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 propio Ventana = $"+@Hex$(%hwnd)+"                    "
    DText 8,55,"Handle bajo Mauszeiger = $"+@Hex$(erg&)+"                    "
    DText 8,68,"Handle bajo Mauszeiger (Child) = $"+@Hex$(erg2&)+"                    "
    GetClassname(erg&,bereich#,128)Declarar sx&,sy&,texto$,x&,y&,bereich#
    texto$=String$(bereich#,0)
    DText 8,85,handl&'"Klassenname = "+texto$+"                                                      "
    GetWindowText(erg&,bereich#,128)
    texto$=String$(bereich#,0)
    DText 8,98,"Fenstername = "+texto$+"                                                      "
    @SendMessage(erg&,13,128,bereich#)
    texto$=String$(bereich#,0)
    DText 8,111,"Fenstertext = "+texto$+"                                                      "

wend

Disponer be#
Disponer bereich#
end

kann Yo no encontrar. Yo hoffe él nichts dagegen, dass Yo ihn hier einstelle.

E.T.

Naja, se ya no así schlimm ser:
Franco ha sí kein (C) reingeschrieben pero una (W), qué sí wohl para "Wer De todos modos lo benutzen y weiterverarbeiten y veröffentlichen will" es

... oder "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...

Kompilieren Marca Separación

Schaut veces si que aquí en Euch se ejecuta... (en me tuts así... ^ ^)

Wenn el App se ejecuta envía ellos todos 2,5 Sekunden a el aktuell-aktive Ventana el Tastendruck A.

Descargar
externer Descargar

cls

mientras que 1

    waitinput 2500
    sendkey(0,65)

wend

akeyb.exe	1.032 kB

Hochgeladen:	01.12.2011

Ladeanzahl:
		Descargar

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

Dieter
Zornow

En me se ejecuta lo auch. Das Problema dürfte wohl ser, si yo en el virtuellen Tastatur qué eingebe es el Tastaturfenster aktuell.

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

- Página 2 -

Untitled (12/01/11)

Von Franco gibt's hier sí todavía [...]. Yo hoffe él nichts dagegen, dass Yo ihn hier einstelle.

Hab nichts dagegen, es doch una freier Code.

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

Könnte uno vlt. veces schauen qué lo bringt en Noticias como WM_NCACTIVATE falso oder en WM_ACTIVATE true zurückzugeben -

oder uno debería como Franks Botschafter solch Noticias komplett abgreifen y esta letzt-relevantes Handle merken.

Heinz
Bernhard

Sorry, Yo quería kein Unterthema erzeugen, es en freudiger Erregung passiert.
Also todavía una vez:
Sí, sólo todavía una vez Gracias para Eure Mühe.
Vorausgesetzt, Yo alles correcto gemacht, Tuve con el ersten Vorschlägen no Erfolge.
Nun habt Ihr el código de Franco - Gracias Franco - reingestellt y así se lo nun wohl auch voluntad.
Lo muss aún en mein Programa eingearbeitet voluntad, pero yo bin voller Optimismus y ahne ya gute Ergebnisse.
Nochmals Dank para soviel Hilfsbereitschaft de Euch.
Yo denke, wir puede así el Thema "Bildschirmtastatur" final.
Grüße de Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7