Screen Shots maker

[Cyber]

Screen Shots maker este un mic programel creat in AutoIT dintr-un anumit motiv: "m-am saturat sa tot apas tasta print screen de pe tastatura, pe urma sa intru in paint si sa apas combinatia de taste: ctrl + v". Printr-o singura apasare de pe butonul save, el va creea un screen shot care va fi salvat in MyDocuments\ScrnShots. Puteti configura si regiunea din care sa va faca screen shot sau daca doriti sa arate cursorul de la mouse sau nu.

Download ScreenCapture.au3: http://www.cyber.rsb-team.com/downloads/ScreenCapture.au3
Download Program: http://www.cyber.rsb-team.com/downloads/shotscreens.exe

Cod Sursa:

Cod:

#include
#include

$gui = GUICreate("Screen shots by cyber", 300, 94)
GUISetFont( 8.5, 200, 0, "Arial")
$label = GUICtrlCreateLabel("Region:", 2, 4, 45, 18)
$left = GUICtrlCreateInput("left", 47, 2, 40, 20)
$top = GUICtrlCreateInput("top", 89, 2, 40, 20)
$right = GUICtrlCreateInput("right", 131, 2, 40, 20)
$buttom = GUICtrlCreateInput("buttom", 173, 2, 40, 20)
$name = GUICtrlCreateInput("scrn name", 2, 24, 100, 20)
$with_cur = GUICtrlCreateRadio("", 104, 26, 14, 18)
$lab1 = GUICtrlCreateLabel("With Cursor", 117, 27, 58, 18)
$no_cursor = GUICtrlCreateRadio("", 177, 26, 14, 18)
$lab2 = GUICtrlCreateLabel("No Cursor", 191, 27, 55, 18)
$save = GUICtrlCreateButton("Save", 246, 26, 50, 20)
$status = GUICtrlCreateInput("Status: Idle", 2, 48, 296, 20)
$default = GUICtrlCreateButton("Default", 2, 72, 296, 20)

GUISetBkColor(0x000000)
GUICtrlSetBkColor($label, 0x000000)
GUICtrlSetBkColor($left, 0x000000)
GUICtrlSetBkColor($top, 0x000000)
GUICtrlSetBkColor($name, 0x000000)
GUICtrlSetBkColor($status, 0x000000)
GUICtrlSetBkColor($right, 0x000000)
GUICtrlSetBkColor($buttom, 0x000000)
GUICtrlSetColor($right, 0xFFFFFF)
GUICtrlSetColor($buttom, 0xFFFFFF)
GUICtrlSetColor($lab1, 0xFFFFFF)
GUICtrlSetColor($lab2, 0xFFFFFF)
GUICtrlSetColor($label, 0xFFFFFF)
GUICtrlSetColor($left, 0xFFFFFF)
GUICtrlSetColor($top, 0xFFFFFF)
GUICtrlSetColor($name, 0xFFFFFF)
GUICtrlSetColor($status, 0xFFFFFF)

GUISetState()

DirCreate(@MyDocumentsDir & "\ScrnShots")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $default
GUICtrlSetData($top, "0")
GUICtrlSetData($left, "0")
GUICtrlSetData($right, "-1")
GUICtrlSetData($buttom, "-1")
GUICtrlSetData($name, "scrn1")
GUICtrlSetState ($no_cursor, $GUI_CHECKED)
Case $msg = $save
$l = GUICtrlRead($left)
$t = GUICtrlRead($top)
$r = GUICtrlRead($right)
$b = GUICtrlRead($buttom)
$n = GUICtrlRead($name)
$msg1 = GUIGetMsg()
If $with_cur And BitAND(GUICtrlRead($with_cur), $GUI_CHECKED) = $GUI_CHECKED Then
GUISetState(@SW_HIDE)
Sleep(200)
_ScreenCapture_Capture(@MyDocumentsDir & "\ScrnShots\" & $n & ".jpg", $l, $t, $r, $b, True)
Sleep(200)
GUISetState(@SW_SHOW)
Sleep(200)
GUICtrlSetData($status, "Saved in MyDocuments under the name: " & $n)
ElseIf $no_cursor And BitAND(GUICtrlRead($no_cursor), $GUI_CHECKED) = $GUI_CHECKED Then
GUISetState(@SW_HIDE)
Sleep(200)
_ScreenCapture_Capture(@MyDocumentsDir & "\ScrnShots\" & $n & ".jpg", $l, $t, $r, $b, False)
Sleep(200)
GUISetState(@SW_SHOW)
Sleep(200)
GUICtrlSetData($status, "Saved in MyDocuments under the name: " & $n)
Else
MsgBox(0, "Error!", "Please check if you want with cursor or without cursor")
EndIf
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

[HexString]

Download ScreenCapture.au3: http://www.cyber.rsb-team.com/downloads/ScreenCapture.au3

La noua versiune AutoIT 3.2.11 acest header este inclus in functiile default, si nu mai trebuie sa il downloadezi, la fel ca multe alte header, cum ar fii si WinAPI

[SkullAds]