Прошу прощения, если такая тема уже была, просто не знаю как задать этот вопрос в поиске. Конкретно. Стоит браузер SeaMonkey (хотя, здесь разницы особой нет - он стоит по умолчанию) и есть программа - счетчик трафика. Можно ли сделать так, чтобы, запуская браузер, одновременно "включался" счетчик (одним кликом), и, соответственно, закрывая браузер, счетчик отключался? И аналогично - другая связка других программ. Один клик - две программы?
наеяло ответить... создаем файл ТХТ, открываем в блокноте и пишем туда в первую строку запуск первой проги (путь все как надо) и на следующей строке ко второй. Сохраняем, меняем расширение с "txt" на "bat". Примерно вот запускается ишак: вот типо как оно выглядит - строк раз: C:\Program Files\Internet Explorer\IEXPLORE.EXE
можно в батнике организовать ожидание завершения через start /wait ...... счетчик включается start /wait iexplore счетчик выключается
фиг Вам. bat-файл - файл DOS. Из оболочки Win XP программы не запустились - ни одна! Другие предложения есть?
Сергей В, Фиг тебе, этот фаил не имеет ни какого отношения к операциооной системе и запустить через него можно все, хоть в ВИСТе добавлено через 2 минуты Сергей В, Ты лучше покажи, что ты там написал И расширение с txt на bat поменял
Пожалуйста: C:\Program Files\SeaMonkey\seamonkey.exe C:\Program Files\TrafficCounter3\tcount3.exe Пути списывались путем копирования из ярлыков, которые сами по себе работают! Думаешь, я совсем тупой? После Запуска созданного bat-файла на очень короткое время появляется "черное" "досовское" окно, и все - больше ничего не происходит.
попробовал и с w и без w. Не прокатило! Сначала писал без кавычек. Исправил. Запускается только та программа, которая стоит первой по списку, вторая не запускается! Дальнейшие указания!?
Dim WshShell, oExec1, oExec2 Set WshShell = CreateObject("WScript.Shell") Set oExec1 = WshShell.Exec("C:\Program Files\SeaMonkey\seamonkey.exe") Set oExec2 = WshShell.Exec("C:\Program Files\TrafficCounter3\tcount3.exe") Do While oExec1.Status = 0 WScript.Sleep 100 Loop oExec2.Terminate