| Код |
Private Declare Function PostThreadMessage Lib "user32" Alias "PostThreadMessageA" _
(ByVal idThread As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const WM_QUIT = &H12
Const ClassName = "MozillaUIWindowClass"
Private Sub Command1_Click()
Dim ThreadID As Long
Dim Wnd As Long
Wnd = FindWindow(ClassName, vbNullString)
If Wnd = 0 Then Exit Sub
ThreadID = GetWindowThreadProcessId(Wnd, 0)
Call PostThreadMessage(ThreadID, WM_QUIT, 0, 0)
End Sub
|
|
)