[Pytanie] Play Lista W Autoit3

[Rower1310]

Witam zrobiłem odtwarzacz muzyki w autoit3 i nie wiem jak zrobić żeby np. po kliknięciu Button5 mógł wybrać folder z muzyką i władowała mi się ona do ListView. I jak zrobić abym mógł Sliderem przesuwać piosenkę.

[RobeM]

kierunek forum autoit, tam masz UDF-y gotowe, plajery itp rzeczy do tego

chociaż tu też już kiedyś był podobny temat

[Rower1310]

Szukałem ale nie mogę znaleźć

[Rower1310]

A to co mógłby mi ktoś napisać jak zrobić playlistę ??????

[RobeM]

jak na razie wszyscy pisza za ciebie skrypty, wymyśl coś swojego albo poszukaj na forum AutoIt bo jest wszystko gotowe

mi sie nie chce szukać bo nie potrzebuje , ty widać też nie

[Rower1310]

a mógłbyś podać link do tego forum ????

[RobeM]

http://www.autoitscript.com/

[Rower1310]

Dzięki temat do zamknięcia

[lokuxd]

trzymaj

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

[*Tabciogaraj*]

Tutaj masz

#include <GUIConstants.au3>

#include <WindowsConstants.au3>

#include <GuiConstantsEx.au3>

#include <GDIPlus.au3>

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <StaticConstants.au3>

$A= GUICreate("mp3 player-drog file-", 255, 255,-1,-1,-1, 0x00000010)

$B= GUICtrlCreateLabel ("", 1, 1, 300 , 300,$SS_CENTER)

GUICtrlSetState(-1, 136)

Global $D= ObjCreate("WMPlayer.OCX.7")

If Not IsObj($D) Then

MsgBox(48,"ERROR...","object failed")

Exit

EndIf

Global $E= GUICtrlCreateObj( $D, 7, 7 , 300 , 300 )

Global $F= ObjEvent($D,"MediaPlayer_")

GUISetState(@SW_SHOW)

With $D;

.settings.autostart = True

.fullScreen = True

.windowlessVideo = True

.stretchToFit = True

.URL = ""

.enableContextMenu = False

.Controls.currentPosition = 0

If .controls.isAvailable("fastForward") Then .controls.fastForward

If .controls.isAvailable("fastReverse") Then .controls.fastReverse

.Controls.Stop

.uiMode = "Full"

.settings.mute = False

.settings.volume = 50

.settings.Balance = 0

EndWith

While 1

$G= GUIGetMsg()

Select

Case $G=-3

Exit

Case $G=-13

$H=@GUI_DRAGFILE

$I=@GUI_DRAGFILE

$J= StringSplit($I,'.', 1)

if $J[2] <> "mp3" then

msgbox(0,"İnfo","select mp3 file drog")

else

oo()

endif

EndSelect

WEnd

func oo()

With $D

.settings.autostart = True

.settings.playCount = 999

.fullScreen = True

.windowlessVideo = True

.stretchToFit = True

.URL = $H

.enableContextMenu = False

.Controls.currentPosition = 0;

If .controls.isAvailable("fastForward") Then .controls.fastForward

If .controls.isAvailable("fastReverse") Then .controls.fastReverse

.Controls.Play

.uiMode = "Full"

.settings.mute = False

.settings.volume = 50

.settings.Balance = 0

EndWith

endfunc