프로세스 리스트 불러오기
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
'컴퓨터 > 비주얼베이직 6.0' 카테고리의 다른 글
Winhttp 웹 파싱 - 이거 보면 다 이해간다!! (0) | 2012.02.11 |
---|---|
[VB6.0]UFT8 인코딩 소스 (0) | 2012.01.30 |