Close a program

[Zvonko]

Hello!

How can I close some other program through my own program in VB? How can I minimize/maximize/set focus it?

[kedaman]

To close a window send a WM_CLOSE message to the window by it's handle (hwnd) using sendMessage api. Use FindWindow to find a window by it's caption or classname. Use showwindow to minimize/maximize your window. YOu could use SetForegroundWindow to activate a window, or in vb use appactivate

'in declarations
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Const WM_CLOSE = &H10
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMINIMIZED As Long = 2
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_RESTORE As Long = 9
'in code
wnd = FindWindow("NotePad", vbNullString)'find for instance notepad
ShowWindow wnd, SW_SHOWMINIMIZED'to minimize
ShowWindow wnd, SW_SHOWMAXIMIZED'to maximize
ShowWindow wnd, SW_SW_RESTORE ' to restore
SendMessage wnd, WM_CLOSE, 0, 0 'to close

It's a good idea to Destroy the window once it's been closed.

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 Any, ByVal lpWindowName As Any) As Long
Const WM_CLOSE = &H10
Const WM_DESTROY = &H2

Private Sub Command1_Click()

    MyHwnd = FindWindow(0&, "Calculator")
    SendMessage MyHwnd, WM_CLOSE, 0, 0
    SendMessage MyHwnd, WM_DESTROY, 0, 0
    
End Sub

[kedaman]

uh, i forgot the setfocus thing;

'in declarations
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

'in code
    wnd = FindWindow("NotePad", vbNullString)
    SetForegroundWindow wnd
'or
    AppActivate "Calculator"