MS Snippingtool nachgebaut

Hallo,

als Auszug aus einem meiner Hauptscripte habe ich mal das
Microsoft Snippingtool in Autoit geschrieben und als standalone-Script erstellt:

#include <GuiConstants.au3>
#Include <Misc.au3>
#Include <ScreenCapture.au3>
Opt("GuiOnEventMode", 1)
$fastx = _WinAPI_GetSystemMetrics(78)
$fasty = _WinAPI_GetSystemMetrics(79)
$sc = 0
$maingui = GUICreate("Andygo's Snippingtool", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")
$b1 = GUICtrlCreateButton("snip it!", 50, 35, 100, 30)
GUICtrlSetOnEvent(-1, "_area")
GUISetState()
While 1
sleep(20)
wend

func _area()
$sc += 1
$var = WinList()
For $i = 1 to $var[0][0]
If $var[$i][0] <> "" AND $var[$i][0] <> "start" AND IsVisible($var[$i][1]) Then WinSetState ($var[$i][0], "", @SW_DISABLE )
Next
$GUI_2 = GUICreate("", 1, 1, -1, -1, 0x80000000 + 0x00800000, 0x00000008)
GUISetBkColor(0x0c6eec)
WinSetTrans($GUI_2, "", 130)
local $s_left = "", $s_top = "", $s_width = "", $s_height = "", $mgp[2]
Local $hGUI = GUICreate("", $fastx+50, $fasty+50, -15, -25, -1, 0x00000080)
GUISetBkColor(0xffffff)
WinSetTrans($hGUI, "", 40)
WinSetOnTop($hGUI, "", 1)
GUISetCursor(3)
GUISetState(@SW_SHOW, $hGUI)
While Not _IsPressed(01)
$mgp = MouseGetPos()
Sleep(50)
WEnd
WinMove($GUI_2, "", $mgp[0], $mgp[1], 1, 1)
GUISetState(@SW_SHOW, $GUI_2)
While _IsPressed(01)
$mgp_2 = MouseGetPos()
If $mgp_2[0] > $mgp[0] And $mgp_2[1] > $mgp[1] Then
local $s_left = $mgp[0], $s_top = $mgp[1], $s_width = $mgp_2[0] - $mgp[0], $s_height = $mgp_2[1] - $mgp[1]
ElseIf $mgp_2[0] > $mgp[0] And $mgp_2[1] < $mgp[1] Then
Local $s_left = $mgp[0], $s_top = $mgp_2[1], $s_width = $mgp_2[0] - $mgp[0], $s_height = $mgp[1] - $mgp_2[1]
ElseIf $mgp_2[0] < $mgp[0] And $mgp_2[1] > $mgp[1] Then
Local $s_left = $mgp_2[0], $s_top = $mgp[1], $s_width = $mgp[0] - $mgp_2[0], $s_height = $mgp_2[1] - $mgp[1]
ElseIf $mgp_2[0] < $mgp[0] And $mgp_2[1] < $mgp[1] Then
Local $s_left = $mgp_2[0], $s_top = $mgp_2[1], $s_width = $mgp[0] - $mgp_2[0], $s_height = $mgp[1] - $mgp_2[1]
EndIf
WinMove($GUI_2, "", $s_left, $s_top, $s_width, $s_height)
WinSetOnTop($hGUI, "", 1)
ToolTip($s_width & "x" & $s_height)
sleep(50)
WEnd
ToolTip("")
GLOBAL $s_left = $s_left, $s_top = $s_top, $s_width = $s_width, $s_height = $s_height
GUIDelete($hGUI)
$var = WinList()
For $i = 1 to $var[0][0]
If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then WinSetState ($var[$i][0], "", @SW_ENABLE )
Next
GUIDelete($GUI_2)
while FileExists(@ScriptDir & "\shot"&$sc&".jpg")
$sc += 1
wend
$hBitmap = _ScreenCapture_Capture(@ScriptDir & "\shot"&$sc&".jpg", $s_left, $s_top, $s_left+$s_width, $s_top+$s_height, false)
msgbox(0,"Screenshot wurde erstellt:",@ScriptDir & "\test"&$sc&".jpg")
endfunc

Func IsVisible($handle)
If BitAnd(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc

func quit()
Exit
endfunc

Kann echt ganz praktisch sein und auf Wunsch jedes Einzelnen natürlich nach bedarf angepasst werden.

Viel Spaß damit, Andy

Zitat von cinema

Schaut gut aus, doch (ich hab es nicht getestet):

[autoit]

$hBitmap = _ScreenCapture_Capture(@ScriptDir & "\shot"&$sc&".jpg", $s_left, $s_top, $s_left+$s_width, $s_top+$s_height, false)
msgbox(0,"Screenshot wurde erstellt:",@ScriptDir & "\test"&$sc&".jpg")

[/autoit]

Du speicherst es in den Ordner /shot/ und zeigst in der MsgBox nen anderen Pfad an: /test/

Und wie oben gesagt, habe es nicht getestet, doch das ist mir ins Auge gestochen.

Danke Dir, das hab ich wohl übersehen.

Zitat von oetzn

Schön gemacht
Aber so richtig komfortabel zu bedienen ist es nicht. Ich würde eher einen Hotkey oder ähnliches bevorzugen, oder dass man zB STRG + ALT gedrückt halten muss und anschließend kann man de Bereich auswählen.

Ich werd das mal kurz modifizieren

Den MOD hier ruhig auch mal posten, vielleicht gefällt er ja

oetzn:

gewöhnungsbedürftig mit dem hotkey aber hat auch was. das mit dem splashimage gefällt mir gut, *daumen hoch*. Sollt vielleicht noch "sichtbarer" rein wo das bild nun gelandet ist.