以下是一小段殺死指定進程名字的小vbs，希望對大家有幫助。

Function KillProc(strProcName)

On Error Resume Next

 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\. ootcimv2")

 Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )

 For Each proccess In arrProcesses

 proccess.Terminate 0

 Next

End Function

VBS命令-進程操作代碼(檢測進程, 結束進程)

//檢測進程

進程名 = "qq.exe"

返回值 = IsProcess(進程名)

If 返回值 = True Then

MessageBox "發(fā)現(xiàn)進程"

ElseIf 返回值 = False Then

MessageBox "沒有發(fā)現(xiàn)進程"

End If

//檢測進程 優(yōu)化后的代碼

If IsProcess("qq.exe") = True Then

MessageBox "發(fā)現(xiàn)進程"

Else

MessageBox "沒有發(fā)現(xiàn)進程"

End If

//檢測進程組

進程組 = "qq.exe|notepad.exe"

返回值 = IsProcessEx(進程組)

If 返回值 = True Then

MessageBox "發(fā)現(xiàn)進程"

ElseIf 返回值 = False Then

MessageBox "沒有發(fā)現(xiàn)進程"

End If

//檢測進程組 優(yōu)化后的代碼

If IsProcessEx("qq.exe|notepad.exe") = True Then

MessageBox "發(fā)現(xiàn)進程"

Else

MessageBox "沒有發(fā)現(xiàn)進程"

End If

//結束進程 前臺執(zhí)行

進程名 = "qq.exe"

Call CloseProcess(進程名, 1)

//結束進程 后臺執(zhí)行

進程名 = "qq.exe"

Call CloseProcess(進程名, 0)

//結束進程組 前臺執(zhí)行

進程組 = "qq.exe|notepad.exe"

Call CloseProcessEx(進程組, 1)

//結束進程組 后臺執(zhí)行

進程組 = "qq.exe|notepad.exe"

Call CloseProcessEx(進程組, 0)

//實例應用 結束進程 前臺執(zhí)行 10秒超時

進程名 = "qq.exe"

For 10

Call CloseProcess(進程名,1)

Delay 1000

返回值 = IsProcess(進程名)

If 返回值 = False Then

Exit For

End If

Next

If 返回值=True Then

MessageBox "結束進程失敗"

Else

MessageBox "結束進程成功"

End If

//實例應用 結束進程 前臺執(zhí)行 優(yōu)化后的代碼(直到型循環(huán)) 有些進程VBS檢測不到 所以先關閉后檢測

Do

Call CloseProcess("qq.exe",1)

Delay 1000

Loop While IsProcess("qq.exe")=True

MessageBox "結束進程成功"

//實例應用 結束進程組 后臺執(zhí)行 10秒超時

進程組 = "qq.exe|notepad.exe"

For 10

Call CloseProcessEx(進程組,0)

Delay 1000

返回值 = IsProcessEx(進程組)

If 返回值 = False Then

Exit For

End If

Next

If 返回值=True Then

MessageBox "結束進程失敗"

Else

MessageBox "結束進程成功"

End If

//實例應用 結束進程組 后臺執(zhí)行 優(yōu)化?的代碼(直到型循環(huán)) 有些進程VBS檢測不到 所以先關閉后檢測

Do

Call CloseProcessEx( "qq.exe|notepad.exe",0)

Delay 1000

Loop While IsProcessEx( "qq.exe|notepad.exe")=True

MessageBox "結束進程成功"

//函數(shù) 子程序部分代碼

//檢測進程

Function IsProcess(ExeName)

Dim WMI, Obj, Objs,i

IsProcess = False

Set WMI = GetObject("WinMgmts:")

Set Objs = WMI.InstancesOf("Win32_Process")

For Each Obj In Objs

If InStr(UCase(ExeName),UCase(Obj.Description)) <> 0 Then

IsProcess = True

Exit For

End If

Next

Set Objs = Nothing

Set WMI = Nothing

End Function

//結束進程

Sub CloseProcess(ExeName,RunMode)

dim ws

Set ws = createobject("Wscript.Shell")

ws.run "cmd.exe /C Taskkill /f /im " & ExeName,RunMode

Set ws = Nothing

End Sub

//檢測進程組

Function IsProcessEx(ExeName)

Dim WMI, Obj, Objs,ProcessName,i

IsProcessEx = False

Set WMI = GetObject("WinMgmts:")

Set Objs = WMI.InstancesOf("Win32_Process")

ProcessName=Split(ExeName,"|")

For Each Obj In Objs

For i=0 to UBound(ProcessName)

If InStr(UCase(ProcessName(i)),UCase(Obj.Description)) <> 0 Then

IsProcessEx = True

Exit For

End If

Next

Next

Set Objs = Nothing

Set WMI = Nothing

End Function

//結束進程組

Sub CloseProcessEx(ExeName,RunMode)

dim ws,ProcessName,CmdCode,i

ProcessName = Split(ExeName, "|")

For i=0 to UBound(ProcessName)

CmdCode=CmdCode & " /im " & ProcessName(i)

Next

Set ws = createobject("Wscript.Shell")

ws.run "cmd.exe /C Taskkill /f" & CmdCode,RunMode

Set ws = Nothing

End Sub