■ 프로세스를 제거하는 방법을 보여준다.
▶ 예제 코드 (VB)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Private Function KillProcess(strProcess As String) Dim pService As Object Dim pObjectSet As Object Dim pObject As Object Set pService = GetObject("winmgmts:") Set pObjectSet = pService.ExecQuery("SELECT * FROM win32_process") For Each pObject In pObjectSet DoEvents If LCase(pObject.Name) = strProcess Then pObject.Terminate Exit For End If Next End Function |