Jump to content

Music PLayer


bang
 Share

Recommended Posts

Rakudave that slider doesnt work because it set your

Soundsetwavevolume($Volumeslider)

It should be:

Soundsetwavevolume(Guictrlread($Volumeslider))
My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!
Link to comment
Share on other sites

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?

[~FuZi0h~]ScriptRipping? = ┴¬┴¬┴┴¬ (My word for sucks.)'FuZi0h, Liope and Rambo3889 4-EvaHelp me by pressin This!all clicks appreciated :)
Link to comment
Share on other sites

This is the origal script he just modifed it:

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

#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
My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!
Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...