gifts2017

Запускатель рабочей среды

Опубликовал fastwriter (fastwriter) в раздел Программирование - Внешние компоненты

Часто бывает так, что для работы над проектом необходимо бывает открыть несколько разных приложений. Каждый день запускать это все надоедает. Чтобы не делать этого вручную - можно написать скрипт на vbs, который это делает автоматически.

Часто бывает так, что для работы над проектом необходимо бывает открыть несколько разных приложений. Каждый день запускать это все надоедает. Чтобы не делать этого вручную - можно написать скрипт на vbs, который это делает автоматически.

Пример подобного скрипта:


Dim iPause
Dim s1cPath
Dim oWshell

iPause = 3000
s1cExe = "C:\Program Files\1Cv77\BIN\1CV7s.exe"
s1cBase = "/D""D:\1cbases\MyBase"""
s1cLogin = "/Nmylogin /Pmypass"

Set oWshell = CreateObject("WScript.Shell")


oWshell.Run "D:\Tools\FreeCommander\FreeCommander.exe"
Wscript.Sleep(iPause)
oWshell.Run "D:\Tools\UltraExplorer\UltraExplorer.exe"
Wscript.Sleep(iPause)
oWshell.Run """" & s1cExe & """ CONFIG " & " " & s1cBase & " " & s1cLogin, 1
Wscript.Sleep(iPause)
oWshell.Run """" & s1cExe & """ ENTERPRISE " & " " & s1cBase & " " & s1cLogin, 1, False
Wscript.Sleep(5*iPause)
oWshell.Run """D:\Tasks\MyTask1\Docs\MyTask1Documentation.odp"""

 

Ярлык со ссылкой на скрипт целесообразно поместить на рабочий стол, тогда один щелчок мыши избавит от поиска в менюшках, наборов паролей и т.д.

 

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Максим Шуйский (maxpiter) 16.08.10 16:09
имхо, лучше и проще батником
3. fastwriter (fastwriter) 16.08.10 16:26
(1) "Лучше" - это чем? Мне, например, черное окно батника не нравится. А насчет проще - скрипт и так проще некуда. Так что вариант с батником рассматриваю как равноценный.

Батник можно написать быстрее, а скрипт позволит, если понадобится, совершать какие-то действия, недоступные батнику.
4. Максим Шуйский (maxpiter) 16.08.10 16:31
Тема сообщения: ... необходимо бывает открыть несколько разных приложений ... ну и зачем извращаться чтобы vbs городить?
в батнике
c:\project\file.exe
d:\temp\file2.doc
del d:\temp\*.~tmp

и собственно ничего более.
5. fastwriter (fastwriter) 16.08.10 17:19
(4) Вот зачем может пригодиться vbs:

1. Обращаю внимание на команды Sleep. Они бывают нужны потому что, как ни странно, многие тяжелые приложения в реальных условиях запускаются разное количество времени.

Из-за этого ранее вызванное скриптом (батником) приложение один раз может "опоздать", и оказаться на панели задач правее запускаемого позднее, а в другой раз - наоборот. А мне лично удобнее, если для проекта нужны 4-6 (да-да, бывает нужно и 6) открытых окон, если они на панели задач расположены в одинаковом порядке.

С помощью Sleep получается пауза, которая позволяет приложениям на панели задач выстраиваться именно в задуманном порядке.

2. Перед или во-время запуска приложений могут быть нужны самые разные - не только удаление временных файлов. Например, проверить доступность адреса в сети, количество свободного места на сетевом диске, наличие определенных данных в удаленной базе SQL-сервера и т.д. Это тоже батником не сделаешь.
6. Максим Шуйский (maxpiter) 16.08.10 17:50
(5) да я не против vbs :) только по моему за уши притягиваете
>> оказаться на панели задач правее запускаемого позднее, а в другой раз - наоборот - это прям паранойя какая-то :) (не принимайте близко к сердцу, я не пытаюсь вас обидеть или нахамить)

пауза в bat (костыль конечно, но все же ;) ) ping -n seconds 127.0.0.1 > nul

наличие файла/каталога

if exist "\\bug\price\file.xls" (
echo "Ok"
) else (
echo "No"
)

место на диске (в том числе и сетевом)
@echo off
chcp 1251 > nul
for /f "tokens=3 delims= " %%A in ('dir c: /s/-c ^|find "байт свободно"') do (
echo free: %%A
)
chcp 866 > nul

про SQL сходу не скажу.

В общем, на вкус и цвет :)
7. Владислав Чинючин (vcv) 16.08.10 21:09
ИМХО нельзя не похвалить решение вопроса мелкой автоматизации скриптом. А то сейчас развелось любителей решать проблему "удалить все старые бэкапы из папки" N-мегабайтным экзешником, написанным на дельфях или сях. А так же "админов", радующихся обретению подобных "инструментов".
8. Аркадий Кучер (Abadonna) 17.08.10 06:27
(7)
N-мегабайтным экзешником, написанным на дельфях
)
Дельфи, при создании просто пустой формы, сразу создает экзешник около 300К, потому как он полностью самодостаточен и работоспособен практически в любой Винде. Далее, сколько кода не пихай, размер растет очень медленно. С трудом себе представляю что же надо туда в код напихать, чтобы размер стал "N-мегабайтным".
P.S. Это вовсе не к тому, что я против VBS.
P.P.S. IMHO, спор о том как лучше вообще смысла не имеет. Главное, чтобы работало. Кому как удобнее, тот так и делает. Я вот плохо знаю DOS-команды :cry: , разбираться с батниками лень, мне проще на дельфи написать.
Кстати, вот: http://infostart.ru/public/14817/
Запускает сколько угодно программ, возможность запуска следующей толко после завершения предыдущей, плюс возможность запуска от имени system (т.е. и на не залогиненном компе). Весит 430К. ini (чего и как надо запускать) - обычный текстовик.
Может и можно батником и vbs это сделать, но мне так проще было
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа