Войти

Показать полную графическую версию : [решено] Скрипт запуска музыки. Как исправить?


Pozia
15-11-2009, 12:08
Есть VBS скрипт вида:

Dim Winamp
Winamp = "c:\Program Files\Winamp\winamp.exe" 'Путь к Winamp-у

Set objArgs = WScript.Arguments
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(objArgs(0), 1)
Set WS = CreateObject("WScript.Shell")

if objArgs.Count > 1 then
Str = TempFile.ReadLine
if Right(Str,1) = "\" then
Str = Left(Str, Len(Str) - 1)
end if
WS.run chr(34) & Winamp & chr(34) & " " & chr(34) & Str & chr(34)
end if

Do While Not TempFile.AtEndOfStream
Str = TempFile.ReadLine
if Right(Str,1) = "\" then
Str = Left(Str, Len(Str) - 1)
end if
WS.run chr(34) & Winamp & chr(34) & " /add " & chr(34) & Str & chr(34)
Loop

Если в тотале сделать кнопку на запуск этого скрипта с параметром %L то вся выделенная музыка в тотоле при нажатии кнопки поместится в список винамп. Как подправить скрипт чтобы сразу же начиналось воспроизведение песен, а то песни просто добавляются?

amel27
15-11-2009, 13:47
чтобы сразу же начиналось воспроизведение песен »
использовать AutoPlay Winamp Plug-in (http://fastcode.km.ru/autoplay/)




© OSzone.net 2001-2012