수다닷컴

Attribute VB_Name = ModuleProcessKill
Option Explicit
Private Declare Function TerminateProcess Lib kernel32 (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib kernel32 (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Private Declare Function ProcessFirst Lib kernel32 Alias Process32First (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib kernel32 Alias Process32Next (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelpSnapshot Lib kernel32 Alias CreateToolhelp32Snapshot (ByVal lFlags As Long, lProcessID As Long) As Long
Private Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long
Private Const MAX_PATH& = 260
Private Const PROCESS_ALL_ACCESS = (&HF0000 Or &H100000 Or &HFFF Or &H1F0FFF)
Private Const TH32CS_SNAPPROCESS As Long = &H2
Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szexeFile As String * MAX_PATH
End Type
Public Sub ProcKill(ProcName As String)
Dim uProcess As PROCESSENTRY32, rProcessFound As Long, hSnapshot As Long, szExename As String, i As Integer, myProcess As Long, exitCode As Long, AppKill As Boolean
uProcess.dwSize = Len(uProcess)
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
rProcessFound = ProcessFirst(hSnapshot, uProcess)
Do While rProcessFound
i = InStr(1, uProcess.szexeFile, Chr(0))
szExename = LCase$(Left$(uProcess.szexeFile, i - 1))
If LCase$(Right$(ProcName, Len(szExename))) = szExename Then
myProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
AppKill = TerminateProcess(myProcess, exitCode)
Call CloseHandle(myProcess)
End If
rProcessFound = ProcessNext(hSnapshot, uProcess)
Loop
Call CloseHandle(hSnapshot)
End Sub
사용할땐

ProcKill cmd.exe위 소스랑
Private sub timer1_timer()
shell tskill cmd,vbhide
end sub

위소스랑 뭐가 다른가요?
그리고 맨위 소스 사용법좀요 ..ㅠ

신청하기