如何获取当前使用进程的句柄及标题？

Question

我要做的事是这样的，做一个后台程序实时监测全局
由于有些进程里面有些重要数据，不能让其它人看到，所以要实时监测，如果使用者切换到这个不允许执行的进程，则弹出提示框，要输入密码，正确就可以使用，否则就不予使用。现在有两个问题：
1：如何获取当前任务进程的句柄？
2：如果做到实时监测？（TIMER控件吗？）谢谢

Answer 1

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command3_Click()
    Dim lR As Long
    '打开记事本程序，要空的
    lR = FindWindow(vbNullString, "无标题 - 记事本")
    MsgBox lR
End Sub

Answer 2

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPrivate Sub Command1_Click()
    Dim lR As Long
    Dim strT As String * 127
    '打开记事本程序，要空的
    lR = FindWindow(vbNullString, "无标题 - 记事本")
    MsgBox lR
    GetWindowText lR, strT, 127
    MsgBox Replace(strT, Chr(0), "")
End Sub

Answer 3

Public Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long

Answer 4

Public Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long