Upload files to 'old_versions'
Used to care about keeping track of how much break time I have left, now I don't
This commit is contained in:
David Daily
parent
e89b64463f
commit
2bf4b8e8a9
|
|
@ -0,0 +1,306 @@
|
|||
#SingleInstance force ; We only want one of these running at a time...
|
||||
FileEncoding, UTF-8
|
||||
Menu, Tray, Icon, %A_MyDocuments%\D3K\icons\coffeecup.ico
|
||||
DetectHiddenWindows, On ; This is so that it can identIfy that the window exists since we have it not show up in the taskbar
|
||||
|
||||
Total := 60 ; Total break time in minutes
|
||||
KeepThis := 1 ; Just a variable to save things
|
||||
winx := 1 ; When these two are set to 1, it puts the window at the center
|
||||
winy := 1
|
||||
ugly := False
|
||||
|
||||
If FileExist("T_Msg.ahk")
|
||||
{
|
||||
#Include T_Msg.ahk
|
||||
}
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
; Main GUI creation
|
||||
;------------------------------------------------------------------------------
|
||||
|
||||
ShowGUI: ; Easy way to recreate the window for the pretty color
|
||||
Gui, main:+AlwaysOnTop
|
||||
Gui, main:+ToolWindow ; Removes the minimize and maximize buttons, removes it from the taskbar
|
||||
|
||||
Gui, main:Add, Progress, x2 y1 w110 h14 Range0-60 -Smooth vProgress, %Total% ; Slider at the top, a nice visual
|
||||
Gui, main:Add, Text, x43 y23 w27 h20 vTotal +Center, %Total% ; The total time left
|
||||
Gui, main:Add, Edit, x72 y20 w30 h20 +Number vInput +Center, ; Input box for the length of your break
|
||||
Gui, main:Add, Button, x2 y20 w40 h20 gLock, Lock ; Button to lock PC
|
||||
Gui, main:Add, Text, x2 y23 w40 h20 vLocked, Locked ; Text that confirmes that your PC is locked
|
||||
Gui, main:Add, Button, x2 y20 w40 h20 gBreakButton vBrek, Break ; Button to start break
|
||||
Gui, main:Add, Button, x2 y20 w40 h20 gEnd, End ; Button to end break
|
||||
Gui, main:Add, Button, x21 y83 w70 h30 Default gLength, Length ; Button that is default so that when you press enter on the input field it puts you on that long of a break and also locks the PC
|
||||
|
||||
; Hide the things we don't want to see when it starts up
|
||||
GuiControl, Hide, Subtract
|
||||
GuiControl, Hide, Lock
|
||||
GuiControl, Hide, Locked
|
||||
GuiControl, Hide, End
|
||||
|
||||
If (ugly = True){
|
||||
GuiControl, -cGreen, Progress
|
||||
}
|
||||
|
||||
; AI to make it show the window where it was before (explained later)
|
||||
If (winx="1" And winy="1"){ ; The default values assigned at the beginning of the script
|
||||
WinLoc := "Center" ; Shows the window in the center of the screen (basically only on startup)
|
||||
}
|
||||
Else{
|
||||
WinLoc = x%winx% y%winy% ; Saved further down in the script when clicking on End
|
||||
}
|
||||
|
||||
Gui, main:Show, h45 w115 %WinLoc%, Break time ; Show the GUI
|
||||
Return
|
||||
|
||||
GuiClose:
|
||||
ExitApp ; Make sure that it doesn't keep running when the close button is clicked
|
||||
Return
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
; Main GUI buttons
|
||||
;------------------------------------------------------------------------------
|
||||
|
||||
Length:
|
||||
LWD := True
|
||||
Goto, GuiContextMenu
|
||||
Return
|
||||
|
||||
BreakButton: ; Starts your break for the length you entered in the field
|
||||
GuiControl, Hide, Brek ; Hide the Break button
|
||||
Send, #+B ; Hotkey for default Break Time (10 mins)
|
||||
Gui, main:submit, NoHide
|
||||
GuiControl, Show, Lock ; Show the Lock button
|
||||
uploop := True ; Set this to true so that it doesn't exit after one run
|
||||
BreakLength = 10 ; Default break length
|
||||
BegWarned = False
|
||||
HalfBreakLength := BreakLength // 2
|
||||
HBWarned = False
|
||||
WarnLength := BreakLength - 2
|
||||
EBWarned = False
|
||||
SetTimer, UpTimer, 1000 ; Function for updating the graphics
|
||||
StartTime := A_TickCount ; Saves the time that we started at in Milliseconds
|
||||
KeepThis := Total ; Saves the current total to a dIfferent variable so that If there are errors while it is updating, it doesn't mess with anything else
|
||||
GuiControl, +cRed, Progress ; Changes the color of the progress bar to red. It is the entire reason that the GUI needs to be destroyed and then recreated
|
||||
Sleep, 3000 ; Show the lock button for 2 seconds
|
||||
GuiControl, Hide, Lock ; Remove the lock button
|
||||
GuiControl, Show, End ; Show the end button
|
||||
Return
|
||||
|
||||
Lock: ; Locks the PC
|
||||
Gui, main:submit, NoHide
|
||||
GuiControl, Hide, Lock ; If you can't figure this one out by now, you might need to RTFM
|
||||
GuiControl, Show, Locked
|
||||
Run rundll32.exe user32.dll`,LockWorkStation ; Locks PC by calling the DLL. just sending Win+L sadly doesn't work
|
||||
Sleep, 1000
|
||||
GuiControl, Hide, Locked
|
||||
GuiControl, Show, End
|
||||
uploop := True ; No real reason to do this, but it can't hurt
|
||||
Return
|
||||
|
||||
End: ; Ends your break
|
||||
Send, #+B ; Break hotkey
|
||||
GuiControl, Hide, End
|
||||
SetTimer, UpTimer, Off ; Stop the live updating loop
|
||||
ElapsedTime := A_TickCount - StartTime ; grabs the current time in MS, and subtracts it from the TickCount that we recorded earlier
|
||||
ELSeconds := ElapsedTime/1000 ; Convert to seconds
|
||||
ELMins := ELSeconds/60 ; Convert to minutes
|
||||
ELMins := Round(ELMins, 2) ; Round it off to 2 places
|
||||
Total := (KeepThis-ELMins) ; Subtract the elapsed minutes (in ##.##0000) from the total
|
||||
Total := SubStr(Total, 1, 2) ; Trim off the total cause it now has a bunch of useless zeros at the end, and we don't want to see those
|
||||
WinGetActiveStats, Title, Width, Height, winx, winy ; Save the current position to variables, first three are there cause it is required
|
||||
SetTimer, UpTimer, Off ; Make sure the dang thing turns off
|
||||
Gui, main:Destroy ; I couldn't find a way to get the default Win10 green with the flashing part back, so we're just gonna destroy it and make a new one at the exact same place
|
||||
Goto, ShowGUI ; Just goes to the top to create the GUI again, but this time at the locations saved from earlier.
|
||||
GuiControl,, Total, %Total% ; ModIfy the time at the bottom and progress bar to be accurate
|
||||
GuiControl,, Progress, %Total%
|
||||
If (ugly = True)
|
||||
{
|
||||
GuiControl, -cGreen, Progress
|
||||
}
|
||||
Sleep, 1000 ; A little bit of break time so that you don't immediatley go back into break accidentially
|
||||
GuiControl, Show, Brek
|
||||
uploop := False ; Make sure the dang thing turns off
|
||||
; Delete previous message
|
||||
Return
|
||||
|
||||
GuiContextMenu:
|
||||
mousegetpos,,,, name
|
||||
If InStr(name, "Button")
|
||||
{
|
||||
Return
|
||||
}
|
||||
|
||||
;Since there isn't a return here, right clicking anywhere other than the button will show the second GUI, as well as pressing Escape
|
||||
;------------------------------------------------------------------------------
|
||||
; Second GUI
|
||||
;------------------------------------------------------------------------------
|
||||
|
||||
GuiEscape:
|
||||
Gui, 2: Destroy ; Just in case there is one open already
|
||||
WinGetActiveStats, Title, Width, Height, winx, winy ; Save the current position to variables, other ones are there cause it was required
|
||||
|
||||
|
||||
|
||||
Gui, 2: +AlwaysOnTop
|
||||
Gui, 2: +ToolWindow
|
||||
|
||||
Gui, 2: Add, Edit, x2 y2 w40 h20 +Number vSubInput +Center, ; Input box for when you manually do a break
|
||||
Gui, 2: Add, Button, x21 y83 w70 h30 Default gSubtract, Subtract
|
||||
|
||||
|
||||
winy += 75
|
||||
winx += 35
|
||||
Win2Loc = x%winx% y%winy% ; Makes the little popup show up centered below the break window
|
||||
|
||||
|
||||
Gui, 2: Show, w45 h25 %Win2Loc%, Subtract from Total time ; Show the GUI
|
||||
Return
|
||||
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
; Second GUI buttons
|
||||
;------------------------------------------------------------------------------
|
||||
|
||||
Subtract: ; The default button, subtracts the time you entered into the field from the total
|
||||
gui, 2:submit, Hide ; Makes sure the GUI doesn't dissapear when you submit it
|
||||
Total := (Total - SubInput) ; Subtracts what you entered from the total time
|
||||
GuiControl,, Total, %Total% ; ModIfy the time at the bottom and progress bar to be accurate
|
||||
GuiControl,, Progress, %Total%
|
||||
Gui, 2:Destroy
|
||||
WinActivate, Break Time
|
||||
WinGetActiveStats, Title, Width, Height, winx, winy ; Save the current position to variables, first three are there cause it is required
|
||||
Gui, main:Destroy
|
||||
Goto, ShowGUI ; Just goes to the top to create the GUI again, but this time at the locations saved from earlier.
|
||||
Return
|
||||
|
||||
2GuiClose: ; From the close button
|
||||
2GuiEscape: ; From pressing escape
|
||||
Gui, 2: Destroy
|
||||
Return
|
||||
|
||||
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
; GUI to remove green color
|
||||
;------------------------------------------------------------------------------
|
||||
|
||||
2GuiContextMenu: ; Because one nested GUI isn't enough
|
||||
MsgBox, 4148, Color Change, Remove the flashing green?
|
||||
|
||||
IfMsgBox, Yes
|
||||
{
|
||||
GuiControl, -cGreen, Progress
|
||||
ugly := True
|
||||
}
|
||||
Return
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
UpTimer:
|
||||
ElapsedTime := A_TickCount - StartTime ; grabs the current time in MS, and subtracts it from the time that we recorded earlier
|
||||
ELSeconds := ElapsedTime // 1000 ; Convert to seconds
|
||||
ELMins := ELSeconds // 60 ; Convert to minutes
|
||||
ELMins := Round(ELMins) ; Round it off to nearest Intreger
|
||||
Update := (Total-ELMins) ; Subtract the elapsed minutes from the total
|
||||
GuiControl,, Progress, %Update% ; Update the time left at the bottom and progress bar
|
||||
GuiControl,, Total, %Update%
|
||||
|
||||
If FileExist("T_Msg.ahk")
|
||||
{
|
||||
If (BegWarned = "False")
|
||||
{
|
||||
If (HalfBreakLength >= WarnLength)
|
||||
{
|
||||
BegWarned = True
|
||||
HBWarned = True
|
||||
T_SendMsg("info",1,BreakLength " Minute break started, will warn on " HalfBreakLength " mins left.`n<code>" Total " mins of break time left</code>")
|
||||
}
|
||||
|
||||
If (HalfBreakLength < WarnLength)
|
||||
{
|
||||
BegWarned = True
|
||||
T_SendMsg("info",1,BreakLength " Minute break started, will warn on " HalfBreakLength " mins and " WarnLength " mins elapsed.`n<code>" Total " mins of break time left</code>")
|
||||
}
|
||||
|
||||
Temp := Update
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
If FileExist("T_Msg.ahk")
|
||||
{
|
||||
If !(Temp > Update)
|
||||
{
|
||||
Temp := Update
|
||||
If (HBWarned = "False")
|
||||
{
|
||||
If (ELMins = HalfBreakLength)
|
||||
{
|
||||
; Delete previous message
|
||||
T_SendMsg("alert", 1, "Break is half over, " HalfBreakLength " mins left.`n<code>" Update " mins of break time left</code>")
|
||||
HBWarned = True
|
||||
}
|
||||
|
||||
If (HalfBreakLength >= WarnLength)
|
||||
{
|
||||
T_Edit("info",1,BreakLength " Minute break started, will warn on " HalfBreakLength " mins left.`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
|
||||
If (HalfBreakLength < WarnLength)
|
||||
{
|
||||
T_Edit("info",1,BreakLength " Minute break started, will warn on " HalfBreakLength " mins and " WarnLength " mins elapsed.`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
}
|
||||
|
||||
If (HBWarned = "True")
|
||||
{
|
||||
If (HalfBreakLength >= WarnLength)
|
||||
{
|
||||
T_Edit("info",1,BreakLength " Minute break started, warned on " HalfBreakLength " mins left.`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
|
||||
If (HalfBreakLength < WarnLength)
|
||||
{
|
||||
T_Edit("info",1,BreakLength " Minute break started, warned on " HalfBreakLength " mins, will warn again on " WarnLength " mins elapsed.`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
}
|
||||
|
||||
If (EBWarned = "False")
|
||||
{
|
||||
If (ELMins = WarnLength)
|
||||
{
|
||||
T_SendMsg("hand", 3, "<b>Break is almost over, 2 mins left of your " BreakLength " minute break!</b>`n<code>" Update " mins of break time left</code>")
|
||||
EBWarned = True
|
||||
}
|
||||
Else
|
||||
{
|
||||
If (HalfBreakLength >= WarnLength)
|
||||
{
|
||||
T_Edit("info",1,BreakLength " Minute break started, will warn on " HalfBreakLength " mins left.`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
|
||||
If (HalfBreakLength < WarnLength)
|
||||
{
|
||||
T_Edit("info",1,BreakLength " Minute break started, will warn on " HalfBreakLength " mins and " WarnLength " mins elapsed.`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
If (EBWarned = "True")
|
||||
{
|
||||
If (HalfBreakLength >= WarnLength)
|
||||
{
|
||||
T_Edit("hand", 3, "<b>Break is almost over, 2 mins left of your " BreakLength " minute break!</b>`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
|
||||
If (HalfBreakLength < WarnLength)
|
||||
{
|
||||
T_Edit("hand", 3, "<b>Break is almost over, 2 mins left of your " BreakLength " minute break!</b>`n<code>" Update " mins of total break time left</code>")
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
Return
|
||||
Loading…
Reference in New Issue