수다닷컴

Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsWindow Lib user32 (ByVal hWnd 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 Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib user32 (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib kernel32 (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Const WM_NCDESTROY = &H82
Private Const WM_DESTROY = &H2
Private Const WM_QUIT = &H12
Private Const PROCESS_TERMINATE = &H1&Private Sub Command2_Click() Dim hWnd As Long, pID As Long, hProcess As Long: hWnd = FindWindow(vbNullString, WindowName)
Do While IsWindow(hWnd)
SendMessage hWnd, WM_CLOSE, 0, 0&
SendMessage hWnd, WM_NCDESTROY, 0, 0&
SendMessage hWnd, WM_DESTROY, 0, 0&
SendMessage hWnd, WM_QUIT, 0, 0&If IsWindow(hWnd) Then
GetWindowThreadProcessId hWnd, pID
hProcess = OpenProcess(PROCESS_TERMINATE, False, pID)
If hProcess 0 Then
Text2.Text = pID
Exit Sub
End If
End If
hWnd = FindWindow(vbNullString, WindowName)LoopEnd Sub
캡션과 일치할 경우 pid를 출력 시켜 볼려했더니..엉뚱한거만 출력되네요..오류 지적좀 해주세요.

신청하기