VB 关闭QQ进程

Private Sub Command1_Click()
Shell "cmd /c taskkill /f /im QQ.exe /im IEXPLORE.exe", vbHide
End Sub

用API
Private Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

【说明】
结束一个进程
在VB里使用
可以使用，但尽量不用

【返回值】
Long，非零表示成功，零表示失败

【参数表】
hProcess ------- Long，指定要中断的一个进程的句柄
uExitCode ------ Long，进程的一个退出代码

给一个例子你吧

新建一个工程
菜单-工程--部件，找到microsoft windows common controls 6.0
勾上确定，然后将LISTVIEW这个控件加进去
再在窗体上加三个command
代码如下

Option Explicit
'======================用于查找进程和终止进程的API函数常数定义================ =====
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32"