Rechteck mit Mouse erstellen

pastl

Hallo zusammen,

möchte beim erstellen eines ausgewählten ScreenShot, noch während ich mit der Mouse die Grösse festlege, dabei ein Rechteck mit der aktuellen Grösse zeichnen lassen. Hoffe ihr versteht was ich meine.

Code

; Screenshot der aktuellen Auswahl:
; -----------------------------------------
Func AuswahlScreenShot()
	SoundPlay(@ScriptDir & "\klick.wav", 1)
	$AuswahlGUI = GuiCreate("ScreenShot",@DesktopWidth,@DesktopHeight,-1,-1,$WS_POPUP,BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW)); erstellen eines GUI-Fensters
	GUISetCursor( 3, 1, $AuswahlGUI); Mouse-Cursor umschalten, Kreuz
	GUISetState (); öffnen des GUI-Fensters
	WinSetTrans("ScreenShot", "", 1)

	$UserDLL = DllOpen("user32.dll"); öffnen der User32.dll

	; Infotext anzeigen:
	SplashTextOn('Info: ', 'Bitte markieren Sie den Bereich, von dem Sie einen ScreenShot erstellt haben wollen. ',400,50, (@DesktopWidth/2)-200,(@DesktopHeight/2)-25)
	sleep(2000)
	SplashOff()

	While 1
		If _IsPressed("01", $UserDLL) Then
			Local $Start_Pos = MouseGetPos()
;~ 				While 1
;~ 					Local $Mouse_Pos = MouseGetPos()
;~ 					Local $Ausschnitt
;~ 					GUICtrlDelete($Ausschnitt)
;~ 					$Ausschnitt = GUICtrlCreateLabel($Start_Pos[0], $Start_Pos[1], $Mouse_Pos[0], $Mouse_Pos[1], 0x1000)
;~ 					If Not _IsPressed("01", $UserDLL) Then ExitLoop
;~ 				WEnd
			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)
	GUISetCursor( 2, 0); Mouse-Cursor umschalten, Pfeil
	GUIDelete()


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

    Local $Quality = 100
    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

Alles anzeigen

Bin mir aber nicht sicher ob AutoIt das während der Laufzeit kann. Od. kennt einer von euch eine andere Möglichkeit sowas zu realisieren(*.dll,...)?

Danke für eure Hilfe.

Gruss pastl

**peethebee**

Hallo!

Ich habe so was ähnliches mal bei ac'tiveAid von Wolfgang Reszel für c't (http://www.ctmagazin.de gesehen).
Ich muss noch mal in den Code schauen, weil das Programm mit dem AutoIt strk verwandten (früher den Code geklaut) AutoHotKey realisiert wurde.

Der Downloadlink zum selbst Testen: http://www.heise.de/software/default.shtml?prg=24593&T=ac%27tiveaid

Hoffe, ich konnte helfen,
peethebee

pastl

Hallo peethebee,

erstmal danke für die Antwort. Hab mir das Teil mal gezogen, und etwas durchgesehen, allerdings noch nicht fündig geworden. Hatte auch mal AutoHotKey wegen des ScriptRecorders, war aber wahnsinnig erstaunt, dass das Proggie jetzt auch GUI unterstützt.

Gruss pastl

wolkenloser

Hi Pastl,

Ich habe mal versucht die Funktion auszuführen,
bei mir tut sich damit aber nichts hinsichtlich des GUMMIBANDES....

es kommt das Infofenster und der Kreuzcursor...sofern die Dll im Scriptverzeichnis liegt wird auch ein Screenshot erstellt, aber wie gesagt, keine Gummiband.....

mach ich was falsch ?

**peethebee**

Hallo!

@pastl:
Da gibt es eine Funktion, die heißt glaube ich "Leselineal" oder so und zieht eine Line über den ganzen Bildschirm, die der Maus folgt.
Dass es GUI unterstützt, ist zwar schön, aber erstens doppelte Arbeit (oder Diebstahl) und zweitens ist die Syntax immer noch unerträglich imho.

peethebee

pastl

Hallo wolke,

das es nicht funktioniert weiss ich ja, meine Frage war ja eigentlich wie so was zu machen ist (vieleicht etwas undeutlich ausgedrückt.)

Hallo peethebee,

was ist "LeseLineal"?

Und was meinst du mit:

Zitat

Dass es GUI unterstützt, ist zwar schön, aber erstens doppelte Arbeit (oder Diebstahl)

?

Das mit GUI war für mich die einfachste Möglichkeit den Cursor auf ein Kreuz umzustellen , ab was meinst du mit Diebstahl?

Zitat

Syntax immer noch unerträglich imho

das der syntax nicht gerade schön ist weiss ich auch, er soll ja vorerst nur den Zweck erfüllen.

Gruss pastl

**peethebee**

Hallo!

Das war alles auf AutoHotKey bezogen. Nachdem AutoIt auch GUIs hat, war es im Prinzip doppelte Arbeit, weil das Prinzip doch sehr ählnich ist. das "LeseLineal" sollte ein Programm innerhalb von ac'tiveAid sein. Vielleicht heißt es auch etwas anders...

peethebee

pastl

Alles klar, jetzt hab ich es verstanden.

geRRus

pastl bist du nun weiter gelommen mit dem "gummiband"?
ich habe mir auch schon die Funktion von "Leselineal" angeguckt aber für mich war das dunckler Wald so zusagen.Kein bischen schlauer geworden.

Vielleicht hat jemand ja schon die Lösung?

thx
cu

pastl

Hallo geRRus,

hier mal was ich dazu benutze:

Code

; Funktion um den Auswahlbereich anzuzeigen:
; -------------------------------------------------------
Func draw_label()


Local $User1DLL = DllOpen("user32.dll")
Local $MouseCoordMode, $Start_Pos1, $Ausschnitt, $Mouse_Pos
;~ Global $SRCCOPY = 0x00CC0020




While 1
        $MouseCoordMode = Opt( 'MouseCoordMode', 2)
        $Start_Pos1 = MouseGetPos()
        $Ausschnitt = GUICtrlCreateLabel( '', 0, 0, 1, 1, $SS_SUNKEN)
        GUICtrlSetBkColor( $Ausschnitt, 0)

       While _IsPressed("01", $User1DLL)
            $Mouse_Pos = MouseGetPos()
			Local $Pos_Lupe = MouseGetPos()
			Local $Pos_Screen = ToolTip("X-Pos.: " & $Pos_Lupe[0] &@lf& "Y-Pos.: " & $Pos_Lupe[1] &@LF& "Breite: " & $Pos_Lupe[0] - $Start_Pos1[0] &@LF& "Höhe: " & $Pos_Lupe[1] - $Start_Pos1[1], $Pos_Lupe[0] + 20, $Pos_Lupe[1] + 120)
			Local $Lupe = SplashTextOn ( "Lupe", "" , 100 , 100 , $Pos_Lupe[0] + 20, $Pos_Lupe[1] + 20, 1 )
			Global $MyhWnd = WinGetHandle("Lupe")
			Lupe()

			;links oben nach rechts unten:
			If $Mouse_Pos[1] > $Start_Pos1[1] And $Mouse_Pos[0] > $Start_Pos1[0] then 
				GUICtrlSetPos( $Ausschnitt, $Start_Pos1[0], $Start_Pos1[1], $Mouse_Pos[0] - $Start_Pos1[0], $Mouse_Pos[1] - $Start_Pos1[1])
				Sleep( 10)
			EndIf
            ;links unten nach rechts oben:
			If $Mouse_Pos[1] < $Start_Pos1[1] And $Mouse_Pos[0] > $Start_Pos1[0] then
				GUICtrlSetPos( $Ausschnitt, $Start_Pos1[0], $Mouse_Pos[1], $Mouse_Pos[0] - $Start_Pos1[0],  $Start_Pos1[1] - $Mouse_Pos[1])
				Sleep( 10)
			EndIf
			;rechts oben nach links unten:
			If $Mouse_Pos[1] > $Start_Pos1[1] And $Mouse_Pos[0] < $Start_Pos1[0] then
				GUICtrlSetPos( $Ausschnitt, $Mouse_Pos[0], $Start_Pos1[1],  $Start_Pos1[0] - $Mouse_Pos[0], $Mouse_Pos[1] - $Start_Pos1[1])
				Sleep( 10)
			EndIf
			;rechts unten nach links oben:
			If $Mouse_Pos[1] < $Start_Pos1[1] And $Mouse_Pos[0] < $Start_Pos1[0] then
				GUICtrlSetPos( $Ausschnitt, $Mouse_Pos[0], $Mouse_Pos[1],  $Start_Pos1[0] - $Mouse_Pos[0],  $Start_Pos1[1] - $Mouse_Pos[1])
				Sleep( 10)
			EndIf
        WEnd

        Opt( 'MouseCoordMode', $MouseCoordMode)
        Return $Ausschnitt

    Sleep( 10)
WEnd


DllClose($User1DLL)


EndFunc

Alles anzeigen

Hoffe das bringt dich weiter.

geRRus

Vielen DAnk pastl:)

Ich werde mir das anschauen.
thx nochmal.