XProfan

' ####### TextCopy 2013 by Richi :) :) :)
TextCopy "Fenstername",600,600
@SetActiveWindow(%hWnd)
Print @GetClip$()
Waitinput
end
'---------------------------------------------------------------------------------------------------------------------
' ####### TextCopy "Fenstername",x,y
' ####### Fenstername (Die ersten Buchstaben reichen)
' ####### x,y eine relative Position (Hintergrundposition) des zu lesenden Textfensters zB bei BrowserFrames
' ####### Bei der x,y Position ist darauf zu achten das kein Button oder der gleichen sich auf der Positionierung befindet
' ####### x,y sind nicht die Koordinaten des zu lesenden Textes, nur eine Feldauswahl !!!
' ####### Der Text sollte sich nun in der Zwischenablage befinden

PROC TextCopy

    PARAMETERS Fenstername$,x&,y&
    Sleep 1000
    declare fenster%
    Fenster% = @FindWindow(Fenstername$)
    Print "GetText von Handle: ";Fenster%;" ist:";@GetText$(Fenster%)
    @SetActiveWindow(Fenster%)
    @SetFocus(Fenster%)
    Sleep 100
    def @mauspos(2)!"User32","SetCursorPos"
    @mauspos(x&,y&)'Maus an Bildschirmpos. x,y setzen
    DEF @mouse_event(5)!"User32","mouse_event"
    @mouse_event(2,0,0,0,0)'Maus drücken
    Sleep 100
    @mouse_event(4,0,0,0,0)'Maus loslassen
    Sleep 100
    @SendString(Fenster%,"(^a)")' TastenCode Alles auswählen
    Sleep 100
    @SendString(Fenster%,"(^c)")' TastenCode Alles auswählen
    Sleep 100
    @mouse_event(2,0,0,0,0)'Maus drücken
    @mouse_event(4,0,0,0,0)'Maus loslassen

ENDPROC