detectSoundlevel-spike/soundDetect2.au3

Local $ui = GUICreate('Level', 110, 160, -1, -1, Default, 0x00000008)
Local $ProgressBar = GUICtrlCreateProgress(50, 20, 10, 120, 0x04)
GUISetState(@SW_SHOW, $ui)
;
Local $mciLevel, $lpszReturnString







Local $mciInit = DllCall('winmm.dll', 'long', 'mciSendStringA', 'str', 'open Hangszórók (Realtek High Definition Audio) type waveaudio alias mywave', 'str', $lpszReturnString, 'long', 64, 'long', 0)
;Local $mciInit = DllCall('winmm.dll', 'long', 'mciSendStringA', 'str', 'open new type waveaudio alias mywave4  ', 'str', $lpszReturnString, 'long', 64, 'long', 0)
Local $mciInit = DllCall('winmm.dll', 'long', 'mciSendStringA', 'str', 'status mywave level', 'str', $lpszReturnString, 'long', 64, 'long', 0)
ConsoleWrite($mciInit[0]&@CRLF)
ConsoleWrite($mciInit[1]&@CRLF)
ConsoleWrite($mciInit[2]&@CRLF)
Exit


Local $mciInit = DllCall('winmm.dll', 'long', 'mciSendStringA', 'str', 'open new type waveaudio alias mywave', 'str', $lpszReturnString, 'long', 64, 'long', 0)
			   ;DllCall ( "dll",     "return type", "function" [, type1, param1 [, type n, param n]] )
If $mciInit[0] <> 0 Then Exit
;
Do
    $mciLevel = DllCall('winmm.dll', 'long', 'mciSendStringA', 'str', 'status mywave level', 'str', $lpszReturnString, 'long', 64, 'long', 0)
    If $mciLevel[0] <> 0 Then Exit
    ; If $mciLevel[2] > 60 Then MsgBox(64, 'Levels', 'Peaked > 60')
	ConsoleWrite($mciLevel[2] & @CRLF)
    GUICtrlSetData($ProgressBar, $mciLevel[2]); <-- here is the numeric audio level
Until GUIGetMsg() = -3
;
GUIDelete($ui)
Exit