#SingleInstance

Gui -MaximizeBox -Resize -MinimizeBox +AlwaysOnTop
Gui, Color, 000000
Gui, Font, s20 cWhite, Verdana
Gui, Add, Text, vMyControl Center, ---
Gui, Show, W90 H65, Tbls
lasttables = -1

Loop
{
    numtables := 0

    ;snippet will find all pokerstars windows
    WinGet, id, list, ahk_class PokerStarsTableFrameClass,, Program Manager
    Loop, %id%
    {
        numtables += 1
    }

    if (numtables != lasttables)
    {
        GuiControl,, MyControl, %numtables%
        lasttables = %numtables%
    }
    Sleep 1000

}

return

GuiClose:
ExitApp

#NoEnv
#SingleInstance force
#Include %a_scriptDir%
Process, priority, , High
SendMode Input
SetWorkingDir %a_scriptDir%

F8::
sngcount()
return

sngcount() {

; CurrentDate := ""
FileCount := 0

FormatTime, CurrentDate, A_Now, yyyyMMdd

;the trailing backslash MUST be included - since it's a folder
Folder1 := "C:\Users\Mike\AppData\Local\PokerStars\HandHistory\"
Folder2 := "C:\hhs\2010\"

Loop, 2
{
    ;the first value (0) means files only
    ;the second value (1) means include subfolders
    Loop, % Folder%A_Index% . "*", 0, 1
    {
        if inStr(A_LoopFileName, CurrentDate)
        {
            FileCount++
        }
    }
}


setTrayTip("" . FileCount . " played. ")
}

RemoveTrayTip:
SetTimer, RemoveTrayTip, Off
TrayTip
return

setTrayTip(text, seconds=5, options=1) {
    ms := seconds * 1000
    TrayTip, Daily Tournament Counter, %text%, , %options%
    SetTimer RemoveTrayTip, %ms%
    return
}