VPF::Завершение работы Internet Explorer c помощью VB6

morgot

Дата 23.3.2007, 13:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 30.10.2006

Репутация: нет
Всего: нет

Необходимо завершение работы Internet Explorer c помощью VB6.
Пробовал такой код:

Код


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'поиск открытого окна
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Const WM_CLOSE = &H10 'для отключения пользовательских процессов
Const WM_SYSCOMMAND = &H10 'для оключения диспетчера задач

Dim WinIE As Long 'для Internet Explorer
WinIE = FindWindow("IEFrame", vbNullString)
  If WinIE <> 0 Then SendMessage WinQK, WM_CLOSE, 0, 0
или
  If WinIE <> 0 Then SendMessage WinIE, WM_SYSCOMMAND, WM_CLOSE, 0

не сработало, хотя открытое окно IE успешно отслеживается, а другие программы, вроде Counter Strike без проблем завершаются.

Если кто может помочь - пожалуйста, помогите. Заранее спасибо.

Akina

Дата 23.3.2007, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

IE - это по сути многоуровневое приложение... и закрывать надо не окно, а процесс ядра IE.

в VBS это выглядит так:

Код


for each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='Iexplore.exe'")
   Process.Shutdown (0)
Next

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

XPurple

Дата 28.3.2007, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 4.5.2006
Где: Челябинск

Репутация: 1
Всего: 1

Akina,
Чего то в Vbs- не работает.
Пишет, что неподдерживаемый метод Process.Shutdown

--------------------

Кто никогда ни о чем не спрашивает: тот либо знает все, либо не знает ничего. Не помню, кто сказал, может быть, я (с)

Akina

Дата 28.3.2007, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Я понимаю, что, получив идею, лень вникать в частности...

Код


Dim Process
Dim Processes
Set Processes = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='Iexplore.exe'")
for each Process in Processes
   Process.Terminate(0)
Next

--------------------

Tectoder

Дата 28.3.2007, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 202
Регистрация: 13.3.2007

Репутация: нет
Всего: 8

morgot, и еще, WM_CLOSE это сообщение для сворачивания окна. Для закрытия есть сообщение WM_DESTROY. А еще лучше использовать DestroyWindow. Но это все, разумеется, закрывает только окно, но не процесс

morgot

Дата 3.4.2007, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 30.10.2006

Репутация: нет
Всего: нет

Большое спасибо, помогло. Но появился такой вопрос: где можно найти учебное описание подобных команд, чтобы, если опять столкнусь с подобной задачей, не лазить лишний раз на форум, а разобраться самому? В обычных книгах по VB я подобного не встречал.

Akina

Дата 3.4.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

MSDN.Microsoft.Com

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »