[решено] Деактивация одной программы при активации другой.

[Prono]

Всем здравствуйте.
Пользую программы "TunnelBear" и "utorrent-2.2.0". Есть необходимость , что б при активации/запуске "TunnelBear" производился выход (или приостановка ВСЕГО трафика) из "utorrent-2.2.0" и наоборот при закрытии (выходе) из "TunnelBear" автоматически запускался "utorrent-2.2.0". Как можно реализовать сию идею? Через планировщик? Через командную строку? Может в ярлыках что нужно прописать? А может вообще скрипт какой нужен?
Спасибо.
164973
164972
164971

[DJ Mogarych]

Сделайте на рабочем столе два батника с двумя строками в каждом - первый батник гасит торрент и запускает прогу, а второй гасит прогу и запускает торрент.

[megaloman]

Сделайте на рабочем столе два батника »Похоже "utorrent-2.2.0" присутствует постоянно, поэтому хватит одного командного файла, причем не батника (будет недовольство висящим CMD - окном), а, например, vbs.
1. Убиваем "utorrent-2.2.0"
2. Запускаем "TunnelBear" и ждем его завершения.
3. Запускаем "utorrent-2.2.0"
Вот вариант. Так как у меня нет указанных программ, я их для отладки подменил другими, которые есть у всех.utorrent = "C:\Windows\notepad.exe"
TunnelBear = "C:\Windows\System32\calc.exe"

Exe = CreateObject("Scripting.FileSystemObject").GetFileName(utorrent)
SQuery = "Select *From Win32_Process Where Name=" + """" + Exe + """"

Do
Set Processes = GetObject("winMgmts:").ExecQuery(SQuery)
For Each Process In Processes
Process.Terminate
Next
Loop While Processes.Count > 0

With CreateObject("WScript.Shell")
Ret = .Run("""" + TunnelBear + """", 1, True)
Ret = .Run("""" + utorrent + """", 1, False)
End WithЕстественно, для реальной работы надо прописать свои программы.
Если изначально utorrent не присутствовал, то при запуске скрипта TunnelBear запустится, и, по окончанию, запустится utorrent

[Prono]

megaloman, что то типа этого, но... что мне делать с этим "кодом"??? Куда вставлять ? Что за прога нужна???

[megaloman]

Prono, Сохранить этот код в файл с расширением .vbs. Этот файл - для системы стандартный исполняемый, запускается как любой другой исполнимый файл.
В файле прописать пути к своим программам. Файл можно поместить в любое место, хоть на рабочий стол, либо на этот файл сделать значок на рабочем столе. На всякий случай приложу файл живьём, единственное (кроме своих путей к программам), расширение .txt уберите.

[Prono]

megaloman, пути прописал, тхт убрал . Нажимаю запуск вылазит ошибка 164979, при этом да utorrent полностью закрывается... Я хотел что б при ЗАПУСКЕ TunnelBear ЗАКРЫВАЛСЯ utorrent. А так получается utorrent работает, запускаю TunnelBear, нажимаю на 164980 вылазит ошибка , жму "ок" окошко закрывается и закрывается utorrent, всё равно , что в самом utorrent жамкнуть "exit".

[megaloman]

Prono, переименуйте файл с Вашими изменениями с расширением txt и прикрепите к сообщению. Вы, похоже, неверно указали путь к файлу/файлам

[Prono]

и прикрепите к сообщению. »
164981

[megaloman]

Prono, Не учел, что у Вас в путях пробелы. Исправил.
А Вы уверены, что правильно указали пути? ИМХО, каждый EXE скорее всего имеет свой путь.utorrent = "C:\Program Files (x86)\uTorrent.exe"
TunnelBear = "C:\Program Files (x86)\TunnelBear.exe"
Сомневаюсь, что эти файлы в корне "C:\Program Files (x86)"

[Prono]

Сомневаюсь, что эти файлы в корне "C:\Program Files (x86)" »
Вы правы : сами то проги в папках с таким же названием 164990, 164991. Файл переименовал 164992, кликаю, но ... ничего не происходит!!

[megaloman]

utorrent = "C:\Program Files (x86)\uTorrent\uTorrent.exe"
TunnelBear = "C:\Program Files (x86)\TunnelBear\TunnelBear.exe"

Exe = CreateObject("Scripting.FileSystemObject").GetFileName(utorrent)
SQuery = "Select *From Win32_Process Where Name=" + """" + Exe + """"

MsgBox utorrent + vbCrLf + Exe + vbCrLf + TunnelBear

Do
Set Processes = GetObject("winMgmts:").ExecQuery(SQuery)
For Each Process In Processes
Process.Terminate
Next
MsgBox "Processes.Count=" + CStr(Processes.Count)
Loop While Processes.Count > 0

With CreateObject("WScript.Shell")
Ret = .Run("""" + TunnelBear + """", 1, True)
Ret = .Run("""" + utorrent + """", 1, False)
End With
Напишите, что происходит.

[Prono]

Напишите, что происходит. »
Всё , спасибо - всё работает!!! 164996 164997 164998 164999. При включении/перезагрузке системы uTorrent запускается автоматически и раздаёт файловый мусор. TunnelBear активирую только при необходимости сам, ручками. Сейчас когда включаю СОЕДИНЕНИЕ в TunnelBear 165000, uTorrent ПРЕКРАЩАЕТ (плавно) весь трафик. И наоборот: отключаю соединение - файлы начинают набирать скорость раздачи/приёма!!! То что я и хотел!!!!!
РЕШЕНО!!!

[megaloman]

Prono, Не понимаю, почему ранее не работало - ничего не изменилось. Красные строки можете удалить - они всего лишь информационные.

[Prono]

megaloman, Оу, скорее всего это я что то не так тогда делал или не разобрался. :blush: :blush:
Ещё раз - спасибки!!! :good: :up: