Bildschirmfotos (Screenshots)

1. offizieller Beitrag

    Hallo,
    wir verwenden ein Programm, dass ca.30 Reiter im Erinstellungsmenü hat. Um die Installationen imemr gut zu dokumentieren machen wir davon immer Bildschirmfotos. Nun habe ich das im Autoit automatisiert.
    Das klappt soweit auch. Einen Auszug aus dem Quelltext mal hier:

    [autoit]

    Send("!{PRINTSCREEN}")
    WinActivate($ZielFenster)
    WinWait($ZielFenster)
    Send("^v")
    WinActivate("Anwendungsoptionen")
    WinWait("Anwendungsoptionen")
    ...

    [/autoit]

    .Geht das Alt+Druck und Strg+V denn auch mit einem Autoit internen Befehl, so dass ich nicht immer zwischen den Fenstern hin und her schalten muss?

    Danke

    Schau dir mal den Befehl an:

    [autoit]

    _ScreenCapture_Capture

    [/autoit]

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.

    Leider habe ich es nicht hinbekommen das Bild in die Zwischenablage zu bekommen. (Ich möchte das gerne in ein Word Dokument einfügen) kann mir da einer helfen?

    In eien Datei war kein Problem, aber das hilft mir so nicht weiter.


    Danke

    • Offizieller Beitrag

    lumb, versuch mal das:

    [autoit]

    #include <Clipboard.au3>
    #include <ScreenCapture.au3>

    [/autoit][autoit][/autoit][autoit]

    ; Capture full screen
    Global $Capture = _ScreenCapture_Capture()
    _ClipBoard_Open(0)
    _ClipBoard_Empty()
    _ClipBoard_SetDataEx($Capture, $CF_BITMAP)
    _ClipBoard_Close()

    [/autoit]

    Vielleicht hilft dir das weiter.

    [autoit]


    #include <ScreenCapture.au3>

    [/autoit][autoit][/autoit][autoit]

    _ScreenCapture_Capture(@ScriptDir & "\druck.jpg")
    Run('mspaint.exe "druck.jpg"')

    [/autoit][autoit][/autoit][autoit][/autoit]

    Rombur, er möchte es in Word und nicht in mspaint.

    lumb, wie GtaSpider schon sagte, dazu bentz du am besten die Word-Funktionen, z.B.: so

    [autoit]

    #Include <ScreenCapture.au3>
    #include <Word.au3>

    [/autoit][autoit][/autoit][autoit]

    _ScreenCapture_Capture(@ScriptDir & "\druck.jpg")
    $oWordApp = _WordCreate("")
    $oDoc = _WordDocOpen($oWordApp, @ScriptDir & "\Test.doc")
    $oShape = _WordDocAddPicture ($oDoc, @ScriptDir & "\druck.jpg", 0, 1)
    If Not @error Then $oShape.Range.InsertAfter (@CRLF)
    _WordDocSave($oDoc)
    ;_WordQuit($oWordApp)

    [/autoit]