vb.net 利用APi 、句柄，通过GetWindowThreadProcessId 获得窗口所在进程ID和线程ID 结束目标进程

''' <summary>
''' 声明
''' </summary>
''' <param name="hwnd"></param>
''' <param name="lpdwProcessId"></param>
''' <returns></returns>
''' <remarks></remarks>
<DllImport("user32.dll", SetLastError:=True)> _
Public Shared Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, _
ByRef lpdwProcessId As Integer) As Integer
End Function

Dim dest_id As Integer
Dim dest_lProcId As Integer = Nothing
dest_id = GetWindowThreadProcessId(Form2.Hwd_01, dest_lProcId)
'MessageBox.Show(dest_id & ":" & dest_lProcId)
Dim pro As Process
pro = Process.GetProcessById(dest_lProcId)
pro.Kill()