Fortlaufende Screenshots/Bildschirmfotos machen

mak87

Hallo Forum,

zuallererst: ich bin Neuling in AutoIT und habe nur geringe Kenntnisse im Programmieren allgemein.
Ich möchte fortlaufend Bildschirmfotos im Firefox machen. Die Vorgehensweise soll so ablaufen:

Firefox wird manuell geöffnet, auf den externen Monitor verschoben und in Vollbildmodus (F11) versetzt
Webseite wird manuell geöffnet
Das AutoIT-Skript soll ein Bildschirmfoto vom aktuellen Vollbild auf dem externen Bildschirm machen
Dieses Bild dann unter "Eigene Dokumente" mit einer fortlaufenden Nummer als jpg speichern
Drei Sekunden warten
Mit dem Tastendruck der rechten Pfeiltaste zum nächsten Bild blättern
Bildschirmfoto machen
speichern mit fortlaufender Nummer
und so weiter

Die Anzahl dieser Prozedur möchte ich variabel setzen können. Dazu habe ich folgendes Skript zusammengezimmert:

Code

#include <ScreenCapture.au3>
;WinWait("Firefox")
WinActive("Firefox")
Send("!{PRINTSCREEN}")
;
FotoSpeichern()


Func FotoSpeichern ()
    Local $hBmp
    ; Capture full screen
    $hBmp = _ScreenCapture_Capture("")


    ; Save bitmap to file
    _ScreenCapture_SaveImage(@MyDocumentsDir & "\GDIPlus_Image_005.jpg", $hBmp)


;    ShellExecute(@MyDocumentsDir & "\GDIPlus_Image.jpg")
EndFunc   ;==>FotoSpeichern
;


Sleep (3000)
Send("{RIGHT}")
; 3 Sekunden warten bis die nächste Seite aufgerufen ist
Sleep (3000)
Send("!{PRINTSCREEN}")
;
#comments-start
FotoSpeichern2()


 ;Func FotoSpeichern2 ()
    Local $hBmp
    ; Capture full screen
    $hBmp = _ScreenCapture_Capture("")


    ; Save bitmap to file
    _ScreenCapture_SaveImage(@MyDocumentsDir & "\GDIPlus_Image_006.jpg", $hBmp)


;    ShellExecute(@MyDocumentsDir & "\GDIPlus_Image.jpg")
EndFunc   ;==>FotoSpeichern
#comments-end
Func Ende ($title, $text = "Fertig")
	MsgBox(0, $title, $text)
EndFunc
Ende("Fertig")

Alles anzeigen

Was funktiert:

einzelnes Bildschirmfoto machen
Foto speichern

Was NICHT funktioniert:

weiterblättern mittels der rechten Pfeiltaste
weiteres Bildschirmfoto machen

Ich denke, dass eine FOR-Schleife, wie unter https://autoit.de/wiki/index.php/Tutorial#Schleifen beschrieben
die Lösung wäre. Allerdings komme ich nicht so recht klar damit. Ich bin Neuling und weiß nicht, wie ich
diese Schleife für mein Skript anpassen kann.

Kann mir bitte jemand weiterhelfen? Danke im Voraus!

**autoiter**

Hi @mak87,

Ich habe keine Lösung für dein Steuerproblem, da ich ja auch nicht die Seite kenne. Aber es gibt einerseits eine Firefox UDF und andererseits auch Controlsend, falls das Fenster gar nicht mehr aktiv war, als du deinen Befehl Send gesendet hast?

Hier mal dein Skript in einer For .. To Schleife:

AutoIt

#include <ScreenCapture.au3>
;WinWait("Firefox")
WinActive("Firefox")


For $i = 1 To 1000 ; Schleifendurchläufe bis $i den Wert 1000 hat (bei jedem Durchlauf + 1 also 1000 Durchläufe)
 ; Alles in dieser Schleife wird nun nacheinander so lange die Schleife läuft aufgerufen.


	Send("!{PRINTSCREEN}")
	FotoSpeichern()
	Sleep(3000)
	Send("{RIGHT}")
	; 3 Sekunden warten bis die nächste Seite aufgerufen ist
	Sleep(3000)
