Às vezes, o POP Peeper de repente não funciona no meu computador. Sempre que isso acontecer, uma caixa de alerta aparecerá e o PID da caixa no Gerenciador de Tarefas é 244. A solução é reiniciar o POP Peeper. Sei como usar um arquivo .bat para reiniciar um programa, mas não sei como fazer com que o arquivo seja executado automaticamente quando a caixa de alerta for exibida.
Alguém pode me ensinar como fazer isso?
A seguir está a caixa de alerta em questão.
Responder1
O script abaixo deve fazer o que você queria, ou sejafeche o pop-up quando ele aparecer e reinicie outro processo
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