Screenshots

wolkenloser

Hallo,

es gibt viele Programme die Screenshots machen Können wie z.B "Hardcopy".

ich habe mal irgendwo ein Script gesehen was das mit Autoit macht.

Bzw, hat vielleicht jemand ein eigenes Script ?
Funktionsweise.

durch betätigen eines Hotkeys soll mann die möglichkeit haben einen Bildschirmbereich zu markieren.

Dieser soll dann als JPG in der Zwischenablage "geparkt" werden um diesen dann in anderen Anwendungen zur verfügung zu haben.

wolkenloser

Hallo,

so ich habe jetzt den ersten Teil gefunden.

Es gibt eine capture.dll die man sich zu Nutze machen kann.
Was jetzt fehlt ist eine Bereichsauswahl mit der Maus, am besten noch mit einer Bildschirm Lupe die immer an der entgegengesetzten Position wie die Maus springt und die Stelle um den Mauscursor vergrößert (zur genauerer Positionierung)

@Pheethebee
Du hast doch mal so eine Mausspielerei gebastelt wo der OK Button immer weg gesprungen ist.
Vermutlich wäre es für Dich ein Leichtes meine Wünsche in diesem Screencopy Script zu integrieren ?!

Führt man das unten stehende Script aus, werden zwei BMP Datein im Scriptverzeichnis abgelegt

Hier der DL link

Hier der Dll aufruf:

Code

; Capture full screen
; Fist parameter - filename, last - jpeg quality. 
DllCall("captdll.dll", "int", "CaptureScreen", "str", "dump_full.jpg", "int", 85)
; Capture given region
; Fist parameter - filename, next four: left, top, width, height. Last one - jpeg quality.
; Set quality to any negative number to capture into BMP
DllCall("captdll.dll", "int", "CaptureRegion", "str", "dump_partial.bmp", "int", 100, "int", 100, "int", 300, "int", 200, "int", -1)

**peethebee**

Hallo!

Die DLL kenne ich auch und habe sie auch schon benutzt. Grundsätzlich ist noch zu sagen, dass man mit der Tastenkombination Alt + Druck-Taste ein ganzes Fenster "fotographieren" kann. Vielleicht löst das dein Problem ja schon.

Von einem Buttonflucht-Ding weiß ich zumindest nichts mehr .
Diese Lupen-Sache hatte ich auch schon mal vor, ahbe es aber selbst nicht geschafft. Aber es gibt ein Skript mit einer solchen Funktion, heißt glaube ich XDrop (http://www.autoitscript.com/filemanold/use…xdrop_v0.17.zip).
Wenn der Quelltext dabei ist, einfach mal einen Blick riskieren. Vor Benutzung aber Josbe um Erlaubnis fragen!

Sonst kann man einfach einen HotKey setzen, der die aktuelle Mausposition übernimmt und nach der 2. Position einen Screenshot macht.

Hoffe, ich konnte helfen,
peethebee

p.s. Ich kann auch nicht alles

wolkenloser

Hi,
Danke erstmal,

kannst Du mir den in sofern Helfen eine Funktion zu machen die beim aufruf es ermöglicht mit zwei klicks
die X/Y Koridinaten des ersten und dann des zweiten in Variablen abzulegen, schön wäre wenn bei ersten klicken ein Rechteck aufgespannt wird,damit man sehen kann welchen Bereich mann auswählt ???

Bitte Bitte

Das kannst Du bestimmt :-))

**peethebee**

Hallo!

Das Problem dürfte sein, dass man die Maus hooken muss...
Dazu müssste man idealerweise C/C++ können und das kann ich nicht - leider.
Ich schaue trotzdem mal, ob sich da was machen lässt.

peethebee

wolkenloser

Das gäre genial,

Eine Hoffnung habe ich ja noch

**peethebee**

Nämlich welche?

wolkenloser

das PASTL vielleicht etwas beisteuern kann.

Der Mann hat ja auch auf fast alles eine Antwort

**peethebee**

Hallo!

