; PushToTalk.ahk
; Push and hold Win+S to activate the microphone, release to mute.
; Skrommel @2006

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

Insert::
SoundGet,micvol,Microphone:2,Volume
SoundGet,micvol1,Microphone:1,Volume
ToolTip,Mic is On
SoundSet,100,Microphone:2,Volume
SoundSet,100,Microphone:1,Volume
Loop
{
  Sleep,10
  keywait,Insert,P
  break
}
ToolTip,Mic is Off
SoundSet,0,Microphone:2,Volume
SoundSet,0,Microphone:1,Volume
Sleep,1500
ToolTip,
Return

TRAYMENU:
Menu,Tray,NoStandard
Menu,Tray,Icon,%A_ThisScript%,1
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
SoundGet,micvol1,Microphone:1,Volume
If micvol=0
{
  ToolTip,Mic is On
  SoundSet,100,Microphone:2,Volume
  SoundSet,100,Microphone:1,Volume
  Menu,Tray,Check,&Mic enabled
}
Else
{
  ToolTip,Mic is Off
  SoundSet,0,Microphone:2,Volume
  SoundSet,0,Microphone:1,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