Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 1 из 1
  • 1
Модератор форума: Peter, DEMBEL, YURIY  
Проверка на запуск программы или процесса
JivchikДата: Вс, 30 Октября 2016, 00:30 | Сообщение # 1
Любопытный
Привет всем! 1000 лет тут не был. Рад, что форум жив))

Вопрос следующий. Делал курсы - аудио + материалы. Сегодня нашёл на раздачах. Сломать не получилось, но блин записали с экрана. Вопрос - можно ли как-то делать проверку на запущенные приложения и если они запущенны - прерывать приложение. Скажем запусти запись с экрана, наше приложение отследило процесс в системе и как только обнаружено его - выключилось. Понятно, что их много, но по факту их 10 популярных. Тоже самое интересно по портам - скажем проверка на подключение кабеля hdmi или звукового.

Спасибо за ответ!

Добавлено (30 Октября 2016, 00:30)
---------------------------------------------
Если у кого-то возникнут задачи на поиск и закрытие не нужных программ, как у меня.

Код

On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
    objProc.Terminate
Next
 
СообщениеПривет всем! 1000 лет тут не был. Рад, что форум жив))

Вопрос следующий. Делал курсы - аудио + материалы. Сегодня нашёл на раздачах. Сломать не получилось, но блин записали с экрана. Вопрос - можно ли как-то делать проверку на запущенные приложения и если они запущенны - прерывать приложение. Скажем запусти запись с экрана, наше приложение отследило процесс в системе и как только обнаружено его - выключилось. Понятно, что их много, но по факту их 10 популярных. Тоже самое интересно по портам - скажем проверка на подключение кабеля hdmi или звукового.

Спасибо за ответ!

Добавлено (30 Октября 2016, 00:30)
---------------------------------------------
Если у кого-то возникнут задачи на поиск и закрытие не нужных программ, как у меня.

Код

On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
    objProc.Terminate
Next

Автор - Jivchik
Дата добавления - 30 Октября 2016 в 00:30
PeterДата: Пн, 31 Октября 2016, 03:03 | Сообщение # 2
Админ NeoBook


Цитата Jivchik ()
Спасибо за ответ!

%)
За какой ответ?...
Вообще, подобные задачи (в идеале) должны решаться на уровне драйверов.
Можно, конечно, отслеживать запущенные процессы в бесконечном цикле, но это очень "не есть гуд".
А может я чего-то не догоняю.
В любом случае, без плагина тут не обойтись, а есть ли такой тоже неизвестно...


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение


Цитата Jivchik ()
Спасибо за ответ!

%)
За какой ответ?...
Вообще, подобные задачи (в идеале) должны решаться на уровне драйверов.
Можно, конечно, отслеживать запущенные процессы в бесконечном цикле, но это очень "не есть гуд".
А может я чего-то не догоняю.
В любом случае, без плагина тут не обойтись, а есть ли такой тоже неизвестно...

Автор - Peter
Дата добавления - 31 Октября 2016 в 03:03
mishemДата: Пн, 31 Октября 2016, 23:32 | Сообщение # 3
Эксперт форума
Цитата Peter ()
а есть ли такой тоже неизвестно.

Есть. Какой не помню. Из линейки hpw по моему что то есть, и у эсперальты было.


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Цитата Peter ()
а есть ли такой тоже неизвестно.

Есть. Какой не помню. Из линейки hpw по моему что то есть, и у эсперальты было.

Автор - mishem
Дата добавления - 31 Октября 2016 в 23:32
  • Страница 1 из 1
  • 1
Поиск: