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

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

Ветеран


Contributor


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

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


VBS
Код: Выделить весь код
Maska = "^winsolit_.*$"

Set ProcL = GetObject("winmgmts:").ExecQuery("Select * From Win32_Process")

With CreateObject("VBScript.RegExp")
    .Pattern = Maska
    .IgnoreCase = True
    .Global = True
    For Each iProc In ProcL
        If .Test(iProc.Name) Then
            iProc.Terminate
        End If
    Next
End With

MsgBox "Done"
Единственное, написать регулярку
Тестировал на старой игре winsolit
Скопировал несколько раз exe с разными именами и запустил их.

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 05-12-2019 в 17:15.


Отправлено: 16:59, 05-12-2019 | #11