AutoHotkey Community

min_play=3
play_time=6   ;<---- time to play DVD in seconds
max_play=10


screen_x=0   ; customize location of window, if desired
screen_y=0   ; see "gui, show" below to enable

OnExit, quit   ;

title=DVD Play Timer
gui, font,s12

gui, add, text, , %title%

gui, font,s10

gui, add, text, center xm , Play Time (secs)
gui, add, edit, w70
Gui, Add, UpDown, vplay_time Range%min_play%-%max_play%, %play_time%

gui, add, button,  yp x+10 vok Default, OK
;gui, add, button,  x30 vok Default, OK
gui, add, text, center xm , Press Ok or Enter `nafter movie started
gui, add, text, center  xm, Press ESC`nto exit at any time

show_gui:
;==================================================================
;    gui position, default of centered on screen
gui, show, w150 h180 ,DVD play timer
;==================================================================
;    gui position, --customized--
;gui, show, w150 h180 x%screen_x% y%screen_y%,DVD play timer


return

buttonOK:   ; the assumption is that the DVD has been started manually prior the button push

gui, submit   ; gets the current sleep time and hides the gui

sleep, play_time * 1000 ; sleep command is based on units of 1/1000 second


send ^p   ; normal way to send control-p

      ; some systems may be stubborn and require alternate control-p               
      ; for now this next line is commented out and will not be run
; send {control down} p {control down} 


goto show_gui   ; show the interface again


GuiClose:
esc::
  exitapp


quit:
; winclose, Untitled      ; close a window with title that starts "Untitled"
; winclose, ahk_class Notepad   ; close a window of class matching notepad
winclose, ahk_class WMPlayerApp ; this may be right for WMP, I dunno.
exitapp

;f12::reload   ; used for development purposes

