"уважаемый" модератор

[v-adix]

... я 10 раз делал поск как по старому, так и по новому форуму. результатов не дало.
так что тему вы зря закрыли.
Я ЖЕ НЕ БУДУ ОТВЕЧАТЬ НА ТЕМУ, КОТОРАЯ УЖЕ НА 7 СТРАНИЦЕ!!! КТО НА НЕЁ ОТВЕТИТ??? ВЫ ЧТО ДАЖЕ ЭТО НЕ ПОНИМАЕТЕ???

[RayShade]

Специально для тех, кто не протер с утра глаза сообщаю: в разделе ВБ для новичков в первой десятке тем сверху лежит топик http://bbs.vbstreets.ru/viewtopic.php?t=3316



В нем подробно описано как пользоваться этой АПИ.

[v-adix]

Специально для тех, кто не протер с утра глаза сообщаю:
я просил конкретный пример, как закрыть программу iexplore.exe. Этот код я смотрел, он у меня не работает.

И ещё
Почему я не промолчал, а создал этот топик.
1) Допустим, я неделю назад создал топик, в котором я спросил как использовать TerminateProcess. Сегодня я зашёл и прочитал ответы, но у меня ничего не получилось. Что я должен по вашему делать, если я не могу создать топик, только по причине что это запрещено вашими дибильными правилами?
2) Я подобный топик создал только 1 раз, он сейчас на 20й странице. Не надо придираться к словам, мол "не надо создавать 10 топиков..."

[GSerg]

1. Наши правила не дебильные.
2. Топики сортируются по дате последнего ответа, и свежеотвеченный топик перемещается вверх.
3. Если не получилось, в том же топике об этом говори, если не поможем, то хоть посочувствуем.
4. Программа iexplore.exe закрывается так

[v-adix]

1) я не имею возможности каждый день заходить на форум. за месяц мой топик может переместиться далеко назад!
2) Мне нужен пример с TerminateProcess
напр. в форме: TermProc "hl.exe"
а в модуле что - это я у вас спрашиваю
2) может правила не дибильные, но кое-кто дебил, и это точно не я

[RayShade]

Короче.

Хватит флейма.

Повторяю еще раз - умение задавать вопросы гарантирует получение на них ответа.

Форум - место, где тебе дают пищу для размышлений, а не готовый ответ на блюдечке. В указанном топике достаточно информации чтоб ыты мог реализовать то что тебе надо. Если ты даже не пытаешься разобраться в коде, что тебе пишут - значит проблема не в форуме а в тебе.

[v-adix]

нехрена было тему закрывать. я спросил и я хочу получить ответ, ведь форум для этого создан? если вы так на меня разозлились то хотябы сделали предупреждение. что мне сейчас новый топик создавать "как работать с terminate process"?
вам помоему кайф дает темы закрывать, вы придираетесь к чему только можно. и мне сейчас пох#й закроете ли вы этот топик или нет, можете вообще удалить мой аккаунт, я зарегистрируюсь заново. хорошо я хоть рейтинг набрал на этих сообщениях

[Amed]

2v-adix
Веди себя прилично и следи за выражениями!

[v-adix]

Повторяю еще раз - умение задавать вопросы гарантирует получение на них ответа.

я не нормально вопрос задал?

Форум - место, где тебе дают пищу для размышлений, а не готовый ответ на блюдечке

я бы не создавал топик, если бы понял то что уже есть на форуме

Если ты даже не пытаешься разобраться в коде, что тебе пишут - значит проблема не в форуме а в тебе.

повторяю, я пытаюсь разобраться в коде, но не могу

Программа iexplore.exe закрывается так

как, как? покажите!

[A.A.Z.]

Программа iexplore.exe закрывается так

как, как? покажите!

Cсылку ж дали!

Код: Выделить всё

'====МОДУЛЬ====
Const SC_CLOSE = &HF060&
Const WM_SYSCOMMAND = &H112&

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
If InStr(sSave, "Explorer") > 0 Then SendMessage hwnd, WM_SYSCOMMAND, SC_CLOSE, 0
EnumWindowsProc = True
End Function

'====ФОРМА====
Private Sub Form_Load()
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub



[alibek]

1. Если есть вопросы к модераторам -- в приват;
2. Я бы на месте модератора уже влепил бы тебе плюс;
3. Будешь плохо себя вести -- забанят подсеть;
4. RTFM

[RayShade]

2 v-adix

Я бы порекомендовал повежливее все таки обращаться, без использования ненормативной лексики. А также воздержаться от скоропалительных высказываний в адрес администрации.



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