Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / calc.exe / 7 сообщений из 7, страница 1 из 1
05.02.2007, 06:29
    #34305285
oxcom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc.exe
Как програмно проверить запущен ли калькулятор Windows!
...
Рейтинг: 0 / 0
05.02.2007, 07:07
    #34305294
ILL HEAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc.exe
API пример (ищем и закрываем окно)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Const WM_CLOSE = &H10
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
    Dim WinWnd As Long, Ret As String
    Ret = InputBox("Введите имя окна (титул):" )
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd =  0  Then MsgBox "Не найдено": Exit Sub
    MsgBox "Найдено"
    'Закрываем то что найдено
    PostMessage WinWnd, WM_CLOSE,  0 &,  0 &
End Sub
...
Рейтинг: 0 / 0
05.02.2007, 07:47
    #34305311
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc.exe
WMI

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='calc.exe'")

If WScript.Echo colProcessList.Count= 0  Then
	WScript.Echo "Is exist"
Else
	WScript.Echo "Not exist"
End If

Set colProcessList=Nothing
Set objWMIService=Nothing
...
Рейтинг: 0 / 0
05.02.2007, 08:10
    #34305331
ILL HEAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc.exe
специально напутал в условии ? :)
...
Рейтинг: 0 / 0
05.02.2007, 09:03
    #34305392
oxcom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc.exe
Спасибо Всем кто ответил!
...
Рейтинг: 0 / 0
05.02.2007, 10:13
    #34305513
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc.exe
ILL HEADспециально напутал в условии ? :)
нет, бес попутал ;-D

Код: plaintext
1.
2.
3.
4.
If WScript.Echo colProcessList.Count> 0  Then
	WScript.Echo "Is exist"
Else
	WScript.Echo "Not exist"
End If
...
Рейтинг: 0 / 0
05.02.2007, 10:52
    #34305638
oxcom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
calc.exe
АГа я внес изменения
Спасибо...
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / calc.exe / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]