• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

返回列表 12345678» / 22
发新话题 回复该主题

[分享源码] 再也不用头疼获取句柄,只要知道客户区大小or类名即可获取句柄(... [复制链接]

1#
本帖最后由 n15976906190 于 2015-1-17 14:05 编辑

注:论坛翻了下,找到2个本类型帖子,但均存在过于繁琐、测试异常、过慢等问题,所以就写了一个
您所在的用户组无法下载或查看附件

您所在的用户组无法下载或查看附件

根据大小获取句柄 "TXGuiFoundation",907,524
Sub 根据大小获取句柄(类名, 宽, 高)
set dm = createobject("dm.dmsoft")
hwnds = dm.EnumWindow(0, "", 类名, 2 + 8 + 16)'如果遍历不到,就改成2
Var1 = Split(hwnds, ",")
For i = 0 To UBound(Var1)
sRect = Plugin.Window.GetClientRect(Var1(i))
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
W = Clng(MyArray(2)): H = Clng(MyArray(3))
If W = 宽 and H = 高 Then '存在一定问题 理解后修改
TracePrint Var1(i)
End If
Next
End Sub


Hwnd = Plugin.Window.MousePoint()
根据大小获取句柄 "Button"
Sub 根据大小获取句柄(类名)
set dm = createobject("dm.dmsoft")
hwnds = dm.EnumWindow(Hwnd, "", 类名, 2 + 8 + 16)'如果遍历不到,就改成2
Var1 = Split(hwnds, ",")
For i = 0 To UBound(Var1)
TracePrint Var1(i)
Next
End Sub

    已有5评分我要评分查看所有评分

    最后编辑n15976906190 最后编辑于 2015-09-10 09:34:28
    本主题由 超级版主 瑞祥幽冥狼 于 2023/10/16 22:48:20 执行 审核帖子 操作
    收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

    个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
    个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
    2#

    该用户帖子内容已被屏蔽

    3#

    老大你太好了 感谢分享

    4#

    asdasd

    5#

    获得网页句柄难度太大了……学一下~

    6#

    看·。·是什么好东西。··

    7#

    看看学习学习

    8#

    看看是什么哈。。……

    9#

    学习学习

    承接制作脚本
    QQ:270620226
    10#

    qweqweqweqweqwe q

    11#

    学习

    12#

    继续学习

    13#

    1111111111111111111

    14#

    看看

    15#

    11111111111111111

    16#

    支持狼哥~支持狼哥~((举手喊口号

    17#

    感谢楼主,及时雨啊

    18#

    支持狼哥~支持狼哥~((举手喊口号

    19#

    感谢分享。谢谢

    20#

    看看先

    发新话题 回复该主题