AutoHotkey Community

#NoTrayIcon
beardboyTray("Meeting","`n`nDon't forget you have a meeting!!!`nTime: 11:00am`nPlace: Conference Room",1,2000) ; Play sound and custom 2 second delay
WinWaitClose, Meeting
ExitApp

#Include beardboyTray.ahk

; Program: Beardboy Tray
; Version: .00
; Last Modified: 2005.09.06
; Last Changes: First Version

/*
Example of how to popup a message
beardboyTray(title,text,sound,timeout)
beardboyTray("beardboy's TrayTip","This is a Test") ; No sound and Default 4 second timeout
beardboyTray("beardboy's TrayTip","This is a Test",0,10000) ; No sound and Custom 10 second timeout.
beardboyTray("beardboy's TrayTip","This is a Test",1,0) ; Sound and User must close TrayTip
*/

beardboyTray(title,text, sound = 0, timeout = 4000)
{
  global
  bt_title = %title%
  x := % A_ScreenWidth - 185
  y := % A_ScreenHeight - 30
  gui, 99:+ToolWindow +border
  gui, 99:color, FFFFFF
  gui, 99:Margin, 0, 0
  gui, 99:Add, Text, center w175 h90 cBlue, %text%
  Gui, 99:Show, x%x% y%y%, %title%

  if sound <> 0
    SoundPlay, %SystemRoot%\Media\notify.wav
  SetWinDelay, 5
  WinGetPos,, guiy,,, %title%
  Loop, 55
  {
    guiy -= 2
    WinMove, %title%,,, %guiy%
  }
  if timeout <> 0
    SetTimer, CloseTray, %timeout%
}

99GuiClose:
Gui, 99:Destroy
return

CloseTray:
SetTimer, CloseTray, Off
SetWinDelay, 5
WinGetPos,, guiy,,, %bt_title%
Loop, 55
{
  guiy += 2
  WinMove, %bt_title%,,, %guiy%
}
Gui, 99:Destroy
return

; Program: Beardboy Tray
; Version: .00
; Last Modified: 2005.09.06
; Last Changes: First Version

/*
Example of how to popup a message
beardboyTray(title,text,sound,timeout)
beardboyTray("beardboy's TrayTip","This is a Test") ; No sound and Default 4 second timeout
beardboyTray("beardboy's TrayTip","This is a Test",0,10000) ; No sound and Custom 10 second timeout.
beardboyTray("beardboy's TrayTip","This is a Test",1,0) ; Sound and User must close TrayTip
*/

beardboyTray(title,text, sound = 0, timeout = 4000)
{
  global
  bt_title = %title%
  x := % A_ScreenWidth - 185
  y := % A_ScreenHeight - 30
  gui, 99:+ToolWindow +border +AlwaysOnTop
  gui, 99:
  gui, 99:color, FFFFFF
  gui, 99:Margin, 0, 0
  gui, 99:Add, Text, center w175 h90 cBlue, %text%
  Gui, 99:Show, x%x% y%y%, %title%
 
  WinSet, Transparent, 150, %title%
 
  if sound <> 0
    SoundPlay, %SystemRoot%\Media\notify.wav
  SetWinDelay, 5
  WinGetPos,, guiy,,, %title%
  Loop, 55
  {
    guiy -= 2
    WinMove, %title%,,, %guiy%
  }
  if timeout <> 0
    SetTimer, CloseTray, %timeout%
}

99GuiClose:
Gui, 99:Destroy
return

CloseTray:
SetTimer, CloseTray, Off
SetWinDelay, 5
WinGetPos,, guiy,,, %bt_title%
Loop, 55
{
  guiy += 2
  WinMove, %bt_title%,,, %guiy%
}
Gui, 99:Destroy
return

; Program: Beardboy Tray
; Version: corr0.02
; Last Modified: 2005.09.12
; Last Changes: Modified Version - Corrupt

; - Modified: from include file to stand-alone script (use Runwait to launch)
; - Modified: AlwaysOnTop method to prevent showing message window over taskbar
; - Modified: WinMove method to API call "MoveWindow" for speed/smoothing
; - Added: click anywhere on the message to close the message window
; - Modified: Window always moves back down before closing

; RunWait, beardboytray.ahk "title" "text" "sound" "timeout"

; All params are optional (default values will be used if not specified)
; Set timeout to 0 to manually dismiss message (click on message window to close)

#SingleInstance, Ignore
#NoTrayIcon
  title = %1%
  if !title
    title = Beardboy Tray
  text = %2%
  If !text
    text = `nBeardboy Tray`n`nModified by: Corrupt`nVersion: corr.02
  sound = %3%
  If !sound 
    sound := 0
  timeout = %4%
  If timeout=
    timeout := 4000

  x := % A_ScreenWidth - 191
  y := % A_ScreenHeight - 30
  gui, Add, Text, center w175 h90 cRed, %text%
  gui, +ToolWindow +border
  gui, color, FFFFFF
  gui, Margin, 0, 0
  Gui, Show, x%x% y%y% , %title%
  WinSet, Transparent, 200, %title%
  WinWait, %title%
  WinHWND := WinExist(title)
  OnMessage(0x201, "WM_LBUTTONDOWN")
  if sound <> 0
    SoundPlay, %SystemRoot%\Media\notify.wav
  SetWinDelay, 5
  WinGetPos,, guiy,,, %title%
  Loop, 60
  {
    guiy -= 2
    DllCall("MoveWindow", "UINT", WinHWND, "INT", x, "INT", guiy, "INT", 190, "INT", "120", "INT", "1")
    WinActivate, %title%
  }
  WinSet, AlwaysOnTop, On
  if timeout <> 0
    SetTimer, CloseTray, %timeout%
Return

WM_LBUTTONDOWN(wParam, lParam)
{
if !closing
  SetTimer, CloseTray, 200
}

GuiClose:
CloseTray:
closing := True
WinSet, AlwaysOnTop, Off, %title%
SetWinDelay, 5
WinGetPos,, guiy,,, %title%
Loop, 60
{
  guiy += 2
  DllCall("MoveWindow", "UINT", WinHWND, "INT", x, "INT", guiy, "INT", 190, "INT", "120", "INT", "1")
  WinActivate, %title%
}
SetTimer, CloseTray, Off
ExitApp
Return

#NoTrayIcon
title = Meeting
Message = `nDon't forget you have a meeting!!!`nTime: 11:00am`nPlace: Conference Room
sound =
timeout = 2000

RunWait, Autohotkey beardboytray.ahk "%title%" "%Message%" 1 0

RunWait, Autohotkey beardboytray.ahk "This is a Modified Version" "`nBeardboy Tray`n`nModified by Corrupt" 1
ExitApp

  x := % A_ScreenWidth - 191
  y := % A_ScreenHeight - 30

 var1 = Beardboy Tray
 var2 = `nBeardboy Tray`n`nModified by: Corrupt`nVersion: corr.02
 var3 := 0
 var4 := 4000
Loop, %0%
     var%A_index% = %A_Index%