Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


А с этим вопросом:
Цитата Iska:
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
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:31, 22-09-2012 | #4