전체 : 4,150,784 명
어제 : 0 명
오늘 : 0 명

프로그램을 감지하여 강제 종료

COOLSOFT | 2008.02.27 13:00 | 조회 6343

모듈1

Private 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 * 260&
End Type
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
(ByVal lFlags As Long, lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" _
(ByVal mSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" _
(ByVal mSnapShot As Long, uProcess As PROCESSENTRY32) As Long
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 bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private ProcessList(100, 2) As String
Private Sub KillProcessById(ByVal p_lngProcessId As Long)
Dim lnghProcess As Long
Dim lngReturn As Long
lnghProcess = OpenProcess(1&, -1&, p_lngProcessId)
lngReturn = TerminateProcess(lnghProcess, 0&)
End Sub
Public Sub killprocess(ByVal ProcessName As String)
Dim uProcess As PROCESSENTRY32
Dim mSnapShot As Long
Dim mName As String
Dim i As Integer
Dim pi As Integer
Dim dummy As Integer
pi = 1
DoEvents
uProcess.dwSize = Len(uProcess)
mSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
If mSnapShot Then
mresult = ProcessFirst(mSnapShot, uProcess)
Do While mresult
i = InStr(1, uProcess.szexeFile, Chr(0))
mName = LCase$(Left$(uProcess.szexeFile, i - 1))
ProcessList(pi, 0) = uProcess.th32ProcessID
ProcessList(pi, 1) = uProcess.th32ParentProcessID
ProcessList(pi, 2) = mName
mresult = ProcessNext(mSnapShot, uProcess)
pi = pi + 1
Loop
End If
For i = 1 To 100
If ProcessList(i, 0) <> "0" Then
If LCase(Trim(ProcessList(i, 2))) = LCase(ProcessName) Then
KillProcessById (ProcessList(i, 0))
End If
End If
Next i
End Sub



모듈 2
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Public Function CheckSpy1() As Long
CheckSpy1 = FindWindow(vbNullString, "Windows 작업 관리자") '작업관리자의 윈도우 네임
End Function

Private Sub process_timer_Timer()
If CheckSpy1() Then

MsgBox "프로그램이 감지되었습니다.", vbInformation, "coolsoft2.com"
killprocess "taskmgr.exe"
End If
End Sub

twitter facebook me2day 요즘
감사합니다~ 좋은거 배워가네요 ^^

감사합니다~ 좋은거 배워가네요 ^^

08.23 20:12 | 할미새님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
감사합니다.
감사합니다.
03.30 13:17 | 메이데이님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
헐 ㅋㅋ 좋은겁매워가요 !
헐 ㅋㅋ 좋은겁매워가요 !
04.02 11:27 | 트라씨님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
감사합니다.
감사합니다.
08.14 07:47 | 땡보님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
유용한정보 감사요 ㅋ

유용한정보 감사요 ㅋ

12.20 15:12 | JennyTales1님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
쉬운거는 안올라오네 ㅠㅠ

쉬운거는 안올라오네 ㅠㅠ

12.31 16:19 | 어썰트기어님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
감사합니다
감사합니다
02.05 10:29 | 한수아래님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
댓글쓰기 - 로그인한 후 댓글작성권한이 있을 경우 이용하실 수 있습니다.

비밀번호 확인

댓글 등록시에 입력했던 비밀번호를 입력해 주세요.
72개(1/4페이지)
rss
비주얼베이직
번호 제목 작성자 작성일 조회
72 경로를 읽어서 해당경로가 존재하지 않으면 폴더 생성하기[6] 루카스 2011.12.09 4618
71 [비베 6][TIP] 주석을 여러줄을 써보자[7] qwqw1312 2011.09.01 6752
70 [비베 6]if문을 이용하여 자신만의 아이디, 비밀번호 지정사진[5] qwqw1312 2011.09.01 5655
69 [비베 2010]폼 투명도 바꾸는 트랙바!!첨부파일[12] kchdully 2010.02.13 6333
68 [비베 2008][TIP] ListView Item 추가 퍼포먼스 향상.첨부파일[7] Juma 2009.09.27 7468
67 [비베 2008][TIP] Process 클래스를 이용한 간단한 연결 프로그램 실행.[2] Juma 2009.09.27 6121
66 [비베 2008]IMessage Filter를 상속하여 어플리케이션 단위의 메시지 후킹.첨부파일[3] Juma 2009.09.27 6658
65 [비베 2008]경로 탐색.사진첨부파일[3] Juma 2009.09.27 5635
64 [비베 6][크리스의 비베 강좌] -01- 변수 선언[12] 크리스Kof 2007.12.10 6348
63 [비베 6]비주얼 베이직 기초동영상강좌1부터~20첨부파일[23] Нyan™ 2007.12.03 12925
62 [비베 6]비주얼 베이직 6 SP6 개발용사진첨부파일[26] COOLSOFT 2007.11.24 7506
61 [비베 6]비주얼 베이직 설치하기사진첨부파일[10] COOLSOFT 2007.10.27 9406
60 [비베 6]텍스트 상자 엔터키로 다음텍스트로 이동하기[2] 진진 2008.03.26 6019
59 [비베 6]반투명 처리 퍼옴[4] 진진 2008.03.26 6070
>> [비베 6]프로그램을 감지하여 강제 종료[7] COOLSOFT 2008.02.27 6344
57 [비베 6]VB실습강의(기초부터-김석수)첨부파일[26] 외눈박이™ 2008.01.24 8671
56 [비베 6][크리스의 비베 강좌] -03- 조건문(IF)[3] 크리스Kof 2008.01.12 5631
55 [비베 6]파일의 유무를 확인해보자 ! PathFileExists API ![4] yrisiku 2008.01.05 6081
54 [비베 6]변수의 데이터형에 대해 알아봅시다 :)사진첨부파일[2] yrisiku 2008.01.05 6852
53 [비베 6]Tip) 사용자 정의 프로시저/함수를 만들떄, 선택적 인수를 만들어보자 ![3] yrisiku 2008.01.05 7756
처음페이지이전 10 페이지1234다음 10 페이지마지막페이지