Stimmt, der ist auch AutoIt-verrückt. Du hast eine PN bekommen, wolkenloser.

peethebee

wolkenloser

Hi

Sorry Pheethebee, ich war gestern nicht mehr am Rechner (Familienprogramm).

Meine Idee nimmt langsam Formen an:
Wenn meine Programm gestartet wirdmöchte ich einen Hotkey setzen für "linke Maustaste_gedrückt".

Geht das ? (case $msg = ?????)

Es muß auch keine Hotkey sein, aber ich möchte die X/Y Kooridinaten abfragen beim nächsten linksclick.
Die Kooridinatenabfrage kann man ja mit MOUSEGETCURSOR machen, aber ich weiß nicht wie ich den linkslick abfragen kann.

HILFE!

wolkenloser

So, die erste hürde ist geschafft.
Hier mal eine vorläufige Version!

Was mir fehlt ist:
- das Kopieren des Screenshots in die Zwischnablage
- die erstellte BMP Datei soll nur nach @tempdir abgelegt werden
- ändern des Cursors in ein Fadenkreuz (so groß wie möglich, aber möglichst dünn)

Anregungen ?

Code

#include <Misc.au3>
AutoItSetOption ( "MouseCoordMode", 1 )


dim $pos_start
dim $pos_stop




while 1

HotKeySet("{PRINTSCREEN}", "Capture_start")


WEnd


Func Capture_start()
SplashTextOn('Screenshottool', 'Bitte Markieren sie einen Bereich mit  gedrückter "linker" Maustaste ',400,200, 10,10)
sleep(4000)
SplashOff()


$dll = DllOpen("user32.dll")


While 1
    If _IsPressed("01", $dll) Then
		$pos_start = MouseGetPos()
;~ 		MsgBox(0,"Mouse x,y:", $pos_start[0] & "," & $pos_start[1], 1)
		ExitLoop
	EndIf
WEnd


While 1
	If Not _IsPressed("01", $dll) Then
		$pos_stop = MouseGetPos()
;~ 		MsgBox(0,"Mouse x,y:", $pos_stop[0] & "," & $pos_stop[1], 1)
		ExitLoop
	EndIf


WEnd
DllClose($dll)


;~ MsgBox(0, "Mouse x,y:", $pos_start[0] & "," & $pos_start[1] & @cr & $pos_stop[0] & "," & $pos_stop[1], 1)


$left = $pos_start[0]
$top = $pos_start[1]
$with = $pos_stop[0] - $pos_start[0]
$height = $pos_stop[1] - $pos_start[1]  


;MsgBox(0,"", $left & " " &  $top & " " & $with & " " & $height,1)






; Capture full screen
; Fist parameter - filename, last - jpeg quality. 
DllCall("captdll.dll", "int", "CaptureScreen", "str", "dump_full.jpg", "int", 85)
; Capture given region
; Fist parameter - filename, next four: left, top, width, height. Last one - jpeg quality.
; Set quality to any negative number to capture into BMP
DllCall("captdll.dll", "int", "CaptureRegion", "str", "dump_partial.bmp", "int", $left, "int", $top, "int", $with, "int", $height, "int", -1)


Run('mspaint.exe "' & @ScriptDir & '\dump_partial.bmp"')


EndFunc

Alles anzeigen

wolkenloser

Hi Leute,

Gibtes ne möglichkeit den aktuellen Screen "einzufrieren" und gleichzeit so lange auf dem Monitor auszugeben bis eine bestimmte Aktion beendet ist ?

Es geht um das Screenshot-Tool da ja schon soweit funktioniert.
Es treten nur ein paar Probleme auf wenn ich den Bereich mit gedrücker Maustaste ziehe.
Z.B werden dumerweise Icons markiert, der Cursor verändert sich, so das man nicht mehr Pixelgenau markieren kann

Meine Idee ist nur folgende:
Wenn ich meine Funktion starte soll der ganze Bildschirm abfotografiert werden (das geschied normalerweise mit der Drucktaste) und dann wieder als Vollbild über das Desktopbild gelegt werden (wie bei einem Bildschirmschonerbild).

