[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]

Напишите, что происходит. »

Всё , спасибо - всё работает!!! ScreenShot_20210723212840.png ScreenShot_20210723212850.png ScreenShot_20210723212858.png ScreenShot_20210723212905.png. При включении/перезагрузке системы uTorrent запускается автоматически и раздаёт файловый мусор. TunnelBear активирую только при необходимости сам, ручками. Сейчас когда включаю СОЕДИНЕНИЕ в TunnelBear ScreenShot_20210723213153.png, uTorrent ПРЕКРАЩАЕТ (плавно) весь трафик. И наоборот: отключаю соединение - файлы начинают набирать скорость раздачи/приёма!!! То что я и хотел!!!!!
РЕШЕНО!!!

[megaloman]

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

[Prono]

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