VB 關閉已知標題視窗

使用API函數。先通過FindWindow得到視窗的控制代碼，然後對視窗發送關閉訊息。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_CLOSE = &H10

Private Sub Command1_Click()
Dim hwnd, result As Long
hwnd = FindWindow(vbNullString, "迅雷5") '尋找表單標題

If hwnd = 0 Then
    MsgBox "未找到視窗"
Else
    result = PostMessage(hwnd, WM_CLOSE, 0&, 0&)
    If result = 0 Then
        MsgBox "關閉視窗失敗"
    Else
        MsgBox "關閉OK"
    End If
End If

End Sub