Показать полную графическую версию : Проверить конкретный активный процесс.
Подкиньте, пожалуйста, пример на VBA, как проверить конкр. процесс, активен ли он. Если не активен, то запустить файл или программку, звязанную с ним. А если активен, то принудительно и безповоротно его завершить.
1. Что значит «процесс активен»?! Существует?
2. В рамках какого конкретно приложения (Word/Excel/Access) Вам нужно сие решать? Или решение должно быть объемлющим?
Ну да, существует ли в данное время? Процесс wmplayer.
А с этим вопросом:2. В рамках какого конкретно приложения (Word/Excel/Access) Вам нужно сие решать? Или решение должно быть объемлющим? »
что ж ответ пропустили?
Ладно, будем считать, что объемлющим. Пробуйте:
Option Explicit
Sub FlipFlopProcess()
Dim collSWbemObjectSet As Object
Dim objSWbemObjectEx As Object
With CreateObject("WbemScripting.SWbemLocator")
With .ConnectServer(".", "root\cimv2")
Set collSWbemObjectSet = .ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'wmplayer.exe'")
If collSWbemObjectSet.Count > 0 Then
For Each objSWbemObjectEx In collSWbemObjectSet
objSWbemObjectEx.Terminate
Next
Else
.Get("Win32_Process").Create "C:\Program Files\Windows Media Player\wmplayer.exe", Empty, Nothing, Empty
End If
Set collSWbemObjectSet = Nothing
End With
End With
End Sub
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.