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

CTBOK 2003-10-09 09:51:00
我要做的事是这样的,做一个后台程序实时监测全局
由于有些进程里面有些重要数据,不能让其它人看到,所以要实时监测,如果使用者切换到这个不允许执行的进程,则弹出提示框,要输入密码,正确就可以使用,否则就不予使用。

现在有两个问题:
1:如何获取当前任务进程的句柄?
2:如果做到实时监测?(TIMER控件吗?)

谢谢
...全文
187 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
海牛 2003-10-14
  • 打赏
  • 举报
回复
Public Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long
海牛 2003-10-14
  • 打赏
  • 举报
回复
Public Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long
CTBOK 2003-10-09
  • 打赏
  • 举报
回复
这个不是找当前的使用进程啊,是全部的,不论是不是当前运行的,我要知道当前运行进程的名称...
海牛 2003-10-09
  • 打赏
  • 举报
回复
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
海牛 2003-10-09
  • 打赏
  • 举报
回复
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