; PushToTalk.ahk
; Push and hold F12 to activate the microphone, release to mute.
; Skrommel @2006 > Mod by AlainCh

#SingleInstance,Force
Gosub,TRAYMENU
SoundGet,micvol,Microphone:2,Volume
SoundSet,0,Microphone:2,Volume
ToolTip,Mic is Off
Sleep,2000
ToolTip,
Return

NumpadIns::
Loop
{
GetKeyState,NPINS,NumpadIns,p
MsgBox % "-"  NPINS  "-"
sleep,100
  Ifequal,NPINS,D
   {
   ToolTip,Mic is On      
   SoundSet,100,Microphone:2,Volume
   Sleep,1000
;   Tooltip,
   }
   Else
   {
   ToolTip,Mic is Off
   SoundSet,0,Microphone:2,Volume
   Sleep,200
;   ToolTip,
   Break
   }
}
Count+= 1
ToolTip, " Loop> " %count%
Return

TRAYMENU:
Menu,Tray,NoStandard
Menu,Tray,DeleteAll
Menu,Tray,Add,PushToTalk,TOGGLE
Menu,Tray,Add
Menu,Tray,Add,&Mic enabled,TOGGLE
Menu,Tray,Add
Menu,Tray,Add,&About,ABOUT
Menu,Tray,Add,E&xit,EXIT
Menu,Tray,Default,PushToTalk
Menu,Tray,UnCheck,&Mic enabled
Return

TOGGLE:
SoundGet,micvol,Microphone:2,Volume
If micvol=0
{
  ToolTip,Mic is On
  SoundSet,100,Microphone:2,Volume
  Menu,Tray,Check,&Mic enabled
}
Else
{
  ToolTip,Mic is Off
  SoundSet,0,Microphone:2,Volume
  Menu,Tray,UnCheck,&Mic enabled
}
Sleep,2000
ToolTip,
Return

ABOUT:
about=PushToTalk
about=%about%`n
about=%about%`nPush and hold Win+S to activate the microphone, release to mute.
about=%about%`n
about=%about%`nSkrommel @2006    www.donationcoders.com/skrommel
MsgBox,0,PushToTalk,%about%
about=
Return

EXIT:
ExitApp