Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
#include <Crypt.au3>
#include <Constants.au3>
$hotkey = IniRead("config.ini", "MAIN", "shoot_key", "NotFound")
$DBOX_DIR = IniRead("config.ini", "MAIN", "DBOX_DIR", "NotFound")
$DBOX_URL = IniRead("config.ini", "MAIN", "DBOX_URL", "NotFound")
$CAP = IniRead("config.ini", "MAIN", "CAP", "NotFound")
$EDITOR = IniRead("config.ini", "MAIN", "EDITOR", "NotFound")
TraySetToolTip("BoxShoot")
Opt("TrayMenuMode", 1)
$capturemenu = TrayCreateItem("Capture")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TraySetState()
TraySetClick(16)
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $TRAY_EVENT_PRIMARYDOWN
SHOOT()
Case $msg = $capturemenu
SHOOT()
Case $msg = $exititem
CLOSE()
EndSelect
WEnd
Func SHOOT()
$CurTime = @YEAR & "_" & @MON & "_" & @MDAY & "_" & @HOUR & "_" & @MIN & "_" & @SEC
$hash = _Crypt_HashData($CurTime, $CALG_MD5)
$result = StringTrimLeft($hash, 2)
$fname = $result & ".png"
$fname = StringLower($fname)
$val = RunWait($CAP & " -captureregselect -exit -compress 7 -noaero -save " & $DBOX_DIR & $fname , "", @SW_MINIMIZE)
ClipPut($DBOX_URL & $fname)
EDIT1($DBOX_DIR & $fname)
TrayTip("Заскринили", "Ссылка в буфере", 5, 1)
ClipPut($DBOX_URL & $fname)
EndFunc
Func EDIT1($filename)
$yn=MsgBox(4, "Вопрос на 10 сек", "Редактировать последний скриншот?", 10)
Select
Case $yn = 6
$val = RunWait($EDITOR & " " & $filename)
EndSelect
EndFunc
Func CLOSE()
Exit 0
EndFunc
Свой сервис обмена скриншотами (на коленке за 20 минут)