ActiveApps Variable (Thanks to Daniel Oxner for providing the Global Variable)

; ActiveApps Variable (Thanks especially to Daniel Oxner for providing his version for one Global Variable for this script)
+RButton:: ;Shift+Right Button
  ; Sleep, 200
  ;SetTimer, AutoCloseGui, 8000
  R_Gui()
  return

SetTitleMatchMode, 2

; Variables
Global ActiveApps := Object() ; ActiveApps Variable per Process
  ActiveApps["ahk_class TMainForm"]
  ActiveApps["ahk_class #32770"]
  ActiveApps["ahk_exe notepad.exe"]
  ActiveApps["ahk_exe text.exe"]
  ActiveApps["ahk_exe WINWORD.EXE"]
  ActiveApps["ahk_exe EXCEL.EXE"]

; Routines
R_Gui()
{ Gui, +AlwaysOnTop +LastFound -Caption +ToolWindow ; +Resize
  Gui, Color, D3DAED ; light gray
  WinSet,Transcolor, D3DAED ; light gray To Transparent Color
  Gui, Margin,0,0
  Gui, Font, S12 Bold Bold, Tahoma
  Gui, Add, Text, x13 y10 cGreen gcalc, 2x2=4
  Gui, Font, , Arial
  Gui, Add, Text, x13 y30 cRed gcmd, CMD
  Gui, Font, S25, Tahoma
  Gui, Add, Text, x13 y60 cDarkRed gSM, Paste Secret Message
  Gui, Add, Text, x13 y100 cGreen gHello, Paste Hello
  Gui, Show, x900 y200 AutoSize
}
return

; Gui-Buttons / GoSubs
calc:
  run, calc.exe
  return

CMD:
  run, cmd.exe, %A_Desktop%
  return

SM:
  gui, destroy
    SendInput, {Text}Secret Message`r
      R_Gui()
  return

Hello:
  gui, destroy
    SendInput, {Text}Hello. What's going on?
      R_Gui()
  return


*ESC::ExitApp