从外部关闭带窗口的进程

最新推荐文章于 2025-04-24 17:46:29 发布

dongle2001

最新推荐文章于 2025-04-24 17:46:29 发布

阅读量1k

点赞数

分类专栏： VB 文章标签： function access string user

本文链接：https://blog.youkuaiyun.com/dongle2001/article/details/404864

版权

VB 专栏收录该内容

6 篇文章

订阅专栏

博客展示了通过API函数从外部关闭进程的代码。使用FindWindow、OpenProcess等函数，先获取进程的Id，再通过Id得到句柄，最后调用TerminateProcess函数关闭进程，如关闭计算器进程的示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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关掉进程。