從外部關閉帶視窗的進程

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Sub Form_Load()
Dim Fhwnd As Long, Phwnd As Long
Dim id As Long

Fhwnd = FindWindow(vbNullString, "計算機")
GetWindowThreadProcessId Fhwnd, id
Phwnd = OpenProcess(PROCESS_ALL_ACCESS, False, id)
TerminateProcess Phwnd, 0
End Sub

從外部關閉進程，首先要得到進程的Id，通過id得到控制代碼，然後調TerminateProcess關掉進程。