Ich hatte in dem Real Desktop Tools einen kleinen Screensaver geposted, kaste dir ja mal anschauen...
ScreenSaver
#include <misc.au3>
#Include <ScreenCapture.au3>
_screenSaver()
[/autoit] [autoit][/autoit] [autoit]Func _screenSaver()
MsgBox(48, "Hinweis", "Ziehen sie mit der Linken Maustaste ein Feld, was dann als Bilddatei abgespeichert werden kann")
While 1
If _IsPressed(01) Then
$pos1 = MouseGetPos()
While _IsPressed(01)
Sleep(10)
WEnd
$pos2 = MouseGetPos()
$screen = _ScreenCapture_Capture("", $pos1[0], $pos1[1], $pos2[0], $pos2[1])
$pfad = FileSaveDialog("Datei speichern als...", @MyDocumentsDir, "Bilddateien(*.jpg ; *.bmp ; *.png)|JPEG(*.jpg)|Bitmap(*.bmp)|PNG(*.png)|Alle(*.*)", 18)
If StringRight($pfad, 3) <> "jpg" Or StringRight($pfad, 3) <> "bmp" Or StringRight($pfad, 3) <> "png" Then $pfad &= ".jpg"
If @error Then
MsgBox(48, "SceenSaver", "Fehler beim Speichern!")
ExitLoop
EndIf
_ScreenCapture_SaveImage($pfad, $screen)
MsgBox(0, "ScreenSaver", "Bild gespeichert!")
_WinAPI_DeleteObject($screen)
ExitLoop
EndIf
Sleep(100)
WEnd
EndFunc
Kannste ja noch überarbeiten ![]()