#include<misc.au3>
local $mousewheel=false
while _ispressed(04)
    record()
wend
while not _ispressed(04)
    sleep(10)
    wend
func record()
mciSendString("open new type waveaudio alias mysound")
mciSendstring("record mysound")
mciSendstring("save mysound mysound.wav")
mciSendstring("close mysound")
FileCopy("mysound.wav", @scriptdir&"\mysound.wav", 1)
Msgbox(0, "", "")
endfunc
Func mciSendstring($string)
    Local $iRet
    $iRet = DllCall("winmm.dll", "int", "mciSendStringA", "str", $string, "str", "", "int", 65534, "hwnd", 0)
    If Not @error Then Return $iRet[2]
EndFunc