Закрытие стороннего приложения - VB

Узнай цену своей работы

Формулировка задачи:

Помогите плиз. МОжно ли сделать так: (говорю как бы уже про готовую программу): на форме есть кнопка, при нажатии на эту кнопку, закрывается приложение, местонахождение которого мы указывали в коде. Вот допустим у меня включен Браузер, и открываю это приложение, жму на кнопку и браузер закрывается вместе с приложением. Ну если без приложение, то тоже норм...

Решение задачи: «Закрытие стороннего приложения»

textual
Листинг программы
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Const WM_CLOSE = &H10
Private Sub CloseProg(hwnd As Long)
SendMessage hwnd, WM_CLOSE, 0, 0
End Sub
Private Sub Command1_Click()
Dim hand As Long
Do
Sleep 200
' Тут название нашей программы, которую надо остановить
hand = FindWindow("IEFrame", vbNullString) ' в случае с IE проще использовать имя класса окна ( название всегда разное)
'hand = FindWindow(vbNullString, "Калькулятор Плюс") ' или точное название окна - если оно постоянно
CloseProg hand
Loop While hand <> 0
MsgBox "Вырубилась!"
DoEvents
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы