源作者:鳞潜羽翔147
一个应用程序窗口被关闭后该程序终止运行'强制终止进程 2024.10.25
'说明：FindWindow取得窗口的句柄，用GetWindowThreadProcessid取得进程的procid，以procid为参数用OpenProcess取得进程句柄，用TerminateProcess终止该进程，hprocess为进程句柄，uExitCode为0
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '检索处理顶级窗口的类名和窗口名称匹配指定的字符串。这个函数不搜索子窗口。
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long '取得进程的 Procid
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Function ZzJc(CkBt As String, GbLx As Integer) As Long '终止进程，窗口标题，关闭类型，返回值（0关闭失败，1关闭成功，指定窗口不存在）
Dim Hwnd As Long '窗口句柄
Dim Procid As Long '进程ID
Dim ProId As Long
Dim hPro As Long '进程句柄
' CkBt = "模拟器" & Format(Val(Form2.Text10.Text), "#00")
Hwnd = FindWindow(vbNullString, CkBt) '用FindWindow函数查找指定的"模拟器"窗口
Delay 100
If Hwnd = 0 Then
Form2.Text11.Text = "不存在"
应用程序的窗口关闭后,该应用程序ZzJc = 2
Form2.Text14.Text = ZzJc
Exit Function
End If
Form2.Text11.Text = Hwnd
Procid = GetWindowThreadProcessId(Hwnd, ProId) '取该窗口所属的进程ID
Delay 100
Form2.Text12.Text = ProId
hProc = OpenProcess(&H1, True, ProId) '获取进程句柄
Delay 100
Form2.Text13.Text = hProc
ZzJc = TerminateProcess(hProc, 0) '关闭进程
Delay 100
Form2.Text14.Text = ZzJc
End Function