;f1::         ; to find the window class, run the script, place mouse over window and hit F1
MouseGetPos,,, WinID
WinGetClass, class, ahk_id %WinID%
clipboard=ahk_class %class%
msgbox window class copied to clipboard`nahk_class %class%
return

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

#SingleInstance force

; HotKey, Esc, on ; Assign a hotkey to terminate this script.


MsgBox, 4,Bretts DVD timer , This will start and run Bretts DVD timer program`n `nWould you like to continue?, 605  ; 60-second timeout.
   IfMsgBox, No
      ExitApp ; User pressed the "No" button.
      
   InputBox, secs, Set Timer, Enter the number of seconds for the program to run between prompts?, , , 250 , 50 , , , 60 , 60
      time=%secs%*1000
      IfMsgBox Timeout, ExitApp

   
; check to see if player active
   IfWinActive, Windows Media Player
      WinMaximize  ; Maximizes the window found by IfWinActive above.
         Else run "C:\Program Files\Windows Media Player\wmplayer.exe" /open
      Sleep 1000


   IfWinActive, Windows Media Player
      MsgBox, 4145, Do This Now!!, While this window is up insert the DVD into the player and start it playing.`n  `nThe DVD will play for %secs% seconds then pause for input.`n Once the DVD is playing select OK to start the timer. `nHitting "Cancel" will EXIT the program., 120
      IfMsgBox, Cancel
      WinClose, Windows Media Player


*************************************8****************
******************************************************
; HERE IS WHERE MY NEXT CHALLENGE IS - THIS WILL WAIT THE RIGHT NUMBER OF SECONDS,
; AND SEND A SERIES OF COMMANDS THAT WIL PAUSE MEDIA PLAYER - THAT WORKS...
; KEYWAIT DOES NOT WORK... IT JUST SKIPS RIGHT BY IT
; I WANT THE PROGRAM TO PAUSE WHERE THE KEYWAIT IS ... AND WAIT FOR {ENTER}
; THEN RUN THE LOOP AGAIN....
;
; i ALSO NEED TO ASSIGN A HOTKEY SO {escape} WILL QUIT THE APP WHENEVER IT IS PRESSED. 
; I TRIED A LINE FOR THAT UP TOP BUT IT DIDN'T WORK....
      
loop
{
   Sleep, (secs*1000)
   ControlFocus, Windows Media Player
   Send {Alt}
   Send P
   Send {ENTER}
   SoundBeep, ,1500]
      KeyWait, {Enter}
}

;single line method
ESC::exitapp

;multiple line method (use when the key will execute more than one line of code)
ESC::
msgbox, You pressed the ESC key, the program will not exit.
WinKill, Windows Media Player
exitapp

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

#SingleInstance force

MsgBox, 4,Bretts DVD timer , This will start and run Bretts DVD timer program`n `nWould you like to continue?, 605  ; 60-second timeout.
   IfMsgBox, No
      ExitApp ; User pressed the "No" button.
     
   InputBox, secs, Set Timer, Enter the number of seconds for the program to run between prompts?, , , 250 , 50 , , , 60 , 60
      time=%secs%*1000
      IfMsgBox Timeout, ExitApp

   
   ; check to see if player active
      IfWinActive, Windows Media Player
         WinMaximize  ; Maximizes the window found by IfWinActive above.
      Else run "C:\Program Files\Windows Media Player\wmplayer.exe" /open
   Sleep 1000


   IfWinActive, Windows Media Player
      MsgBox, 4145, Do This Now!!, While this window is up insert the DVD into the player and start it playing.`n  `nThe DVD will play for %secs% seconds then pause for input.`n Once the DVD is playing select OK to start the timer. `nHitting "Cancel" will EXIT the program., 120
         IfMsgBox, Cancel
            WinClose, Windows Media Player
   
   loop,
      {
      sleep, %time%
      ControlFocus, Windows Media Player
      Send !p
      Send {ENTER} ;I left this in, because I am not sure why you had it there to begin with
      SoundBeep, ,1500
      sleep, 100
      KeyWait, Enter
      }


ESC:: ;This key should exit both the script and Windows media player when pressed
msgbox, You pressed the ESC key, the program will not exit.
WinKill, Windows Media Player
exitapp

IfMsgBox, Cancel
{
      WinClose, Windows Media Player
      exitapp ; <------------------
}

; ESC::exitapp

; Hotkey, Escape
;   ExitApp

;multiple line method (use when the key will execute more than one line of code)
;   ESC::
;   msgbox, You pressed the ESC key, the program will not exit.
;   WinKill, Windows Media Player
;   exitapp

      
 loop
 {
      Sleep, (secs*1000)  ;<------- this works every time
   ; ControlFocus, Windows Media Player
   Send {Alt}
   Send P
   Send {ENTER} ;  <----------- pauses for a millisecond or so
   SoundBeep, ,1500]
      KeyWait, Enter  ; <-------------- this doesn't do anything
      Send {Alt}
      Send P
      Send {ENTER}  ; <------------- runs after the pause
 }

#NoEnv
SetTitleMatchMode, 2 ; match windows title more easily

secs := 5 ; will run every 5 seconds
SetTimer, PauseTimer, % secs*1000
Return ; this is the end of the auto-execute section

PauseTimer:
   SetTimer, PauseTimer, off ; so it won't get interrupted by the timer while it is running
   ControlSend,, ^p, Windows Media Player ; pause
   SoundBeep, ,1500
   KeyWait, Enter, D ; wait for enter to be pressed Down
   ControlSend,, ^p, Windows Media Player ; unpause
   SetTimer, PauseTimer, on ; restart the timer
Return

Esc::ExitApp ; exit when escape is pressed

settitlematchmode 2 ; <--- allows easier title match

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

OnExit, quit ;<------------ funnel all requests to exit through this 'quit' subroutine

#SingleInstance force

; HotKey, Esc, on ; Assign a hotkey to terminate this script.


MsgBox, 4,Bretts DVD timer , This will start and run Bretts DVD timer program`n `nWould you like to continue?, 605  ; 60-second timeout.
   IfMsgBox, No
      ExitApp ; User pressed the "No" button.
     
   InputBox, secs, Set Timer, Enter the number of seconds for the program to run between prompts?, , , 250 , 50 , , , 60 , 60
      time=%secs%*1000
      IfMsgBox Timeout, ExitApp

   
; check to see if player active
   IfWinActive, Windows Media Player
      WinMaximize  ; Maximizes the window found by IfWinActive above.
         Else run "C:\Program Files\Windows Media Player\wmplayer.exe" /open
      Sleep 1000

/*======================================media player=========================
; check to see if player active
   IfWinActive, Media Player
      WinMaximize  ; Maximizes the window found by IfWinActive above.
         Else run "C:\Program Files\MPC HomeCinema\mpc-hc.exe"
      Sleep 1000
======================================media player=========================
*/

;   IfWinActive, Media Player

   IfWinActive, Windows Media Player
      MsgBox, 4145, Do This Now!!, While this window is up insert the DVD into the player and start it playing.`n  `nThe DVD will play for %secs% seconds then pause for input.`n Once the DVD is playing select OK to start the timer. `nHitting "Cancel" will EXIT the program., 120
      IfMsgBox, Cancel
   ExitApp


******************************************************
******************************************************
; HERE IS WHERE MY NEXT CHALLENGE IS - THIS WILL WAIT THE RIGHT NUMBER OF SECONDS,
; AND SEND A SERIES OF COMMANDS THAT WIL PAUSE MEDIA PLAYER - THAT WORKS...
; KEYWAIT DOES NOT WORK... IT JUST SKIPS RIGHT BY IT
; I WANT THE PROGRAM TO PAUSE WHERE THE KEYWAIT IS ... AND WAIT FOR {ENTER}
; THEN RUN THE LOOP AGAIN....
;
; i ALSO NEED TO ASSIGN A HOTKEY SO {escape} WILL QUIT THE APP WHENEVER IT IS PRESSED.
; I TRIED A LINE FOR THAT UP TOP BUT IT DIDN'T WORK....
     
loop
{
   Sleep, (secs*1000)

;   ControlFocus, Windows Media Player

;   Send {Alt} ;<---- this doesn't work well to send the characters separately
;   Send P

   send ^p   ; normal way to send control-p // this should PAUSE the WMP
;   send {space}   ; media player classic

      ; some systems may be stubborn and require an alternate control-p               
      ; for now this next line is commented out and will not be run
   ; send {control down} p {control down} 

   Send {ENTER}
   SoundBeep, ,1500]
;      KeyWait, {Enter}
      KeyWait, Enter, D   ; <--- wait for enter from user, this is the correct format of the command

   send ^p   ; normal way to send control-p // this should UNPAUSE the WMP
;   send {space}   ; normal way to send control-p // this should UNPAUSE the WMP

}

;=================== escape key closes the program ===========================
esc::
  exitapp

;=================== if the program closes, so does WMP ======================
quit:
WinClose, Windows Media Player
;winclose, Media Player ; this is for Media Player Classic

exitapp