|
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 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 | |
|