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

软件版本: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

快捷导航

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

发新话题 回复该主题

[分享源码] 【源码】获取自身窗口句柄! [复制链接]

1#

获取自身窗口句柄!
  1. 窗口句柄 = 获取自身窗口句柄()
  2. TracePrint "句柄:" &窗口句柄
  3. TracePrint "标题:" & Plugin.Window.GetText(窗口句柄)
  4. TracePrint "类名:" & Plugin.Window.GetClass(窗口句柄)
复制代码
  1. Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
  2. Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As Long
  3. Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As String, ByVal Source As Long, ByVal Length As Long)
  4. Declare Function GetAncestor Lib "user32.dll" (ByVal hwnd As Long, ByVal GetAncestorFlags As Long) As Long

  5. Function 获取自身窗口句柄()
  6. Dim 句柄组, lRet, 路径, Hwnd, pro, obj
  7. lRet = GetCommandLine()
  8. If lRet > 0 Then
  9. sCmd = Space(256)
  10. CopyMemory sCmd, lRet, Len(sCmd)
  11. 路径 = sCmd
  12. End If
  13. 句柄组 = Split(Plugin.Window.SearchEx(0, 0, 1), "|")
  14. 获取自身窗口句柄 = 0
  15. For Each Hwnd In 句柄组
  16. If IsNumeric(Hwnd) Then
  17. Set pro = getobject("winmgmts:\\.\root\cimv2").execquery("select * from win32_process")
  18. For Each obj In pro
  19. If Not IsNull(obj.ExecutablePath) Then
  20. If InStr(1, 路径, """" & obj.ExecutablePath & """", 1) > 0 Then
  21. 获取自身窗口句柄 = GetAncestor(Hwnd/1, 3)
  22. Exit Function
  23. End If
  24. End If
  25. next
  26. Set pro = Nothing
  27. End If
  28. Next
  29. End Function
复制代码

2#

沙发

3#

人体喝喝酒武将

论坛实名接单作者。诚信为本,质量第一。QQ:2366084121 十多年脚本经验承接各种脚本定制。
4#

地板

5#

获取自己

6#

I want to look what locked by louzhu.

7#

是什么神奇玩意

8#

123132132

9#

吾问无为谓

10#

看看。

11#

1223132132132

12#

新人路过。。学习学习。

13#

是小精灵获取自己的句柄?

14#

谢谢分享!

15#

沙沟湖卡蒂狗

16#

学习一下。

17#

学习一下

18#

获取自身窗口句柄!

19#

这个是命令库的命令吗?

20#

谢谢分享

发新话题 回复该主题