Beiträge von mak87

#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")

#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")