vbs 殺死程序 殺死指定程序名稱的小VBS

2021-10-16 18:05:02 字數 4079 閱讀 6896

vbs 的 殺死指定程序名稱的小vbs

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

function killproc(strprocname)

on error resume next

set objwmiservice = getobject("winmgmts:!\\.\root\cimv2")

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 "發現程序"

elseif 返回值 = false then

messagebox "沒有發現程序"

end if

//檢測程序 優化後的**

if isprocess("qq.exe") = true then

messagebox "發現程序"

else

messagebox "沒有發現程序"

end if

//檢測程序組

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

返回值 = isproces***(程序組)

if 返回值 = true then

messagebox "發現程序"

elseif 返回值 = false then

messagebox "沒有發現程序"

end if

//檢測程序組 優化後的**

if isproces***("qq.exe|notepad.exe") = true then

messagebox "發現程序"

else

messagebox "沒有發現程序"

end if

//結束程序 前台執行

程序名 = "qq.exe"

call closeprocess(程序名, 1)

//結束程序 後台執行

程序名 = "qq.exe"

call closeprocess(程序名, 0)

//結束程序組 前台執行

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

call closeproces***(程序組, 1)

//結束程序組 後台執行

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

call closeproces***(程序組, 0)

//例項應用 結束程序 前台執行 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

//例項應用 結束程序 前台執行 優化後的**(直到型迴圈) 有些程序vbs檢測不到 所以先關閉後檢測

docall closeprocess("qq.exe",1)

delay 1000

loop while isprocess("qq.exe")=true

messagebox "結束程序成功"

//例項應用 結束程序組 後台執行 10秒超時

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

for 10

call closeproces***(程序組,0)

delay 1000

返回值 = isproces***(程序組)

if 返回值 = false then

exit for

end if

next

if 返回值=true then

messagebox "結束程序失敗"

else

messagebox "結束程序成功"

end if

//例項應用 結束程序組 後台執行 優化後的**(直到型迴圈) 有些程序vbs檢測不到 所以先關閉後檢測

docall closeproces***( "qq.exe|notepad.exe",0)

delay 1000

loop while isproces***( "qq.exe|notepad.exe")=true

messagebox "結束程序成功"

//函式 子程式部分**

//檢測程序

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 isproces***(exename)

dim wmi, obj, objs,processname,i

isproces*** = 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

isproces*** = true

exit for

end if

next

next

set objs = nothing

set wmi = nothing

end function

//結束程序組

sub closeproces***(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

vbs 殺死程序 殺死指定程序名稱的小VBS

以下是一小段殺死指定程序名字的小vbs,希望對大家有幫助。function killproc strprocname on error resume next set objwmiservice getobject winmgmts root cimv2 set arrprocesses objwm...

vbs 殺死程序 VBS殺死指定程序

以下是一小段殺死指定程序名字的小vbs,希望對大家有幫助。function killproc strprocname on error resume next set objwmiservice getobject winmgmts ootcimv2 set arrprocesses objwmis...

vbs 殺死程序 VBS殺死指定程序

以下是一小段殺死指定程序名字的小vbs,希望對大家有幫助。function killproc strprocname on error resume next set objwmiservice getobject winmgmts ootcimv2 set arrprocesses objwmis...