Music PLayer

[Faustvii]

he gone care about me in the school time

lol bangs dead..

[rambo3889]

Yes he is

[rambo3889]

Next time he make a good autoit script then lets us script rip him and see how angry he gona be

[rambo3889]

Rakudave that slider doesnt work because it set your

Soundsetwavevolume($Volumeslider)

It should be:

Soundsetwavevolume(Guictrlread($Volumeslider))

[FuZi0h]

Next time he make a good autoit script then lets us script rip him and see how angry he gona be

@Rambo

Do you really think he can make a good script?

[Faustvii]

@Rambo

Do you really think he can make a good script?

no lol he cant make a good script..

[rambo3889]

Okay Liope and FUzioh you have right he cant

[jaenster]

Ban ban ban ban ban ban ban .. BAN him !

[rambo3889]

This is the origal script he just modifed it:

and made the controls bigger and placed them on others x and y coords

expandcollapse popup

#include "guiconstants.au3"
#include "Guilistview.au3"
#include "C:\Programmer\Autoit3\include\Media.au3"
SoundSetWaveVolume(100)
$hwnd = GUICreate("The media Player",400,500)
$addtoplaylist=GUICtrlCreateButton("  Add  ",20,325,50)
$saveplaylist=GUICtrlCreateButton("  Save ",80,325,50)
$removefromplaylist=GUICtrlCreateButton("Remove",140,325,50)
$playlist=GUICtrlCreateListView("Name|Sang ",20,25,360,300)
_GUICtrlListViewSetColumnWidth ($playlist, 0, 75)
_GUICtrlListViewSetColumnWidth ($playlist, 1, 280)
$volumeslider=GUICtrlCreateSlider(20,450,200,30)
GUICtrlSetLimit(-1,100,0)
GUICtrlSetData(-1,100,"")
$playbutton=GUICtrlCreateButton("   Play  ",20,350,50)
$stopbutton=GUICtrlCreateButton("   Stop  ",140,350,50)
GUICtrlCreateLabel("The playlist",0,0)
GUICtrlCreateLabel("Volume",260,0)
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 500, "long", 0x00080000 )
GUISetState ( )

While  1
$msg = GUIGetMsg()
Switch $msg 
Case $saveplaylist
Saveer()    

Case $playbutton
    $song= _GUICtrlListViewGetItemText ($playlist, -1, 1)
SoundPlay($song)
Case $stopbutton
SoundPlay("C.mp3")
Case $GUI_EVENT_CLOSE
exiter()

Case $removefromplaylist
_GUICtrlListViewDeleteItemsSelected($playlist)

Case $addtoplaylist
$thedialogaddfiles=FileOpenDialog("Open","C:\","(*.wma;*.Mp3;*.Wav;)")
$Inputbox=InputBox("Name","What should the be on the playlist")
_GUICtrlListViewInsertItem($playlist,-1,$Inputbox&"|"&$thedialogaddfiles)
EndSwitch
WEnd


Func exiter()
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00090000 )
Exit
EndFunc


Func Saveer()
EndFunc

[jaenster]

yeah if you change some its your's

[rambo3889]

Yes that rigtht

Jaenster may i borrrow your sig and put it into mine?

[jaenster]

you want copy my singature?

So if its , Sure

Edited February 12, 2006 by jaenster

[rambo3889]

Thank you

[jaenster]

Respect for anyone that has helpt to make autoIT

[rambo3889]

Yes

[jaenster]

@ bang , If you dont have respect too the real maker's of a progam , Please stop to make progams

[rambo3889]

Thats right

[jaenster]

Bang , noob say something

[rambo3889]

He is so stupid that he cant write anything