![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Скрипт запуска музыки. Как исправить? |
|
VBS/WSH/JS - [решено] Скрипт запуска музыки. Как исправить?
|
Ветеран Сообщения: 2756 |
Есть 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 |
|
Отправлено: 12:08, 15-11-2009 |
Googler Сообщения: 3665
|
Профиль | Отправить PM | Цитировать Цитата Pozia:
|
|
Отправлено: 13:47, 15-11-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
[решено] Результат InetGet зависит от того, залогинен ли я в эксплорере... - как исправить? | evg64 | AutoIt | 6 | 29-12-2009 23:08 | |
Интерфейс - [решено] Кто знает как исправить ошибку в распложение папки | qwer10 | Microsoft Windows 7 | 2 | 13-09-2009 21:18 | |
Интерфейс - [решено] Как исправить баг переключения клавиатуры? | roadinfo | Microsoft Windows 7 | 4 | 18-01-2009 17:59 | |
VBS/WHS/JS - Скрипт для последовательного запуска нескольких программ | skatet | Программирование и базы данных | 10 | 21-11-2007 17:02 | |
[решено] Черный экран + белый курсор при входе в систему. Как исправить? | Crazy_fruit | Microsoft Windows NT/2000/2003 | 6 | 13-10-2005 23:27 |
|