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...