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 то вся выделенная музыка в тотоле при нажатии кнопки поместится в список винамп. Как подправить скрипт чтобы сразу же начиналось воспроизведение песен, а то песни просто добавляются?
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 то вся выделенная музыка в тотоле при нажатии кнопки поместится в список винамп. Как подправить скрипт чтобы сразу же начиналось воспроизведение песен, а то песни просто добавляются?