Question

.vbs文件怎么实现一个本地判断

如果发现进程Process.exe（一个或多个）正在运行，那么就kill掉该进程；否则就用shell.Run("")命令启动notepad.exe

Answer 1

ProcessName = "Process.exe" '进程名，多个进程以 ‘|’ 隔开
'On Error Resume Next '清除错误，如果程序运行有报错，将注释符删除则可
If ProcessClose(ProcessName) Then 
 Msgbox "Closing Process: " & ProcessName
Else
 CreateObject("Wscript.Shell").Run "Notepad.exe"
End If
Function ProcessClose(ProcessName)
 ProcessClose = False
 set MWI=GetObject("winmgmts:\\.\root\cimv2") 
 set Pro=MWI.ExecQuery("select * from win32_process") 
 For Each ID In Pro 
  If InStr(UCase(ProcessName),UCase(ID.Name)) Then ID.Terminate() : ProcessClose = True
  'Wscript.Sleep 1
 Next
End Function

上面代码保存为vbs文件，运行看结果。有问题追问，通过了还忘采纳。