수다닷컴

Public Declare Function findwindow Lib user32 Alias findwindowa ( _
ByVal ipclassname As String, _
ByVal ipwindowname As String _
) As Long
-------------------------------------------------------------------------- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim hwnd As Long
hwnd = findwindow(tmainform, Label3.Text)
MsgBox(Label3.Text & 프로세스를 감지하였습니다., 0, 알림)
End Sub

label 3에 쓰여져 있는 프로세스를 감지하면, 저런 메시지박스가 뜨게 하고싶습니다.

예를들어, label3에 notepad.exe라는 프로세스를 감지하면

notepad.exe 프로세스를 감지하였습니다. 라고 뜨게하고싶습니다.

위 소스대로 해봤는데 비베에선 오류가 없다고 해서 f5를 눌러서 실행해봤습니다.

그런데, 실행이 안되네요.프로세스 감지 소스를 어떻게 짜야될까요?

신청하기