Next


Ende("Fertig") 






Func FotoSpeichern()
	Local $hBmp
	; Capture full screen
	$hBmp = _ScreenCapture_Capture("")


	; Save bitmap to file
	_ScreenCapture_SaveImage(@MyDocumentsDir & "\GDIPlus_Image_005.jpg", $hBmp)


	;    ShellExecute(@MyDocumentsDir & "\GDIPlus_Image.jpg")
EndFunc   ;==>FotoSpeichern


Func Ende($title, $text = "Fertig")
	MsgBox(0, $title, $text)
EndFunc   ;==>Ende

Alles anzeigen

**autoiter**

Gerade ist mir noch aufgefallen, dass A) der Befehl WinActive den Firefox nicht aktiviert,wie du sicher wolltest und B) das auch wenn die Schleife dann mal klappt, das gespeicherte Bild einen variablen Namen braucht. Am einfachsten sollte die Nummer einfach der Wert von $i, dem Schleifendurchlauf, sein.

**autoBert**

Afair stellt Windows Screenshooter v1.79 Build 2015-02-25 von @UEZ genau solche Funktionen zur Verfügung: Falls ich mich täusche ist er jedenfalls ein gutes Beispiel für ScreenShot's

Zitat von UEZ

AutoIt Windows Screenshooter Feature List:

Erstellt ein Screenshot von

jedem sichtbaren Fenster auch als AVI Film (ohne Audio)

einer Region auf dem Desktop inkl. Freihand Selektierung

von GUI Controls und GUI Menüs

von Web Seiten (läuft nur, wenn Aero aktiviert ist!)

etc.

Alles anzeigen

mak87

@autoiter
Danke für die Schleife! Wenn das Firefox-Fenster aktiv ist, dann funktioniert das Weiterblättern. Die Fotos werden auch erstellt, allerdings - wie du schon geschrieben hast - nicht fortlaufend gespeichert. Ich werde mich die Tage mit dem Skript nochmal auseinandersetzen und rumprobieren.

@autoBert
Danke für den Link, auch das werde ich mir die Tage anschauen.

mak87

So, ein wenig angepasst funktioniert das Skript, wie es soll. Hier der Code:

C

#include <File.au3>
#include <ScreenCapture.au3>


WinActive("Firefox")
Sleep(4000)
For $i = 1 To 25 ; Schleifendurchläufe bis $i den Wert 25 hat (bei jedem Durchlauf + 1 also 5 Durchläufe)
	; Alles in dieser Schleife wird nun nacheinander so lange die Schleife läuft aufgerufen.
	Send("{RIGHT}")
	; 2 Sekunden warten bis die nächste Seite aufgerufen ist
	Sleep(2000)
	Send("!{PRINTSCREEN}")
	FotoSpeichern()
	;Sleep(1000)
Next


Func FotoSpeichern()


	Local $anzahl = 0
	Local $hBmp
	; Capture full screen
	$hBmp = _ScreenCapture_Capture("")
	sleep(1000)
	$bilder = _FileListToArray(@ScriptDir, "*.jpg")
	    	If @error Then
    		$bilder = 1
    	Else
    		$bilder = $bilder[0] + 1
    	EndIf
    For $i = $bilder To $bilder + $anzahl Step 1
    		$hBmp = _ScreenCapture_Capture("")
    		$name = _ScreenCapture_SaveImage("GDIPlus_Image" & $i & ".jpg", $hBmp)
    	Next
EndFunc   ;==> FotoSpeichern


Func Ende($title, $text = "Fertig")
	MsgBox(0, $title, $text)
EndFunc   ;==>Ende
Ende("Fertig")

Alles anzeigen

Den Windows Screenshooter verstehe ich nicht so recht. Ich konnte nicht herausfinden, wie ein automatisiertes Bildschirmfotos machen, so wie in diesem Skript, funktioniert.
Danke Euch für die Unterstützung!