VB如何结束NT结构系统下的进程？

Question

被我们大家熟悉的该死的瑞星网络版还有类似万象的网管软件，如何能把他们用VB结束掉？我试了几下，在结束的时候都要求输入这些软件的退出密码，有没有什么办法能够直接结束，不要任何的提示。先谢谢各位了！在线等

Answer 1

http://blog.csdn.net/online/archive/2004/08/05/66373.aspx

Answer 2

感谢二楼提供的程序。在FormLoad事件中ListView1.FullRowSelect = True是无效的！我遮蔽了程序就运行起来了！但是在第三个功能就是下面这段代码，好像总是检测不到Kavpfw.EXE，但是我确定这进程是存在且正常运行的。'循环检测进程中是否有指定进程，如果有，关闭，如果没有，启动一个程序Private Sub Command3_Click()  Dim my As PROCESSENTRY32  Dim l As Long  Dim l1 As Long  Dim flag As Boolean  Dim mName As String  Dim i As Integer   l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)  If l Then    my.dwSize = 1060    If (Process32First(l, my)) Then '遍历第一个进程      Do             i = InStr(1, my.szExeFile, Chr(0))             mName = LCase(Left(my.szExeFile, i - 1))        If mName = "Kavpfw.EXE" Then             PID = my.th32ProcessID             pname = mName             MsgBox "找到金山网络安全防火墙"              If MsgBox("你想删除 " & mName & " 进程?", vbYesNo + vbQuestion) <> vbYes Then                    Exit Sub                End If                 Dim mProcID As Long             mProcID = OpenProcess(1&, -1&, PID)             TerminateProcess mProcID, 0&                          flag = True             Exit Sub         Else             flag = False         End If      Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False    End If    l1 = CloseHandle(l)  End If End Sub