Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопросы, задачи и их решения по VBScript.

 
Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1
 
Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018
Retro222

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А с чего вы взяли, что не работает?
У меня всё прекрасно работает. Хоть с видео, хоть с аудио.
Что вы вообще делаете, и чего ождидаете от результата?
 
Предпологается, что вы выделяете файлы, MPLayer запускает на воспроизведение первый выделенный файл,
а остальные файлы ждут своей очереди, пока не закончится первый.
 
Вы таких ждёте результатов?
 

Всего записей: 260 | Зарегистр. 21-09-2018 | Отправлено: 12:48 13-02-2020 | Исправлено: Retro222, 12:54 13-02-2020
VidelSamogO



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Retro222
А что, в чьем-то воспаленном мозгу мог зародиться коварный план отправки компа в аут посредством размножения консольных процессов?

Всего записей: 765 | Зарегистр. 16-08-2008 | Отправлено: 12:50 14-02-2020 | Исправлено: VidelSamogO, 13:18 14-02-2020
Retro222

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вы просто неправильные параметры передаёте, и пытаетесь унизить других тем, что не можете сделать сами.
Вот все тут дураки, с воспалёнными мозгами, а я тут один умный.
 
Только у этих "дураков с воспалёнными мозгами" всё прекрасно работает, а у этих "умных" ничего не фурычит.
 
Вот, я даже видео снял, как у меня работает.  
Видео не видно, потому что программа для захвата с экрана слабовата, и не может захватывать потоки,
которые образуют плееры, которые связываются непосредственно с видеоадаптером напрямую.
 
https://cloud.mail.ru/public/3rhc/2vqUpfWBD
 
 

Всего записей: 260 | Зарегистр. 21-09-2018 | Отправлено: 16:29 14-02-2020 | Исправлено: Retro222, 16:29 14-02-2020
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
VidelSamogO

Цитата:
За двадцать лет так никто и не нашел решение. Хотя задача для скрипта элементарная.

Двадцать лет форумчане, забросив все дела, корпели над поставленной задачей. Но так и не смогли осилить элементарный скрипт, в чём нас всех здесь и упрекают. Ага.

Цитата:
P.S. Наверяка понадобится многим.

Не понадобится. Понадобился бы - за двадцать лет желающие могли бы не только vbs осилить.

----------
Разум когда-нибудь победит

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 15:00 15-02-2020
Baltazar500



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нагуглил в сети vbs-скрипт для эмуляции нажатия кнопок пульта на самсунговских ТВ до 2014-го года, но похоже исходник кривоват, т.к. при запуске скрипта на первых же строках лезет ошибка компиляции. Т.к. в vbs я профан, прошу знатоков посмотреть, что там не так с исходником скрипта и что там нужно скорректировать для его корректной работы ?

Всего записей: 2080 | Зарегистр. 19-09-2011 | Отправлено: 18:04 15-02-2020 | Исправлено: Baltazar500, 18:05 15-02-2020
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Baltazar500
Это не vbs. Это vb.net. Похоже, не полный.

----------
Разум когда-нибудь победит

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 18:58 15-02-2020
Baltazar500



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Smitis, ясно

Всего записей: 2080 | Зарегистр. 19-09-2011 | Отправлено: 02:51 16-02-2020
VidelSamogO



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Retro222

Цитата:
Вот, я даже видео снял, как у меня работает.  

Какие параметры запуска использовали с строке config/options/edit/view/editof for f4?

Всего записей: 765 | Зарегистр. 16-08-2008 | Отправлено: 13:41 18-02-2020
Retro222

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня там текстовый редактор. PSPad.
 
Вы в командную строку Тотала введите полный путь до MPLayera.
Потом зайдите в какую-нибудь папку с видео или аудио.
 
Выделяет один файл, нажимаете CTRL+SHIFT+ENTER.
Его полный путь должен добавиться в командную строку.
Выделяете ещё один файл. CTRL+SHIFT+ENTER.
И так ещё несколько.
Чтобы в командной строке было что-то наподобия такого.
 
C:\Mplayer\mplayer.exe C:\Video\1.mkv C:\Video\2.mp4 C:\Video\3.avi  
 
Или такого  
 
"D:\Супер плеер\mplayer.exe" "D:\Video\Файл 1.mkv" "D:\Video\Файл 2.mp4" "D:\Video\Файл 3.avi"
 
И нажимаете Enter. Запустится плеер, и смотрите, один ли экземпляр в диспетчере задач, или несколько.
 
Потому что, возможно, что надо править настройки самого плеера.

Всего записей: 260 | Зарегистр. 21-09-2018 | Отправлено: 15:57 18-02-2020 | Исправлено: Retro222, 16:00 18-02-2020
us0r



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени.
Препарирую на досуге VBScript и столкнулся с таким:
 
Вот так оно объявлять массив не хочет

Код:
Dim objSWbemLocator, objSWbemRWMIConnect, objTest, arrCount
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemRWMIConnect = objSWbemLocator.ConnectServer()
Set objTest = objSWbemRWMIConnect.ExecQuery("select * from Win32_Process")
arrCount = CInt(objTest.Count)
Dim arrProcessNames(arrCount)

 
А вот так ему норм:

Код:
Dim objSWbemLocator, objSWbemRWMIConnect, objTest, arrCount, arrProcessNames()
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemRWMIConnect = objSWbemLocator.ConnectServer()
Set objTest = objSWbemRWMIConnect.ExecQuery("select * from Win32_Process")
arrCount = CInt(objTest.Count)
ReDim arrProcessNames(arrCount)

 
С чем это связано и можно как-то делать это так "Dim arrProcessNames(arrCount)", а не через ReDim?

Всего записей: 406 | Зарегистр. 06-12-2007 | Отправлено: 13:18 25-02-2020 | Исправлено: us0r, 13:21 25-02-2020
iglezz

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
us0r
В первом случае Dim хочет размер массива константой, получает переменную и ругается на это.  
Т.к. константе при объявлении требуется константное значение, то ни objTest.Count, ни любую другую переменную ему скормить не получится.
 
Итого первый вариант выкидывается и используется второй

Всего записей: 1521 | Зарегистр. 18-02-2003 | Отправлено: 22:50 25-02-2020
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
us0r

Цитата:
С чем это связано

Особенности синтаксиса vbs, в dim размер массива, если задан, должен быть константой. Размер этого массива нельзя будет переопределить. Иначе массив будет динамическим.

Цитата:
можно как-то делать это так "Dim arrProcessNames(arrCount)", а не через ReDim?

А чем не устраивает redim?

----------
Разум когда-нибудь победит

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 22:58 25-02-2020
us0r



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Smitis

Цитата:
А чем не устраивает redim?

Да лишние телодвижения. Я бы и динамический массив использовал, да ещё не научился с ним работать.

Всего записей: 406 | Зарегистр. 06-12-2007 | Отправлено: 11:48 27-02-2020
generator324

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Не совсем .vbs, но как бы около: давно пользуюсь скриптом, для обновления 2ГИС:

Код:
 
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "wget -c -N -np -r -l 1 -H -D download.2gis.com -P ""C:\2GIS"" -e ""robots=off"" -A ""2GISData_Tambov-*.orig.zip"" -nd ""http://info.2gis.ru/tambov/products/download""", 2, true
WshShell.Run "C:\Progra~1\WinRAR\winrar.exe x -o+ ""2GISData_Tambov-*.orig.zip"" C:\Progra~2\", 2, true
WshShell.Run "cmd /c del ""C:\2GIS\2GISData_Tambov-*""",0,true  

Всё работает, всё устраивает, но... Как всегда есть НО - хотелось бы допилить одну штуку. А именно, сделать проверку - если файл "2GISData_Tambov-36 уже есть в каталоге C:\2GIS\, то он бы не качался по-новой. И уж тем более, не качался бы старый файл (версия ниже, чем имеется в каталоге) - бывает, к сожалению, и такое. Сейчас у меня файлы в конце тупо зачищаются, а хотелось бы более изящного решени...
Понимаю, что вопрос этот относится большей степени к wget, но... допустим, wget так делать не умеет (если умеет, то научите КАК). Да и через vbs, наверное это тожно можно реализовать, нет?

Всего записей: 1084 | Зарегистр. 11-01-2019 | Отправлено: 13:22 12-03-2020
iglezz

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
generator324
Если через wsh, то FileExists Method, скачивание списка с сервера, его разбор и скармливание качалке по одной ссылке
Если через wget, то  -R ""2GISData_Tambov-36*.orig.zip""

Всего записей: 1521 | Зарегистр. 18-02-2003 | Отправлено: 14:15 12-03-2020 | Исправлено: iglezz, 14:17 12-03-2020
generator324

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iglezz
Ясно. Учитывая мои "знания" wsh, наверное проще будет мучать wget
Правда, у меня почему-то -R не сработало, не так применяю?
У меня при добавлении -R просто ничего не происходит; сообщения об ошибке тоже не выдаётся. Убираю -R - качает...
Wget 1.11.4 , если что...
 
Добавлено:
Совсем дикий вопрос: а какую версию Wget (под Windows) пользуют сейчас правильные пацаны? В ветке по Wget - чёрт ногу сломит...

Всего записей: 1084 | Зарегистр. 11-01-2019 | Отправлено: 15:52 12-03-2020
iglezz

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
generator324
Скачать html и регуляркой выдрать ссылки -- дело несложное.
 
По wget я ошибся, невнимательно прочитав: надо добавить ключ -nc (--no-clobber), удалив при этом несовместимый с ним ключ -N. Дальше wget стоит обсуждать в профильной теме.

Всего записей: 1521 | Зарегистр. 18-02-2003 | Отправлено: 16:36 12-03-2020
generator324

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iglezz

Цитата:
Скачать html и регуляркой выдрать ссылки -- дело несложное.  

Для тех, кто знает - да. Подскажете?

Цитата:
По wget я ошибся, невнимательно прочитав: надо добавить ключ -nc (--no-clobber), удалив при этом несовместимый с ним ключ -N.

Ясно. Попробую... Вроде даже работает Во всяком случае, при наличии уже скаченного файла файла, не качает. Переименовал скаченный файл в "старый" - качает!
Теперь встал вопрос о "хламе" - файлах, предыдущих версий, скапливающихся в каталоге. Раньше, повторюсь, я их тупо удалял. А теперь надо бы последний оставлять. Как?
В смысле, как реализовать удалеление всех файлов, кроме последнего, на wsh?
 

Цитата:
Дальше wget стоит обсуждать в профильной теме.

Ну, разумеется. Только там, походу, и обсуждать-то уже нечего...

Всего записей: 1084 | Зарегистр. 11-01-2019 | Отправлено: 16:47 12-03-2020
los

Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Если через wget, то  -R ""2GISData_Tambov-36*.orig.zip""

не будет качать при наличии или отсутствии файлов попадающих под эту маску.

Всего записей: 7322 | Зарегистр. 08-09-2001 | Отправлено: 17:02 12-03-2020
iglezz

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
generator324

Цитата:
Для тех, кто знает - да. Подскажете?  

Пример на JScript, мне он больше нравится, чем VBScript: Подробнее...
Скрипту расширение дать, соответственно, js

Всего записей: 1521 | Зарегистр. 18-02-2003 | Отправлено: 18:36 12-03-2020
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru