Active Apps Gui Button Texts Original

; Active Apps Gui Button Texts Original
+RButton:: ;Shift+Right Button
SetTitleMatchMode, 2
Sleep, 200
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 cGreen Bold, Tahoma
Gui, Add, Text, x13 y10 gcalc, 2x2=4
Gui, Font, S12 Bold cRed Bold, Arial
Gui, Add, Text, x13 y30 gcmd, CMD
Gui, Font, S25 cDarkRed Bold, Tahoma
Gui, Add, Text, x13 y60 gSM, Paste Secret Message
Gui, Font, S25 cGreen Bold, Tahoma
Gui, Add, Text, x13 y100 gHello, Paste Hello
Gui, Show, x900 y200 AutoSize
return

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

SM:
global possibles := ["ahk_exe notepad.exe","ahk_exe text.exe","ahk_class #32770","ahk_class TMainForm","ahk_exe WINWORD.EXE","ahk_exe EXCEL.EXE"]
for k,proc in possibles
{ if (WinExist(proc))
{ WinActivate, % proc
WinWaitActive, % proc,, 2
;SendInput, % Text
break ; if it only should write into the first found
}
}
SendInput, {Text}Secret Message `r
return
Hello:
global possibles := ["ahk_exe notepad.exe","ahk_exe text.exe","ahk_class #32770","ahk_class TMainForm","ahk_exe WINWORD.EXE","ahk_exe EXCEL.EXE"]
for k,proc in possibles
{ if (WinExist(proc))
{ WinActivate, % proc
WinWaitActive, % proc,, 2
;SendInput, % Text
break ; if it only should write into the first found
}
}
SendInput, {Text}Hello. What's going on?
return
*ESC::ExitApp