■関連プロセスまとめてキル

拡張子を.vbsにしてテキスト保存して実行


Option Explicit
On Error Resume Next
Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell")
KillApp("Nox.exe")
KillApp("nox_adb.exe")
KillApp("MultiPlayerManager.exe")
KillApp("NoxVMHandle.exe")
KillApp("NoxVMSVC.exe")
KillApp("NoxVBoxSVC.exe")
Set WshShell = Nothing
Sub KillApp(strProcessName)
WshShell.Run "taskkill /im " & strProcessName & " /f", 1, FALSE
End Sub