AutoHotkey Community

#IfWinActive Winworks AutoShop ahk_class #32770
   ^!+d::
{
Send, n
Sleep, 275
WinGetPos, InitialWindowPosX, InitialWindowPosY, InitialWindowSizeX, InitialWindowSizeY
If InitialWindowPosX <> 0
{
   If InitialWindowPosY <> 0
   {
WinMove, 0,0
   }
}
MouseClickDrag, Left, 100,749,100,769
Sleep, 100
MouseClick, left, 202, 78
}
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
; OnLoad/OnClose Script Template
; by MasterFocus
;
; This template is provided containing 4 examples.
; You may remove them after learning how it works.
;
;
; *** HOW TO ADD A PROGRAM to be checked OnLoad/OnClose:
;
; 1. Add a variable named ProgWinTitle# (Configuration Section)
; containing the desired window's title
;
; 2. Add two labels named LabelOnLoad# and LabelOnClose#
; (Custom Labels Section) containing the desired actions
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#Persistent

; ------ ------ CONFIGURATION SECTION ------ ------

; Program Titles
ProgWinTitle1 = ahk_class Notepad
ProgWinTitle2 = ahk_class WhateverClass
ProgWinTitle3 = Windows Title Here
ProgWinTitle4 = Another Program Title

; DO NOT FORGET to add the custom
; labels at the bottom of template
; ( LabelOnLoad# and LabelOnClose# )

; SetTimer Period
CheckPeriod = 750

; ------ END OF CONFIGURATION SECTION ------ ------

Loop
{
    if !ProgWinTitle%A_Index%
        break
    ProgRunning%A_Index% := 0
    ProgLoaded%A_Index% := 0
}
SetTimer, LabelCheckLoadClose, %CheckPeriod%
Return

; ------ ------ ------

LabelCheckLoadClose:
Loop
{
    if !ProgWinTitle%A_Index%
        break
    if (!ProgRunning%A_Index% AND WinExist(ProgWinTitle%A_Index%)) OR

(ProgRunning%A_Index% AND !WinExist(ProgWinTitle%A_Index%))
        ProgRunning%A_Index% := !ProgRunning%A_Index%
    if (ProgRunning%A_Index% != ProgLoaded%A_Index%)
    {
        if !ProgLoaded%A_Index%
            GoSub, LabelOnLoad%A_Index%
        else
            GoSub, LabelOnClose%A_Index%
        ProgLoaded%A_Index% := !ProgLoaded%A_Index%
    }
}
Return

; ------ ------ CUSTOM LABEL SECTION ------ ------

LabelOnLoad1:
    MsgBox, You just loaded Notepad!
Return
LabelOnClose1:
    MsgBox, You just closed Notepad!
Return

LabelOnLoad2:
    MsgBox, You opened a WhateverClass window!
Return
LabelOnClose2:
Return

LabelOnLoad3:
Return
LabelOnClose3:
    MsgBox, You closed your 3rd customized window.
Return

LabelOnLoad4:
    Msgbox, You opened Another Program!
LabelOnClose4:
Return

; ------ END OF CUSTOM LABEL SECTION ------ ------

WinGetPos, InitialWindowPosX, InitialWindowPosY, InitialWindowSizeX, InitialWindowSizeY
If InitialWindowPosX <> 0
{
   If InitialWindowPosY <> 0
   {
WinMove, 0,0
   }
}

WinGetPos, InitialWindowPosX, InitialWindowPosY
If InitialWindowPosX AND InitialWindowPosY
    WinMove, 0,0

; Original script by MasterFocus. See original post for instructions.

#Persistent

; ------ ------ CONFIGURATION SECTION ------ ------

; Program Titles
ProgWinTitle1 = ahk_class Notepad
ProgWinTitle2 = Calculator

; SetTimer Period
CheckPeriod = 750

; ------ END OF CONFIGURATION SECTION ------ ------

SetTimer, LabelCheckLoadClose, %CheckPeriod%
Return   

; ------ ------ ------

LabelCheckLoadClose:
Loop
{
    ; This type of 'if' is typically more efficient than an 'if !expression':
    if ProgWinTitle%A_Index% =
        break
    ; Using '!' on both values allows them to be compared as boolean 0 or 1, where
    ; WinExist() normally returns 0 or a window ID. It also allows the script to
    ; skip initializing ProgRunning%A_Index%.
    if (!ProgRunning%A_Index% != !WinExist(ProgWinTitle%A_Index%))
    {
        ; Toggle variable and use new value as the 'if' condition.
        if ProgRunning%A_Index% := !ProgRunning%A_Index%
            GoSubSafe("LabelOnOpen" A_Index)
        else
            GoSubSafe("LabelOnClose" A_Index)
    }
}
return

; Simple helper function for brevity:
GoSubSafe(Sub) {
    ; Attempt to run subroutine only if label exists. This allows OnOpen
    ; to be defined without OnClose, or OnClose without OnOpen.
    if IsLabel(Sub)
        GoSub %Sub%
}

; ------ ------ CUSTOM LABEL SECTION ------ ------

LabelOnOpen1:   ; First program was opened.
LabelOnClose1:  ; First program was closed.
LabelOnOpen2:   ; Second program was opened. Note no closed notification.
MsgBox % A_ThisLabel
return

; ------ END OF CUSTOM LABEL SECTION ------ ------