수다닷컴

윈도우캡션 이름 지뢰라는프로그램 의켜질경우

Timer1 을 작동시키는방법

Option Explicit
Private Declare Function GetWindowThreadProcessId Lib user32 (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenProcess Lib kernel32 (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib kernel32 (ByVal dwProcessId As Long, ByVal uExitCode As Long) As Long
Private Declare Function ZwTerminateProcess Lib ntdll (ByVal dwProcessId As Long, ByVal uExitCode As Long) As Long
Private Sub Timer1_Timer()
Dim hWnds As Long
Dim PID As Long
Dim hProcess As Long

hWnds = FindWindow(vbNullString, 지뢰)
GetWindowThreadProcessId hWnds, PID
hProcess = OpenProcess(&H1&, False, PID)
TerminateProcess hProcess, 0&
End Sub
흐음 .. 방법이 읎을가영 ㅇ.ㅇ ?ㅎ

신청하기