VB6代码从任务管理器中结束进程

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

Public Sub KillProcess(ByVal ProcessName As String)

       Set oWMI = GetObject("winmgmts:")

       Set oServices = oWMI.InstancesOf("win32_process")

       For Each oService In oServices

           servicename = LCase(Trim(CStr(oService.Name) & ""))

           If InStr(1, servicename, LCase(ProcessName), vbTextCompare) > 0 Then

              oService.Terminate

           End If

       Next

End Sub

?复制代码

Private Sub Command1_Click()

KillProcess ("Cmd.exe") '终结进程名称

End Sub

打赏

支付宝微信扫一扫，打赏作者吧～

本文链接：https://www.kinber.cn/post/4926.html 转载需授权！

推荐本站淘宝优惠价购买喜欢的宝贝:

 您阅读本篇文章共花了：