vbs工作时关闭所有文件

kllay

可以自己添加想要杀死的进程，在函数ssjc中添加即可
如果不知道你打开的软件进程名称，可以打开任务管理器，选中你打开的文件，右击 --选中转到进程即可看到进程名称，添加到里面即可
保存为vbs   


执行程序
call ssjc()
sub ssjc()
dim sj(15)
sj(0)="cmd.exe"
sj(1)="SecureCRT.exe"
sj(2)="360chrome.exe"
sj(3)="360MobileMgr.exe"
sj(4)="chrome.exe"
sj(5)="notepad++.exe"
sj(6)="notepad.exe"
sj(7)="Foxmail.exe"
sj(8)="java.exe"
sj(9)="dllhost.exe"
sj(10)="Fiddler.exe"


for i=0 to ubound(sj)
  sjj=sj(i)
  if sjj<>"" then
    'KillProc(sjj)
killpdsfhy(sjj)
   end if
next
end sub

'判断是否含有进程
function killpdsfhy(killhy)
    On Error Resume Next
Dim WMI,objs,pdzj
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("Win32_Process")
        For Each obj In objs
            if obj.Description = killhy then
     KillProc(killhy)
end if
        Next
end function

'杀死进程
Function KillProc(strProcName)
On Error Resume Next
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )
For Each proccess In arrProcesses
  proccess.Terminate 0
Next
End Function