Bildschirmfotos (Screenshots)

lumb

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

**chip**

Schau dir mal den Befehl an:

[autoit]

_ScreenCapture_Capture

[/autoit]

lumb

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

AsiX-5

wenn du das bild via strg + v in eine bmp datei bekommst, müsste es eig. auch in ein Word dokument funktionieren wenn das Fenster aktiv ist

**Raupi**

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]

lumb

Super, soweit klappt das.
Kannst Du mir eben noch sagen wie ich nun den Inhalt ohne Strg+V wieder "auswerfe".

Danke - Super

**Sprenger120**

Hi,
das leer die Zwischenablage

[autoit]

_ClipBoard_SetData("")

[/autoit]

**GtaSpider**

Ich glaub er meint eher es das Bild in ein Word Dokument einfügen. Guck dir mal die _Word UDF in der Hilfe an. Würde das Bild speichern und dann mit _Word... das Bild in Word einfügen.
Was soll denn dabei raus kommen?

lg

Rombur

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]

**autoBert**

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]