Q: Нужен скрипт, который бы перезапускал запущенную копию TC (полезно при отладке плагинов).
A: Этот скрипт написал Volniy, и он идёт в качестве примера к Script Helper:
Option Explicit Dim TCS, WshShell, TCexe, Timeout, QuitByTimeOut Set TCS = CreateObject("TCScript.Helper") Set WshShell = WScript.CreateObject("WScript.Shell") TCexe = """" & TCS.TCPath & "\totalcmd.exe""" 'Завершаем работу ТС TCS.SendCommand "cm_Exit", True
'Ожидание завершения работы ТС Timeout = 3000 ' Сколько ждать выключения в мсек Do Timeout = Timeout - 100 If Timeout < 0 Then QuitByTimeOut = True: Exit Do WScript.Sleep 100 Loop While TCS.IsRunningTC
'Запускаем новый экземпляр программы If Not QuitByTimeOut Then WshShell.Run TCexe
Set TCS = Nothing Set WshShell = Nothing WScript.Quit
