¿Cómo puedo hacer que un archivo .bat se ejecute automáticamente cuando aparece un cuadro de alerta?

Question

A veces, POP Peeper de repente no funciona en mi computadora. Siempre que esto suceda, aparecerá un cuadro de alerta y el PID del cuadro en el Administrador de tareas es 244. La solución es reiniciar POP Peeper. Sé cómo usar un archivo .bat para reiniciar un programa, pero no sé cómo hacer que el archivo se ejecute automáticamente cuando aparece el cuadro de alerta.

¿Alguien puede enseñarme cómo hacer eso?
El siguiente es el cuadro de alerta en cuestión.

Answer 1

El script a continuación debería hacer lo que querías, es decircierre la ventana emergente cuando aparezca y luego reinicie otro proceso

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