Sign in to follow this  
Followers 0
JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm

Music Player

7 posts in this topic

*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

#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

Hi, I have been with autoit since
MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)
My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.

Share this post


Link to post
Share on other sites



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 :think: i can find more if u want me to

Share this post


Link to post
Share on other sites

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 :think: 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


Hi, I have been with autoit since
MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)
My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.

Share this post


Link to post
Share on other sites

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 :think:

Share this post


Link to post
Share on other sites

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 :think: , 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.


Hi, I have been with autoit since
MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)
My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 :think:


Hi, I have been with autoit since
MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)
My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0