Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Помщь на vbs Добавлено: 10.08.09 22:43  

Автор вопроса:  kazin8
Привет всем форумчанам. Совсем недавно начал vbs.
Недавно возникла такая проблема. Мне нужно, чтобы при определенном загаловке окна (таком, который передается appActive) выполнялись определенные действия. Но перед этим, надо проверить, запущенно ли приложение. Тоесть, например, если открыт блокнот, и его заголовок Пример - Блокнот, то делать то то, иначе - ничего. Никак не могу сообразить, как же это делается....
Заранее спасибо. Надежда только на вас...

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Шпион



ICQ: 250543104 

Вопросов: 13
Ответов: 118
  Профиль | | #1 Добавлено: 12.08.09 08:03
ключевые слова для поиска "WMI Process"

Ответить

Номер ответа: 2
Автор ответа:
 Шпион



ICQ: 250543104 

Вопросов: 13
Ответов: 118
  Профиль | | #2 Добавлено: 14.08.09 07:22
  1.  
  2. On Error Resume Next
  3. strThisComputer="."
  4. strComputer=strThisComputer
  5. Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2")
  6. strMyApplicationName="explorer"
  7. If Err.Number <> 0 Then
  8. WScript.Quit
  9. End If
  10. For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name like '" & strMyApplicationName & "%'")
  11. Wscript.Echo objProc.Name
  12. Next



прошу обратить внимание, что в запросе к службе WMI после переменной strMyApplicationName поставлен %
собственно, запустив скрипт - поймете зачем это

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам