| |
| |
|
Heinz
Bernhard | Hello together, I need Your Help !
for my sehbehinderten neighbors, 19"-screen, Bildschirmauflösung 800x600 and software-Lupe, have I a Special screen-keyboard program.
any desired Tasteneingaben functions lovely.
trouble : In strangers Windows need one to that write which lever.
The subesquent command functions correct :
Win$ = "Dokument" (z.B. for Word)
Win% = FindWindow(Win$)
but not the programmierten Festlegung with "Dokument" for Word, it is supposed also in others Programs (E-mail) written go, have I one Eingabeedit with verification prepares. here can The Headline the jeweiligen Program with 3-4 letters association and confirm go - works too everything super.
this would like I it but not zumuten.
I can but too z.B. Word not Call around the lever to obtain, there too in finished Word-Dokumenten or but too others Programs written go should.
The systeminterne Microsoft-Bildschirmtastatur recognize automatically any Window, that would like so did i achieve.
therefore my question on you : who can my obigen Befehlszeilen edit ?
attempts have I it with "GetActivateWindow" and "%Desktop" - no success.
Perhaps have I indeed in what Wrong verrannt ?
I bedanke me in the ahead - its Yes everything for a good object.
grateful Regards of Heinz Bernhard |
|
| |
| |
| |
|
|
 | mail time simply on 0 -
the could thoroughly functions.
Virtually SendKey(0,... |
|
| |
| |
| |
|
|
E.T. | In Dietmar's XProfanmanager finds itself one Program namens "Fensterfänger" of Uwe "Pascal" Niemeier. I wisely now not, whether there the Source thereby is, but this Dinges finds really everything.
would be vlt. time one Ansatz, to the Code look and itself evtl. what from it abzuleiten. |
|
| |
| XProfan X2Grüß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... | 11/30/11 ▲ |
|
| |
|
|
| The Fensterfänger ( [...]  ) uses imho [Child]WindowFromPoint-API(s) -
I faith but the need it not at all. |
|
| |
| |
| |
|
|
| The Fensterfänger ( [...] ) Gibts naturally too with SDK ( [...] ) supra angepinnt -
uses imho [Child]WindowFromPoint-API(s) -
I faith but the APIs need it not at all. |
|
| |
| |
| |
|
|
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 |
|
| |
| |
| |
|
|
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... | 12/01/11 ▲ |
|
| |
|
|
E.T. | Hm, strain seen: Fensterfänger without View source, means everything new building  |
|
| |
| XProfan X2Grüß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... | 12/01/11 ▲ |
|
| |
|
|
| From Frank gibt's here Yes yet [...] , however :
' (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 X2Grüß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... | 12/01/11 ▲ |
|
| |
|
|
| 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
|
|
| |
| |
| |
|
|
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 X2Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 12/01/11 ▲ |
|
| |
|
(858)
Deutsch
English
Français
Español
Italia