-
本版专家分：118结帖率 100% -
我要做的事是这样的，做一个后台程序实时监测全局
由于有些进程里面有些重要数据，不能让其它人看到，所以要实时监测，如果使用者切换到这个不允许执行的进程，则弹出提示框，要输入密码，正确就可以使用，否则就不予使用。
现在有两个问题：
1：如何获取当前任务进程的句柄？
2：如果做到实时监测？（TIMER控件吗？）
谢谢
-
本版专家分：8884 -
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command3_Click()
Dim lR As Long
'打开记事本程序，要空的
lR = FindWindow(vbNullString, "无标题 - 记事本")
MsgBox lR
End Sub
-
本版专家分：8884
-
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 Long
Private 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
-
本版专家分：8884
-
Public Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long
-
本版专家分：8884
-
Public Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long