수다닷컴

안녕하세요.
어제부터 비베를 처음 접하게 됬는데요,

컴파일 오류입니다.
End Sub, End Function 또는 End Property 다음에는 주석만 나타날 수 있습니다.

라면서 안되는데 어떻게 하면 고쳐질까요 ㄷㄷ;Private Sub Timer1_Timer()
Can KillWnd(Windows 작업 관리자)
End Sub

Private Delcare Function FindWindow Lib user32 Alias FindWindowA (ByVal IpClassName As Stirng, ByVal IpWindowName As Stirng) 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&
Public Sub KillWnd(ByVal WindowName As String)
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
TerminateProcess hProcess, 0&
CloseHandle hProcess
End If
End If
hWnd = FindWindow(vbNullString, WindowName)
Loop
End Sub요렇게 되잇는상태에요..;

신청하기