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

[accession15]

被我们大家熟悉的该死的瑞星网络版还有类似万象的网管软件，如何能把他们用VB结束掉？

我试了几下，在结束的时候都要求输入这些软件的退出密码，有没有什么办法能够直接结束，不要任何的提示。

先谢谢各位了！

在线等。。。

[MY2000]

UP

[aiur2000]

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

[starsoulxp]

好象瑞星的手动关闭进程都去不掉，不知道用代码行不行

[accession15]

感谢二楼提供的程序。

在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

[accession15]

up

[jam021]

关注,帮你顶!