
vbs果c/c++写一个结束某个进程的程序
要求:用一个输入框来输入要结束的进程,比如要结束cmd.exe这个进程则在输入框中输入cmd.exe。最好能用vbs写,优先采纳vbs代码。麻烦各位大侠给出源代码,谢谢了...
要求:用一个输入框来输入要结束的进程,比如要结束cmd.exe这个进程则在输入框中输入cmd.exe。最好能用vbs写,优先采纳vbs代码。麻烦各位大侠给出源代码,谢谢了。
展开
2个回答
展开全部
'============代===码======开===始=======================
On Error Resume Next
dim s
s=inputbox("请输入进程名:")
Set objWMIService =GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList=objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess in colProcessList
objProcess.Terminate() '这句就是结束进程的代码
msgbox "进行已结束!"
Next
'=============VBS团队======catkeno=======================
'Created By catkeno From VBS团队!
'============代===码======结===束=======================
On Error Resume Next
dim s
s=inputbox("请输入进程名:")
Set objWMIService =GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList=objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess in colProcessList
objProcess.Terminate() '这句就是结束进程的代码
msgbox "进行已结束!"
Next
'=============VBS团队======catkeno=======================
'Created By catkeno From VBS团队!
'============代===码======结===束=======================
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询