[VB6.0]프로세스리스트를 불러오고 해당 프로세스를 종료하는 소스

프로세스 리스트 불러오기
Dim ProcessList
Dim Processes
Set ProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process ")
For Each Processes In ProcessList
    List1.AddItem Processes.Name
Next
Set ProcessList = Nothing
Set Processes = Nothing

프로세스 종료
sProcess = title
Set ProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process where name = '" & sProcess & "'")
For Each oProcess In ProcessList
oProcess.Terminate
Next
Set ProcessList = Nothing


악용하지 말아주세요.

출처 : 네이버 카페 고구마's