第一版

Author: old9

LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2013 Qi Jiahui<[email protected]>
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

ppttimer.ahk

@@ -0,0 +1,176 @@
+#SingleInstance force
+#NoTrayIcon
+
+pt_IniFile := A_ScriptDir "\ppttimer.ini"
+
+iniread, startKey, %pt_IniFile%, shortcuts, startKey, F12
+iniread, stopKey, %pt_IniFile%, shortcuts, stopKey, ^F12
+iniread, quitKey, %pt_IniFile%, shortcuts, quitKey, #ESC
+
+iniread, opacity, %pt_IniFile%, main, opacity, 180
+iniread, fontface, %pt_IniFile%, main, fontface, 微软雅黑
+iniread, fontweight, %pt_IniFile%, main, fontweight, bold
+iniread, fontsize, %pt_IniFile%, main, fontsize, 40
+
+iniread, textColor, %pt_IniFile%, main, textcolor, 000000
+iniread, AheadColor, %pt_IniFile%, main, aheadColor, 9D1000
+iniread, timeoutColor, %pt_IniFile%, main, timeoutColor, FF0000
+iniread, backgroundColor, %pt_IniFile%, main, backgroundColor, FFFFAA
+
+iniread, bannerWidth, %pt_IniFile%, main, width, 300
+iniread, bannerHeight, %pt_IniFile%, main, height, 70
+
+
+hotkey, %startKey%, startIt
+hotkey, %stopKey%, stopIt
+hotkey, %quitKey%, quitIt
+
+resetTimer()
+
+Gui, Font, %fontweight% s%fontsize% c%textColor% textcenter, %fontface%
+Gui, Font, c%textColor%
+Gui, Color, %backgroundColor%
+Gui Add, Text, x0 y0 h%bannerHeight% w%bannerWidth% vpt_DurationText
+guicontrol, +0x200 +center, pt_DurationText
+GuiControl,, pt_DurationText, % FormatSeconds(pt_Duration)
+GuiControl, Font, pt_DurationText
+xposition := A_ScreenWidth - bannerWidth
+Gui +LastFound +ToolWindow +AlwaysOnTop -Caption
+Gui Show, y0 h%bannerHeight% w%bannerWidth% x%xposition% , CountDown
+winset,transparent, %opacity%, CountDown
+Winset, ExStyle, +0x20, CountDown
+pt_Gui := WinExist()  ; Remember Gui window ID
+isPptTimerOn := false
+;isTimerOn := false
+SetTimer, checkPowerpoint, 250
+Return
+
+
+
+;;; if winexsist powerpoint presetation, auto start
+startTimer(){
+  global pt_Duration
+  global pt_DurationText
+  global CountDownTimer
+  SetTimer CountDownTimer, Off
+  GuiControl,, pt_DurationText, % FormatSeconds(pt_Duration)
+  SetTimer CountDownTimer, 1000
+  SetTimer CountDownTimer, on
+}
+
+resetTimer(){
+  global pt_Duration
+  global pt_PlaySound
+  global pt_SoundFile
+  global pt_Ahead
+  global pt_IniFile
+  global textColor
+  global backgroundColor
+
+  Gui, Font, c%textColor%
+  gui, color, %backgroundColor%
+
+  GuiControl, font, pt_DurationText
+  IniRead, pt_Duration, %pt_IniFile%, Main, Duration, % 5*60
+  IniRead, pt_PlaySound, %pt_IniFile%, Main, PlaySound, %True%
+  IniRead, pt_SoundFile, %pt_IniFile%, Main, SoundFile, %A_ScriptDir%\
+  IniRead, pt_Ahead, %pt_IniFile%, Main, Ahead, 120
+  ;msgbox, % pt_Duration " " pt_Ahead
+  GuiControl,, pt_DurationText, % FormatSeconds(pt_Duration)
+}
+
+
+;restart or start manually
+startIt:
+resetTimer()
+startTimer()
+return
+
+
+stopIt:
+resetTimer()
+SetTimer CountDownTimer, off
+return
+
+quitIt:
+ExitApp
+return
+
+checkPowerpoint:
+IfWinExist, ahk_class screenClass
+  {
+    if !isPptTimerOn
+    {
+      isPptTimerOn := true
+      resetTimer()
+      startTimer()
+    }
+}
+else
+{
+  if isPptTimerOn
+  {
+    isPptTimerOn := false
+    resetTimer()
+    SetTimer CountDownTimer, off
+  }
+}
+return
+
+
+CountDownTimer:
+  Gui +AlwaysOnTop
+  pt_Duration--
+  if pt_Duration < 0
+  {
+    blink := !blink
+    if blink
+    {
+      Gui, Font, c%timeoutColor%
+      gui, color, %backgroundColor%
+    }
+    else
+    {
+      Gui, Font, c%backgroundColor%
+      gui, color, %timeoutColor%
+    }
+    GuiControl,, pt_DurationText, % FormatSeconds(pt_Duration)
+  }
+  else if (pt_Duration < pt_Ahead)
+  {
+    Gui, Font, c%AheadColor%
+    GuiControl,, pt_DurationText, % FormatSeconds(pt_Duration)
+  }
+  else
+  {
+    Gui, Font, c%textColor%
+  GuiControl,, pt_DurationText, % FormatSeconds(pt_Duration)
+  }
+  GuiControl, font, pt_DurationText
+  if pt_Duration = 0
+  {
+    if pt_PlaySound
+      Gosub PlayFinishSound
+  }
+  SetTimer CountDownTimer, 1000
+Return
+
+PlayFinishSound:
+  IfExist %pt_SoundFile%
+    SoundPlay %pt_SoundFile%
+Return
+
+FormatSeconds(NumberOfSeconds)  ; Convert the specified number of seconds to hh:mm:ss format.
+{
+  time = 19990101  ; *Midnight* of an arbitrary date.
+  if NumberOfSeconds < 0
+    NumberOfSeconds := -NumberOfSeconds
+  time += %NumberOfSeconds%, seconds
+  FormatTime, mmss, %time%, mm:ss
+  ;return NumberOfSeconds//3600 ":" mmss  ; This method is used to support more than 24 hours worth of sections.
+  return mmss  ; This method is used to support more than 24 hours worth of sections.
+}
+
+GuiClose:
+  ExitApp
+Return

ppttimer.ini

@@ -0,0 +1,30 @@
+[Main]
+;倒计时时间
+Duration=4
+
+;提前提醒时间，变色
+Ahead=2
+
+;时间到时是否播放声音及声音路径
+PlaySound=1
+SoundFile=.\applause.mp3
+
+;窗口样式
+opacity=180
+backgroundColor=FFFFAA
+fontface=微软雅黑
+fontweight=bold
+fontsize=40
+textcolor=000000
+AheadColor=9D1000
+timeoutColor=FF0000
+width=300
+height=70
+
+
+[shortcuts]
+;快捷键设置
+startKey=F12
+stopKey=^F12
+quitKey=#ESC
+