Music Player

[JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm]

*Evil_has_survived* send me a private message saying I can share the code that he made, and that I edited.

so I asked if I can post it here and he said yes.

This is were I helped him.My Webpage

it's not great could be better but, he made it, I edited it, I think that I should also throw in *thatsgreat* because he also help *evil* alot two. well here it is you can edit it if you want.

this code doesn't do much but evil said it would be good becuase lots of people like making media players on this site

expandcollapse popup

#include <GuiConstants.au3>
#include <INet.au3>
Opt("GUIoneventmode",1)
Opt("OnExitFunc","_write")
Global $songname[500]
Global $song[500]
Global $songGUI[500]
Global $number
;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
GuiCreate("Media Player", 750, 400,(@DesktopWidth-336)/2, (@DesktopHeight-168)/2,-1,0x00000018)
GUISetBkColor(0x313594)
GUICtrlCreatePic(@CommonFilesDir & "\oobe\images\mslogo.jpg",50,50, 200,50)
$Input = GuiCtrlCreateInput("Drag And Drop Media files here.", 512, 10, 210, 20)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
$Listname = GUICtrlCreateListView ( "Playlist|path",512.5, 40, 180, 317.5)
_Loadplay()
$oIE = ObjCreate("Shell.Explorer.2")
$Slider = GuiCtrlCreateSlider(0, 345, 200, 40)
$Buttonprevious = GUICtrlCreateButton("previous", 0, 0, 60, 20)
$Buttonnext = GUICtrlCreateButton("next", 120, 0, 60, 20)
$Buttonplay = GuiCtrlCreateButton("Play", 60, 0, 60, 20)
$Buttonstop = GuiCtrlCreateButton("Stop", 0, 20, 60, 20)
$Buttonadd = GuiCtrlCreateButton("Add", 120, 20, 60, 20)
$Checkboxmute = GUICtrlCreateCheckbox("Mute", 200, 20, 60, 20)
$Bottonhitkast = GUICtrlCreateButton("HitKast", 60, 20, 60, 20)
$Date = GUICtrlCreateDate("Date1", 200, 0, 190, 20)
GUICtrlSetData($Slider,100)
GUICtrlSetLimit ($Slider,100,0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GuiCtrlSetOnEvent($ButtonPlay, "_Play")
GuiCtrlSetOnEvent($Buttonstop, "_Stop")
GuiCtrlSetOnEvent($Buttonadd, "_Add")
GuictrlsetonEvent($Bottonhitkast,"open")
GuictrlsetonEvent($Checkboxmute,"Mute")
GuictrlsetonEvent($Buttonprevious,"previous")
GuictrlsetonEvent($Buttonnext,"next1")
GuiSetState()
While 1
    SoundSetWaveVolume (GUICtrlRead($slider))
WEnd

Func _Exit()
    Exit
EndFunc
Func _play()
    $song = StringSplit (GUICtrlRead($input), "|")
    if $song[0] = 1 Then
    SoundPlay($song[1])
Else
    SoundPlay($song[2])
EndIf
EndFunc
Func _Stop()
    SoundPlay ("")
EndFunc
Func _loadplay()
    $number = IniRead ( "playlist.ini", "NUMBER", "number", "0" )
    If $number > 0 Then
        For $num=1 to $number
            $songname[$num] = IniRead ( "playlist.ini", "NAME", "name"&$num, "Not found" )
            $song[$num] = IniRead ( "playlist.ini", "PATH", "path"&$num, "Not found" )
            $songGUI[$num] = GUICtrlCreateListViewItem ($songname[$num]&"|"&$song[$num],$listname)
        Next
    EndIf
EndFunc

Func _Add()
    $adder = GUICtrlRead($input)
    $check = Stringsplit($adder,"|")
    If $check[0] = 1 Then
        $name = InputBox("Name","What is the songs name? (***.mp3/***.wma..)")
        $number=$number+1
        GUICtrlCreateListViewItem ($name&"|"&$adder,$listname)
        IniWrite ( "playlist.ini", "NUMBER", "number",$number)
        IniWrite ( "playlist.ini", "NAME", "name"&$number,$name)
        IniWrite ( "playlist.ini", "PATH", "path"&$number,$adder)
    Else
        GUICtrlCreateListViewItem ($adder,$listname)
    EndIf
EndFunc

Func open()
    $GUIActiveX = GUICtrlCreateObj($oIE, 2, 40, 500, 300)
    $oIE.navigate ("http://www.accuradio.com/hits/")
EndFunc ;==>open

func Mute()
send("{VOLUME_MUTE}")
endfunc

func previous()
    send("{MEDIA_PREV}")
endfunc

Func next1()
send("{MEDIA_NEXT}")
endfunc

[Thatsgreat2345]

ok the thing is when u press add, it appears under the GUI and you have manually type it in, and then if you dont type it in it says drag and drop here and yeah thats gonna screw up the next and previous songs, thats just one thing i can find more if u want me to

[JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm]

ok the thing is when u press add, it appears under the GUI and you have manually type it in, and then if you dont type it in it says drag and drop here and yeah thats gonna screw up the next and previous songs, thats just one thing i can find more if u want me to

please do me and evil decided that people won't really use this, but they mgiht use to add in there media script, although I feel like making my own since im new it would be good for me to make one

[Thatsgreat2345]

hahah the add function, you think evil wrote that himself?, well sadly he did not and there was really no point in reposting code he stole

[JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm]

lol really he said he made it, then I edited it for him, lol it was pretty stupid/easy had to do with event modes and setting the funcs it was so easy , im not trying to make fun of him , but he said hes 15 and he doesn't read the help ifle and stuff, well im 15 to and this is my first day using autoit, and I made that picture thing with the help of *lazy cat* im pretty sure, and I edited his script to so it would doing osmething other then pushing a botton that does notihng.

[Thatsgreat2345]

i dont exactly know what pic ur talking about creating a pic so that everything else will work is explained in the help file, and if he doesnt read the help file theres no point in helping him cuz EVERYTHING HE ASKS IS SAID IN THE HELP FILE

[JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm]

if you mean me then I guess tihs picture I was talking about

My Webpage

but if you mean *evil* then I also know what you mean