AutoHotkey Community

Gui, 7:+owner1 
; Make the main window (Gui #1) the owner of the "about box" (Gui #2).
Gui +Disabled 
; Disable main window.
suspend
Gui, 7:-SysMenu
Loop %A_ScriptDir%\media\*.*
{
   mp3List .= A_LoopFilename . "|"
}
StringTrimRight mp3List, mp3List, 1
Gui 7:Add, Listbox, w200 h300 vhMedia, %mp3List%
Gui 7:Add, Button, w100 xm+50 g7Play Default, %play%
Gui, 7:Add, button, w4 gback, %back%
Gui, 7:Show, w850 h580 x50 y100,%fav%
return
7play:
   Gui, 7:Submit, NoHide
hMedia:=MCI_Stop(hMedia)
hMedia:=MCI_Close(hMedia)
hMedia:=MCI_Open(hMedia)
if Not hMedia
    {
    msgBox, 0, Error, Error opening media file %hmedia%
    return
    }

Open:=true
MCI_SetVolume(hMedia,curvolume) ;-- Sets the volume to max for the device
MCI_SetBass(hMedia,curbass) ;-- Sets the bass to max for the device
length:=MCI_Length(hMedia)
gosub, play
return

back:
7GuiClose:
7GuiEscape:
Gui, 1:-Disabled 
Gui Destroy 
suspend
Return

;Program pro přehrávání rádia Melody;
;Tento program je opensource, lze jej upravovat, ale za souhlasu autora, nebo generálního ředitele rádia Melody.;
setworkingdir %A_ScriptDir%
#include mci.ahk
iniread, w, opt.ini, main, w
iniread, x, opt.ini, main, x
iniread, y, opt.ini, main, y
iniread, h, opt.ini, main, h
gui,add,button,gplay,hrát
gui,add,button,gstop,stop
gui,show,%w% %h% %x% %y%,Radio_Melody_player
return
play:
        hMedia:=MCI_Open("http://sc1.ipip.cz:8000/")
        if not hMedia
{
            MsgBox 16, Chyba!, Nemohu se připojit k serveru`,` nebo přehrát soubor.
            return
}
else
gosub, start
return
start:
if Open
    {
    Status:=MCI_Status(hMedia)
    if Status=stopped
{
MCI_SetVolume(hMedia,curvolume) ;-- Sets the volume to max for the device
MCI_SetBass(hMedia,curbass) ;-- Sets the bass to max for the device
        MCI_Play(hMedia)
}
     else       
if Status=paused
{
MCI_SetVolume(hMedia,curvolume) ;-- Sets the volume to max for the device
MCI_SetBass(hMedia,curbass) ;-- Sets the bass to max for the device
            MCI_Resume(hMedia)
}
    }
return
stop:
        MCI_Stop(hMedia)
exitapp
return

hMedia:=MCI_Open("new","","type waveaudio")
l_CmdString:="status " . hMedia . " level"
OnExit, ExitSub
Progress, R0-128 B  ,Press Escape to Exit, Microphone Audio Level, Microphone Audio Level,
loop
{
error := MCI_SendString(l_CmdString,l_lpszReturnString)
Progress, %l_lpszReturnString%
}
Esc::ExitApp   
ExitSub:
MCI_Close(hMedia)
ExitApp

;#include MCI.ahk ; uncomment if MCI is not in your std-lib