Закрытие стороннего приложения - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д