Dann will ich den entsprechennde Bildschirmbereich Markieren um diesen dann zu Capturen.
Das hätte den enormen Vorteil, das das Desktopbild sich beim ziehen nicht verändert, bzw wenn mann aufgeklappte Menues capturen möchte, gehen diese nicht mehr zu (zumindest sieht es so aus)

**peethebee**

Hallo!

Das war heute morgen auch meine Idee, aber nachdem dein Ansatz ja einigermaßen funktionierte, habe ich sie nicht gepostet. Wo ist jetzt das Problem dabei? Verschiebe das Fenster einfach an die Koordinaten -20 und -2 (ca.), dann sieht man weder Titelleiste noch Rand. Oder verwende SplashOn.

Bin am Ergebnis natürlich interessiert,
peethebee

pastl

Hallo wolke,

so das hab ich mal auf die Schnelle gemacht:

C

#Include <Constants.au3>
#include <Misc.au3>


AutoItSetOption ( "MouseCoordMode", 1 )




HotKeySet("{F1}", "DesktopScreenShot")
HotKeySet("{F2}", "ActiveWindowScreenShot")
HotKeySet("{F3}", "AuswahlScreenShot")
HotKeySet("{ESC}", "_Exit")


TraySetState()
TraySetToolTip("F1 - Desktop" & @lf & "F2 - Akt. Fensters" & @lf & "F3 - Auswahl"  & @lf & "ESC - Beenden")


While 1
    Sleep(20)
WEnd




; Screenshot des Desktops:
; -------------------------------
Func DesktopScreenShot()
    If Not FileExists (@DesktopDir & "\screenshots") Then DirCreate (@DesktopDir & "\screenshots"); Verzeichnis für die Screenshots 
    Local $Cwin1 = WinGetHandle(""); Übernimmt aktuelles Fenster
    Local $Cwin2 = WinGetPos($Cwin1); Übernimmt aktuelle Fenstergrösse
    Local $Quality = 85; Dateityp zum Speichern des Screenshots:
									 ; -1 steht für *.BMP
									 ; 1-100 steht für Qualität des *.JPG

    If $Quality = -1 Then
        Local $SaveAs = ".bmp"
    Else
        Local $SaveAs = ".jpg"
    EndIf    
    Local $CaptureDirectory = @DesktopDir & "\Screenshots"; Verzeichnis für die Screenshots
    Local $CaptureFile = @YEAR &  "-" & @MDAY & "-" & @MON & "_" & @HOUR & "." & @MIN &"." & @SEC  & $SaveAs
    DllCall("captdll.dll", "int", "CaptureRegion", "str", $CaptureDirectory & $CaptureFile, "int", "0", "int", "0", "int", @DesktopWidth, "int", @DesktopHeight, "int", $Quality)
			; $CaptureDirectory & $CaptureFile = zu speichernder Pfad und Name des Screenshots
			; "0" = Links
			; "0" = Oben
			; @DesktopWidth = Breite
			; @DesktopHeight = Höhe
			; $Quality = BMP (-1) od. JPG (1-100)

    If @error Then MsgBox(262160,"Fehler","Es wurde kein Screenshot erstellt!",4)
EndFunc




; Screenshot des aktiven Fensters:
; ----------------------------------------
Func ActiveWindowScreenShot()
    If Not FileExists (@DesktopDir & "\screenshots") Then DirCreate (@DesktopDir & "\screenshots")
    Local $Cwin1 = WinGetHandle("")
    Local $Cwin2 = WinGetPos($Cwin1)
    Local $Quality = 85
    If $Quality = -1 Then
        Local $SaveAs = ".bmp"
    Else
        Local $SaveAs = ".jpg"
    EndIf    
    Local $CaptureDirectory = @DesktopDir & "\Screenshots"
    Local $CaptureFile = @YEAR &  "-" & @MDAY & "-" & @MON & "_" & @HOUR & "." & @MIN &"." & @SEC  & $SaveAs
    DllCall("captdll.dll", "int", "CaptureRegion", "str", $CaptureDirectory & $CaptureFile, "int", $Cwin2[0], "int", $Cwin2[1], "int", $Cwin2[2], "int", $Cwin2[3], "int", $Quality)
    If @error Then MsgBox(262160,"Fehler","Es wurde kein Screenshot erstellt!",4)
EndFunc


; Screenshot der aktuellen Auswahl:
; -----------------------------------------
Func AuswahlScreenShot()
	$UserDLL = DllOpen("user32.dll")


	SplashTextOn('Info: ', 'Bitte markieren Sie den Bereich, von dem Sie einen ScreenShot erstellt haben wollen. ',400,50, 10,10)
	sleep(2000)
	SplashOff()


	While 1
		If _IsPressed("01", $UserDLL) Then
			Local $Start_Pos = MouseGetPos()
			ExitLoop
		EndIf
	WEnd

	While 1
		If Not _IsPressed("01", $UserDLL) Then
			Local $End_Pos = MouseGetPos()
			$left = $Start_Pos[0]
			$top = $Start_Pos[1]
			$with = $End_Pos[0] - $Start_Pos[0]
			$height = $End_Pos[1] - $Start_Pos[1]
			ExitLoop
		EndIf
	WEnd


	DllClose($UserDLL)


	


    
	If Not FileExists (@DesktopDir & "\screenshots") Then DirCreate (@DesktopDir & "\screenshots")

    Local $Quality = 85
    If $Quality = -1 Then
        Local $SaveAs = ".bmp"
    Else
        Local $SaveAs = ".jpg"
    EndIf    
    Local $CaptureDirectory = @DesktopDir & "\Screenshots"
    Local $CaptureFile = @YEAR &  "-" & @MDAY & "-" & @MON & "_" & @HOUR & "." & @MIN &"." & @SEC  & $SaveAs
    DllCall("captdll.dll", "int", "CaptureRegion", "str", $CaptureDirectory & $CaptureFile, "int", $left, "int", $top, "int", $with, "int", $height, "int", $Quality)
    If @error Then MsgBox(262160,"Fehler","Es wurde kein Screenshot erstellt!",4)


EndFunc




Func _Exit()
    Exit
EndFunc

Alles anzeigen

Dabei ist allerdings das Einfrieren auf dem Desktop und das ändern des Cursors noch nicht dabei. Vieleicht hilft es dir ja trotzdem weiter.

Gruss pastl

wolkenloser

Hi Pastl,

Ich glaube das wird richtig gut
Du hast ein paar nette Ideen eingebracht.

Das mit dem Einfrieren hab ich überigens gelößt:

War ganz einfach und klappt prima ( peethebee Guter Tip)

Code

$capture_dir = @TempDir & ""
$capture_file_fullscreen = "capture_full_screen.bmp"
$capture_path_full = $capture_dir & $capture_file_fullscreen
...
...
Func Capture_start()
$dll = DllOpen("user32.dll")
DllCall("captdll.dll", "int", "CaptureScreen", "str", $capture_path_full, "int", 85)


SplashImageOn("",$capture_path_full, @DesktopWidth, @DesktopHeight, 0,0,1)
...

Alles anzeigen

Der Rest ist gleich geblieben.

Leider ist bei eingeblendetem Splashscreen dei Gummiband Funktion "unsichtbar"
Wenn man da wenigstens den CURSOR in eine Kreuz ändern könnte ....

Und was mir sehr fehlt wäre die Geschichte mit dem kopieren des Capturefiles ins Clipboard.

wolkenloser

Hi Leute,

Weiß keiner wie ich eien Grafik in dei Zwischenablage bekomme ?

**peethebee**

Hallo!

Ich weiß nur, das AutoIt das nicht kann. Vielleicht geht es mit einem DOS--Befehl oder einem Freewareprogramm?

peethebee

wolkenloser

Hi
Problem wurde in einem Extra threat gelößt!

**peethebee**

Hallo wolkenloser!

Habe ich dann auch gemerkt .

peethebee