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

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

快捷导航

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

发新话题 回复该主题

[昨夜星辰] 【源码】API获取窗口状态 [复制链接]

1#
函数名称:
判断窗口是否存在
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口存在返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否存在(Hwnd)

函数名称:
判断窗口是否激活
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口处于激活状态返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否激活(Hwnd)



函数名称:
判断窗口是否可见
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口处于可见状态返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否可见(Hwnd)



函数名称:
判断窗口是否最小化
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口处于最小化状态返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否最小化(Hwnd)



函数名称:
判断窗口是否最大化
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口处于最大化状态返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否最大化(Hwnd)



函数名称:
判断窗口是否置顶
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口处于置顶状态返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否置顶(Hwnd)



函数名称:
判断窗口是否无响应
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口处于无响应状态返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否无响应(Hwnd)



函数名称:
判断窗口是否可用
参数定义:

Hwnd 整数型:窗口句柄
返回值:
整数型:窗口可接收键盘、鼠标操作则返回1,否则返回0。
调用例子:
TracePrint 判断窗口是否可用(Hwnd)



源码:

  1. Declare Function IsWindow Lib "user32" Alias "IsWindow" (ByVal hwnd As Long) As Long
  2. Declare Function GetForegroundWindow Lib "user32" () As Long
  3. Declare Function IsWindowVisible Lib "user32" Alias "IsWindowVisible" (ByVal hwnd As Long) As Long
  4. Declare Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As Long) As Long
  5. Declare Function IsZoomed Lib "user32" Alias "IsZoomed" (ByVal hwnd As Long) As Long
  6. Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongW" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
  7. Declare Function IsHungAppWindow Lib "user32" ( ByVal hWnd As Long) As Long
  8. Declare Function IsWindowEnabled Lib "user32" Alias "IsWindowEnabled" (ByVal hwnd As Long) As Long
  9. Dim Hwnd
  10. Hwnd = 0 '自行设置一个窗口句柄
  11. TracePrint "窗口是否存在:" & 判断窗口是否存在(Hwnd)
  12. TracePrint "窗口是否激活:" & 判断窗口是否激活(Hwnd)
  13. TracePrint "窗口是否可见:" & 判断窗口是否可见(Hwnd)
  14. TracePrint "窗口是否最小化:" & 判断窗口是否最小化(Hwnd)
  15. TracePrint "窗口是否最大化:" & 判断窗口是否最大化(Hwnd)
  16. TracePrint "窗口是否置顶:" & 判断窗口是否置顶(Hwnd)
  17. TracePrint "窗口是否无响应:" & 判断窗口是否无响应(Hwnd)
  18. TracePrint "窗口是否可用:" & 判断窗口是否可用(Hwnd)
  19. Function 判断窗口是否存在(Hwnd)
  20. 判断窗口是否存在 = IsWindow(Hwnd)
  21. End Function
  22. Function 判断窗口是否激活(Hwnd)
  23. If GetForegroundWindow() = Hwnd Then
  24. 判断窗口是否激活 = 1
  25. Else
  26. 判断窗口是否激活 = 0
  27. End If
  28. End Function
  29. Function 判断窗口是否可见(Hwnd)
  30. 判断窗口是否可见 = IsWindowVisible(Hwnd)
  31. End Function
  32. Function 判断窗口是否最小化(Hwnd)
  33. 判断窗口是否最小化 = IsIconic(Hwnd)
  34. End Function
  35. Function 判断窗口是否最大化(Hwnd)
  36. 判断窗口是否最大化 = IsZoomed(Hwnd)
  37. End Function
  38. Function 判断窗口是否置顶(Hwnd)
  39. Dim GWL_EXSTYLE, WS_EX_TOPMOST, StyleEx
  40. GWL_EXSTYLE = - 20
  41. WS_EX_TOPMOST = 8
  42. StyleEx = GetWindowLong(Hwnd, GWL_EXSTYLE)
  43. StyleEx = StyleEx And WS_EX_TOPMOST
  44. If StyleEx = WS_EX_TOPMOST Then
  45. 判断窗口是否置顶 = 1
  46. Else
  47. 判断窗口是否置顶 = 0
  48. End If
  49. End Function
  50. Function 判断窗口是否无响应(Hwnd)
  51. 判断窗口是否无响应 = IsHungAppWindow(Hwnd)
  52. End Function
  53. Function 判断窗口是否可用(Hwnd)
  54. 判断窗口是否可用 = IsWindowEnabled(Hwnd)
  55. End Function
复制代码

近期制作:
传奇私服各种反外挂插件版本挂机软件,可教可售
原神加速、连发辅助工具
天下3自动钓大鱼辅助工具

承接脚本定制,点击下方联系
QQ:250039815

交流群:101296478

2#

学习让人快乐~~每天前进一小步~~

3#

66大顺

4#

哈哈哈哈哈哈

5#

123456789

6#

学习让人快乐~~每天前进一小步~~

7#

,

楼主真是大好人

8#

支持

<font size="3"><font color="blue">飞翔在永无止境的学习之中是一种乐趣</font></font>
9#

学习让人快乐~~每天前进一小步~~

10#

支持

11#

学习学习!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

12#

参观11

13#

顶一个

14#

学习一下~

15#

学习一 下~

16#

学习一下

17#

11111

18#

支持支持

喜欢学习
19#

学习一下

20#

感谢分享!!!

发新话题 回复该主题