Zorroz
|
 Posted: Tue Aug 01, 2006 17:19 Post subject: |
 |
|
Кто-то с форума написал помоему.
RestartTotal.vbs
| Code: |
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 |
Вешай на кнопку и будет тебе счастье.
_________________
Когда ангелу обрезают крылья, он учится летать на метле... |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
