비주얼베이직 프로세스 종료

질문: 비주얼베이직 프로세서 종료소스  

2006-11-11 21:52

학교 컴퓨터실 보조를 하고있는데

 

가끔 애들이 이상한 프로그램을 실행해서 컴터가 고장이 자주 납니다.

 

제가 원격으로 그 프로그램을 끄고싶거든요?

 

비주얼베이직으로 서버,클라이언트로 해서

 

서버를 그 컴퓨터에 깔아놓고 클라이언트를 제가 실행해서

 

버튼을 누르면 해당 프로세서가 강제로 종료되도록 하고싶어요

 

예를들어 제가 버튼을 누르면 test.exe 라는 이름을 가진 프로세서를 종료하고싶습니다.

 

간단한 소스좀 부탁드릴꼐요 비슷한것도 상관없습니다.

 

 

답변: re: 비주얼베이직 프로세서 종료소스
2006-11-12 02:31

프로세스 종료는 그냥 곰플레이어 설치 후, 설치된 폴더(예 C:\program files\GRETECH\GomPlayer\) 에 ㅇㅆ는 KillGom.exe를 사용하시면 됩니다.

KillGom.exe 파일을 system32 폴더에 넣어놓고 이런식으로 쓰시면 됩니다.

Shell "KillGom.exe test.exe"

이러케 하면 test.exe가 꺼집니다.

물론 VB소스로 하는 방법도 있습니다.

 

Public Sub KProcess(PName As String)

       Dim pgm As String

       Dim wmi As Object

       Dim processes, process

       Dim sQuery As String

       pgm = PName

       Set wmi = GetObject("winmgmts:")

       sQuery = "select * from win32_process where name='" & pgm & "'"

       Set processes = wmi.execquery(sQuery)

       For Each process In processes

              process.Terminate

       Next

       Set wmi = Nothing

End Sub

 

이 소스를 모듈에 집어넣으신뒤, 폼 소스에서

KProcess("test") 이러케 해주시면 프로세스가 종료됩니다.