Клавиатурный показатель микрофона!

Opt("SendCapslockMode", 0)
Opt("TrayMenuMode", 1)

Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")
Send("{NUMLOCK off}")

$mciError = _mciSendString("open new type waveaudio alias mywave", _StringRepeat(" ", 100), 100, 0)

$mExit = TrayCreateItem("Выход")
While 1
	$mciError = _mciSendString("status mywave level", _StringRepeat(" ", 100), 100, 0);
	If (107/2)+$mciError[2]/2 > 55 Then
		Send("{NUMLOCK on}")
	Else
		Send("{CAPSLOCK off}")
		Send("{SCROLLLOCK off}")
		Send("{NUMLOCK off}")
	EndIf
	If (107/2)+$mciError[2]/2 > 60 Then
		Send("{CAPSLOCK on}")
	Else
		Send("{CAPSLOCK off}")
		Send("{SCROLLLOCK off}")
		Send("{NUMLOCK off}")
	EndIf
	If (107/2)+$mciError[2]/2 > 80 Then
		Send("{SCROLLLOCK on}")
	Else
		Send("{CAPSLOCK off}")
		Send("{SCROLLLOCK off}")
		Send("{NUMLOCK off}")
	EndIf

	Switch TrayGetMsg()
		Case $mExit
			Send("{CAPSLOCK off}")
			Send("{SCROLLLOCK off}")
			Send("{NUMLOCK on}")
			Exit
	EndSwitch
WEnd

Func _mciSendString($lpszCommand, $lpszReturnString, $cchReturn, $hwndCallback)
    Return DllCall("winmm.dll", "long", "mciSendStringA", "str", $lpszCommand, "str", $lpszReturnString, "long", $cchReturn, "long", 0)
EndFunc

Func _StringRepeat($sString, $iRepeatCount)
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $sResult

	Select
		Case Not StringIsInt($iRepeatCount)
			SetError(1)
			Return ""
		Case StringLen($sString) < 1
			SetError(1)
			Return ""
		Case $iRepeatCount <= 0
			SetError(1)
			Return ""
		Case Else
			For $iCount = 1 To $iRepeatCount
				$sResult &= $sString
			Next

			Return $sResult
	EndSelect
EndFunc