Как сделать так, чтобы файл .bat запускался автоматически при появлении окна с предупреждением?

Question

Иногда POP Peeper вдруг не работает на моем компьютере. Всякий раз, когда это происходит, всплывающее окно с предупреждением и PID блока в диспетчере задач 244. Решение состоит в том, чтобы перезапустить POP Peeper. Я знаю, как использовать файл .bat для перезапуска программы, но не знаю, как заставить файл запускаться автоматически, когда появляется окно с предупреждением.

Кто-нибудь может научить меня, как это сделать?
Ниже приведено окно предупреждения.

Answer 1

Сценарий ниже должен делать то, что вы хотели, т.е. закрывать всплывающее окно, когда оно появляется, а затем перезапустить другой процесс

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    i = x 
    Do While i = x
        Set colProcesses = objWMIService.ExecQuery _
            ("Select * from Win32_Process Where Name = 'notepad.exe'")
            '("Select * from Win32_Process Where Name = 'Name of Your process you are waiting for to start'")

    If colProcesses.Count = 0 Then
        'It does not exist do nothing
    Else
        For Each objProcess in colProcesses
            'this will close the process you were watching, as soon as it starts
            objProcess.Terminate()

                'Closing the process you want to restart
                Set colProcesses = objWMIService.ExecQuery _
                 ("SELECT * FROM Win32_Process WHERE Name = 'winword.exe'")
                 '("SELECT * FROM Win32_Process WHERE Name = 'name of the process you want to terminate'")
                For Each objProcess2 in colProcesses
                 objProcess2.Terminate()
                Next

            Dim objShell
            Set objShell = WScript.CreateObject( "WScript.Shell" )

            objShell.Run("""C:\Program Files (x86)\Internet Explorer\iexplore.exe""")
            'objShell.Run("""process or application you want to start""")
            Set objShell = Nothing

        Next
    End If

Loop