VB中如果结束一个程序的进程？

怎么实现和windows管理器那样管理windows程序的进程?

VB之WINDOWS进程管理

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, lProcessID As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Declare Function GetWindowThreadProcessId& Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)

Private Declare Function Process32First Lib "kernel32" (ByVal hsnapshot As Long, uprocess As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "kernel32" (ByVal hsnapshot As Long, uprocess As PROCESSENTRY32) As Long

'''''''''设置俺的程序优先极为最高

Const THREAD_BASE_PRIORITY_IDLE = -15

Const THREAD_BASE_PRIORITY_LOWRT = 15

Const THREAD_BASE_PRIORITY_MIN = -2

Const THREAD_BASE_PRIORITY_MAX = 2

Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN

Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX

Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)

Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1)

Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE

Const THREAD_PRIORITY_NORMAL = 0

Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT

Const HIGH_PRIORITY_CLASS = &H80

Const IDLE_PRIORITY_CLASS = &H40

Const NORMAL_PRIORITY_CLASS = &H20

Const REALTIME_PRIORITY_CLASS = &H100

Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long

Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long

Private Declare Function GetThreadPriority Lib "kernel32" (ByVal hThread As Long) As Long

Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long

Private Declare Function GetCurrentThread Lib "kernel32" () As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

'''''''''这儿让我的窗体在最上

• ·蒙泰的群号是多少？
• ·我的私家车被刮碰，找不到对方，在人寿上的全险，
• ·皮肤上有和肤色不样的,有点泛白,还有点痒.这是
• ·星三角形启动原理
• ·我的机器被别人用WIN+L,锁定了,进系统要密
• ·右击D盘，格式化 框框里的东西都是什么意思，怎
• ·历史上为何分东、西周，东、西汉，南、北朝（宋）
• ·AOE单刷ZG的冰法怎样加的天赋？
• ·我在读环境艺术设计的本科,请问需要考取哪些资格
• ·怎么征服女人的心