ChupManHinh

#include <ScreenCapture.au3>
HotKeySet("{F7}","setA")
HotKeySet("{F8}","setB")
HotKeySet("{F9}","capture")
Global $left,$top,$right,$bottom

While 1
   Sleep(100)
WEnd

Func setA()
   Local $pos
   $pos = MouseGetPos()
   $left = $pos[0]
   $top = $pos[1]
EndFunc
Func setB()
   Local $pos
   $pos = MouseGetPos()
   $right = $pos[0]
   $bottom = $pos[1]
EndFunc
Func capture()
   DirCreate (@ScriptDir & "\data\ChupManHinh")
   $path = @ScriptDir & "\data\ChupManHinh\PHIEULANG"  & @MON & @MDAY  & @HOUR & @MIN & @SEC  & ".jpg"
   _ScreenCapture_Capture($path, $left, $top, $right, $bottom)
   Return $path
EndFunc