다음 코드를 새 모듈에 넣습니다.
개인 선언 함수 process 32 first lib "kernel 32" (byval hsnapshot 은 Long, lppe 는 PROCESSENTRY32) 는 Long 입니다
개인 선언 함수 process 32 next lib "kernel 32" (byval hsnapshot 은 Long, lppe 는 PROCESSENTRY32) 는 Long 입니다
개인 선언 함수 create toolhelp 32 snapshotlib "kernel 32" (byval dw flags 는 Long, ByVal th32ProcessID 는 Long) 는 Long 입니다
개인 선언 함수 closehandle lib "kernel32.dll" (byval ho object as long) as long
개인 유형 PROCESSENTRY32
DwSize 만큼 길다
CntUsage As Long
Th32 프로세스 길이
Th32 기본 HeapID 만큼 길다
Th32 모듈만큼 길다
CntThreads 만큼 길다
Th32ParentProcessID 만큼 길다
PcPriClassBase 만큼 길다
DwFlags 가 Long 입니다
SzExeFile 을 문자열로 * 260
끝 유형
전용 상수 process _ query _ information =1024
개인 상수 PROCESS_VM_READ = 16
전용 상수 process _ all _ access = & amph1f0fff
개인 상수 TH32CS _ SNAPPROCESS =& 중수소
공용 함수인 testprocisrunning (byvalprocname 을 문자열로) 은 부울 값으로 사용됩니다
Dim hFindProc 만큼 길다
Hfindproc = createtoolhelp 32 스냅샷 (th32cs _ snapprocess, 0)
ProcData 를 PROCESSENTRY32 로 사용
ProcData.dwSize = Len(ProcData)
Process32First hFindProc, ProcData
While (Process32Next(hFindProc, ProcData) = 1)
Dim 은 문자열로 저장됩니다
Spro = left (ucase (procdata.szexefile), InStr(UCase(ProcData.szExeFile), chr (0)-
SPro = UCase(ProcName) 인 경우
CloseHandle hFindProc
TestProcIsRunning = True
기능을 종료합니다
만약 ... 끝날거야
네.
CloseHandle hFindProc
TestProcIsRunning = False
기능을 종료합니다
그런 다음 타이머를 사용하여 판단을 내릴 수 있습니다.
개인 하위 타이머 1_Timer ()
TestProcIsRunning ("판단할 프로세스 이름") = True 인 경우.
셸은 "이 프로그램을 호출하는 경로", vbHide''' 너는 이중 프로세스 소스 코드를 쓸 때 프로그램을 숨기는 것이 가장 좋다.
만약 ... 끝날거야
끝단 접합
안녕하세요, 저도 이중과정을 썼습니다. 컴파일 후 운행은 360 에 가로막히기 쉽지만 연습하면 괜찮은 것 같아요. .....