VBS и foo_runcmd: создание списка | автопоиск

Список разделов foobar2000 Секреты foobar2000

Описание: Кнопочки, конфиги, секреты, советы.

Сообщение #1 kadvlad » 23.08.2014, 14:26

C помощью foo_runcmd и VBS пытаюсь автоматизировать работу:

(1) имеется vbs-скрипт, сохраняющий список выделенных альбомов в указанный файл:

Export_list.vbs
Код: Выделить всё
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("foobar2000.exe " & chr(34) & "/runcmd-playlist=Text Tools/Copy: List" & chr(34))
WScript.Sleep(200)
WshShell.Sendkeys "{TAB}"
WshShell.Sendkeys "{TAB}"
WshShell.Sendkeys "{TAB}"
WshShell.Sendkeys "{TAB}"
WScript.Sleep(100)
WshShell.Sendkeys "{ }"
WshShell.Sendkeys "{ESC}"

Dim FileName
Dim TCS, Clip, Btn, FSO, OTL, Mess, Title
Set TCS = CreateObject("TCScript.Helper")
Clip = TCS.GetTextFromClip
FileName = "E:\Temp\_list.txt"
Set TCS = Nothing
If Len(Clip) > 0 Then
Set FSO = CreateObject("Scripting.FileSystemObject")
End If
Set OTL = FSO.OpenTextFile(FileName, 2, True)
OTL.Write Clip
OTL.Close
Set OTL = Nothing
Set FSO = Nothing
WScript.Quit

Нужно сделать так, чтобы при последующих вызовах скрипта этот файл дополнялся новым списком, а не перезаписывал старый.
Также не удалось указать абсолютный путь для создания файл-списка в %TEMP% (создаётся в директории фубара).

(2) хочу написать vbs-скрипт для "внешнего" вызова фубара сразу с поиском по медиа-библиотеке названия из буфера обмена:

Library_search.vbs
Код: Выделить всё
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("foobar2000.exe " & chr(34) & "/runcmd=Library/Search" & chr(34))
WScript.Sleep(5000)
WshShell.Sendkeys "+{INSERT}"
WScript.Quit

В таком [наиболее правильном] виде не запускается, ничего не происходит. Иногда удавалось вызвать диалог поиска по текущему плейлисту (название команды совпадает). Читал оф.сайт/форум/документацию плагина, решения не нашёл.


Прошу помочь.
kadvlad
Автор темы
Аватара
Репутация: 1
С нами: 15 лет 2 месяца

Вернуться в Секреты foobar2000