VBNet - Форум

Вопрос: m3u Добавлено: 27.05.03 20:39

Автор вопроса: Silver Flamingo | ICQ: 116970115

Как можно програмно запустить Winamp'овский файл m3u?
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| \| #1	Добавлено: 27.05.03 21:35
	Командой Shell запустить WinAmp, задав ему нужный файл как команду. Ответить

Номер ответа: 2 Автор ответа: JONick Вопросов: 10 Ответов: 88	Web-сайт: eminemrap.h1.ru Профиль \| \| #2	Добавлено: 27.05.03 23:28
	можно и без винампа,он сам догадается и откроет плейлист с помощью винампа... Ответить

Номер ответа: 3
Автор ответа:

freeloader

ICQ: 50804884

Вопросов: 72
Ответов: 642

Web-сайт: freeloader.folder-pro.net
Профиль | | #3

Добавлено: 28.05.03 12:33

<можно и без винампа,он сам догадается и откроет плейлист с помощью винампа... >

Не второй вариант не пойдет!.

Шелл запускает ток .exe

а музыкальный таковым не является

Ответить

Номер ответа: 4
Автор ответа:

freeloader

ICQ: 50804884

Вопросов: 72
Ответов: 642

Web-сайт: freeloader.folder-pro.net
Профиль | | #4

Добавлено: 28.05.03 12:42

Во ответ нашел на 2 темы ниже!

Const SND_SYNC=H0
Const SND_ASYNC=H1
Const SND_NODEFAULT=H2
Const SND_MEMORY=H4
Const SND_LOOP=H8
Const SND_NOSTOP=H10

'function
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName as String, ByVal uFlags as Long) As Long

'play wav

result = sndPlaySound ("c:\windows\waves\doh!.mp3",SND_ASYNC Or SND_NODEFAULT)

Ответить

Номер ответа: 5
Автор ответа:

freeloader

ICQ: 50804884

Вопросов: 72
Ответов: 642

Web-сайт: freeloader.folder-pro.net
Профиль | | #5

Добавлено: 28.05.03 12:42

Во ответ нашел на 2 темы ниже!

Const SND_SYNC=H0
Const SND_ASYNC=H1
Const SND_NODEFAULT=H2
Const SND_MEMORY=H4
Const SND_LOOP=H8
Const SND_NOSTOP=H10

'function
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName as String, ByVal uFlags as Long) As Long

'play wav

result = sndPlaySound ("c:\windows\waves\doh!.mp3",SND_ASYNC Or SND_NODEFAULT)

Ответить

Номер ответа: 6 Автор ответа: Silver Flamingo ICQ: 116970115 Вопросов: 27 Ответов: 49	Профиль \| \| #6	Добавлено: 28.05.03 17:12
	А может кто нибудь написать готовый код. Плиз. Ответить

Номер ответа: 7
Автор ответа:

Danger2002

Вопросов: 10
Ответов: 109

Профиль | | #7

Добавлено: 28.05.03 19:17

Кусок моей проги:

Sub ReadM3U(FilePath As String)

If LCase(Right(FilePath, 4)) <> LCase(".m3u") Then Exit Sub

Dim NotFullPath As String

Dim t As Long

For t = Len(FilePath) To 1 Step -1

If Mid(FilePath, t, 1) = "\" Then

NotFullPath = Left(FilePath, t)

Exit For

End If

Next t

Open FilePath For Input As #2

Dim PlayListFromFile As String

List1.Clear

While Not EOF(2)

Line Input #2, PlayListFromFile

If PlayListFromFile <> "" And LCase(Left(PlayListFromFile, 1)) <> LCase("#") Then

List1.AddItem NotFullPath & PlayListFromFile

End If

Wend

Close 2

End Sub

Sub ReadPLS(FilePath As String)

Dim t As Long

Dim s As String

If LCase(Right(FilePath, 4)) <> LCase(".pls") Then Exit Sub

Open FilePath For Input As #2

Dim PlayListFromFile As String

List1.Clear

While Not EOF(2)

Line Input #2, PlayListFromFile

If LCase(Left(PlayListFromFile, 4)) = LCase("file") Then

For t = 1 To Len(PlayListFromFile)

If LCase(Mid(PlayListFromFile, t, 1)) = LCase("=") Then

s = Mid(PlayListFromFile, t + 1, Len(PlayListFromFile) - t + 1)

List1.AddItem s

End If

Next t

End If

Wend

Close 2

End Sub

Ответить

Номер ответа: 8
Автор ответа:

Danger2002

Вопросов: 10
Ответов: 109

Профиль | | #8

Добавлено: 28.05.03 19:17

Кусок моей проги:

Sub ReadM3U(FilePath As String)

If LCase(Right(FilePath, 4)) <> LCase(".m3u") Then Exit Sub

Dim NotFullPath As String

Dim t As Long

For t = Len(FilePath) To 1 Step -1

If Mid(FilePath, t, 1) = "\" Then

NotFullPath = Left(FilePath, t)

Exit For

End If

Next t

Open FilePath For Input As #2

Dim PlayListFromFile As String

List1.Clear

While Not EOF(2)

Line Input #2, PlayListFromFile

If PlayListFromFile <> "" And LCase(Left(PlayListFromFile, 1)) <> LCase("#") Then

List1.AddItem NotFullPath & PlayListFromFile

End If

Wend

Close 2

End Sub

Sub ReadPLS(FilePath As String)

Dim t As Long

Dim s As String

If LCase(Right(FilePath, 4)) <> LCase(".pls") Then Exit Sub

Open FilePath For Input As #2

Dim PlayListFromFile As String

List1.Clear

While Not EOF(2)

Line Input #2, PlayListFromFile

If LCase(Left(PlayListFromFile, 4)) = LCase("file") Then

For t = 1 To Len(PlayListFromFile)

If LCase(Mid(PlayListFromFile, t, 1)) = LCase("=") Then

s = Mid(PlayListFromFile, t + 1, Len(PlayListFromFile) - t + 1)

List1.AddItem s

End If

Next t

End If

Wend

Close 2

End Sub

Ответить

Страница: 1 |