VBS скрипт

[Вик]

Уважаемые гуру программирования есть такой скрипт vbs

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "programs2.exe", 0
WScript.Sleep(8000)
WshShell.SendKeys(" ")
WScript.Sleep(400)
WshShell.Run "g:\programs1\programs1.exe",1
WScript.Quit(0)

нужно усовершенствовать этот скрипт таким образом чтобы при завершении programs1.exe автоматически закрывалась programs2.exe

нашел такой кусок кода но незнаю как его применить

'**********************************__Убиваем процессы_notepad.exe__*************************************
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
    objProc.Terminate
Next
'****************************************************************************************************

Думаю понятно объяснил

[PhoeniXX]

Нижний кусок кода просто проверяет по списку процессов запущен ли он и киляет его. Делает это он единожды. Нужно выполнять этот кусок по for-у каждые пару секунд, используя sleep.

В WinAPI можно все сделать проще через WaitForSingleObject(parentProcessHandle), и он будет ждать пока процесс и его хендл не перестанут существовать. Но не уверен, что это применимо в VBScript-е.

Почесав затылок, юзер дописал через 4 минуты
Вот ссылка с примером для WaitForSingleObject для VBScript - http://www.dotfix.net/forum/index.ph...rum=4&topic=45

[ms-rem]

я не очень разбераюсь в VB, но точно могу сказать что в функции Form_Load() вызов MessageBox надо убрать ибо приложение само не завершится.

[PhoeniXX]

По ссылке просто сэмпл того, что оно все работает. и MsgBox выполнится тогда, когда закроется notepad. Это просто пример, не более.