[펌] 비주얼베이직 프로세서 종료소스

<출처: http://kin.naver.com/detail/detail.php?d1id=1&dir_id=10107&eid=YQRese7orPYf9xhXuiMymT8CrgObZ7CD&qb=a2lsbGdvbS5leGU=&pid=fMcugwoi5T0ssuSdZmGsss--471118&sid=SOHCT4HA4UgAACVQCAA >

프로세스 종료는 그냥 곰플레이어 설치 후, 설치된 폴더(예 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") 이러케 해주시면 프로세스가 종료됩니다.

서버, 클라이언트 소켓 통신은 하실 수 있으시겟죠?

모르신다면 메일주세요~

jsoft.yoo@gmail.com