标题:如何获得桌面上任意窗口的句柄
只看楼主
g12339645
Rank: 2
等 级:论坛游民
帖 子:14
专家分:42
注 册:2011-6-17
 问题点数:0 回复次数:4 
如何获得桌面上任意窗口的句柄
最好用vb2010
如何获得桌面上任意窗口的句柄?
具体要求:
比如现在windows运行有程序A、B、C,
打开我的程序,用鼠标点程序B窗口(或C),
在我的程序中得到程序B的句柄HANDLE。

谢谢!


[此贴子已经被作者于2020-8-9 17:07编辑过]

搜索更多相关主题的帖子: 窗口 桌面 任意 获得 句柄 
2020-07-30 17:15
g12339645
Rank: 2
等 级:论坛游民
帖 子:14
专家分:42
注 册:2011-6-17
得分:0 


用PROGRESS进程解决
2020-08-09 17:06
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:185
帖 子:1404
专家分:8479
注 册:2010-3-16
得分:0 
用API
程序代码:
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Timer1_Timer()
    Dim wnd As Long
    Dim s As String
    wnd = GetForegroundWindow()
    s = "当前活动窗口句柄:" + Str(wnd) + "  Hex:" + Hex(wnd)
    Text1.Text = s
End Sub
2020-08-11 17:17
g12339645
Rank: 2
等 级:论坛游民
帖 子:14
专家分:42
注 册:2011-6-17
得分:0 
以下是引用apull在2020-8-11 17:17:05的发言:

用API

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Timer1_Timer()
    Dim wnd As Long
    Dim s As String
    wnd = GetForegroundWindow()
    s = "当前活动窗口句柄:" + Str(wnd) + "  Hex:" + Hex(wnd)
    Text1.Text = s
End Sub

HEX是什么?
https://blog.bccn.net/g12339645/67367

[此贴子已经被作者于2020-8-16 19:16编辑过]

2020-08-16 19:15
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:185
帖 子:1404
专家分:8479
注 册:2010-3-16
得分:0 
HEX是16进制显示wnd,spy++里面一般我都用16进制显示,这么做是为了好对比,判断句柄获取的对不对。实际使用中还是要用long
2020-08-16 22:41



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-502698-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053306 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved