按键精灵[分享源码] 再也不用头疼获取句柄

金猪脚本（原飞猪脚本）以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想学习按键精灵的朋友可以添加金猪脚本粉丝交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

注：论坛翻了下，找到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