경고 상자가 나타날 때 .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