中文精品久久久久国产网址,三级网址日本,在线a亚洲老鸭窝天堂

按鍵精靈遍歷所有父子窗口句柄，帶注釋[更新]

淳爺們 >《函數(shù)知識(shí)》

2013.08.28

關(guān)注

先看執(zhí)行效果：

說(shuō)明：本人喜歡玩按鍵精靈，用按鍵自帶插件的即可遍歷后臺(tái)句柄，可以刷出你所針對(duì)的所有游戲窗口句柄，后臺(tái)無(wú)一遺漏。

本帖隱藏的內(nèi)容

Dim i, Layer(100)
i = 1
HwndList
Function HwndList
Do
Layer(i) = Plugin.Window.FindEx(Layer(i - 1), Layer(i), 0, 0)
If Layer(i) > 0 Then
sClass = Plugin.Window.GetClass(Layer(i))
sText = Plugin.Window.GetText(Layer(i))
Report = Space(i * 2) & Right("0000" & Layer(i), 8) & " 類(lèi)名: " & sClass & " 標(biāo)題: " & sText
TracePrint Report
i = i + 1
HwndList
Else
i = i - 1
Exit Do
End If
Loop
End Function

復(fù)制代碼

注釋說(shuō)明：
·Layer(100)
句柄窗口100級(jí)，其實(shí)設(shè)置20級(jí)也綽綽有余了。
可以打抓抓中的句柄測(cè)試，依次點(diǎn)擊展開(kāi)帶“+”的句柄，看看有沒(méi)有那個(gè)父窗口帶子窗口1級(jí)、2級(jí)、3級(jí)……滿(mǎn)20級(jí)的！
·i=1
設(shè)置i值為1
·HwndList
調(diào)用自定義函數(shù)
·Function HwndList
自定義函數(shù)
·Do
循環(huán)開(kāi)始
·Layer(i) = Plugin.Window.FindEx(Layer(i - 1), Layer(i), 0, 0)
被查找窗口句柄父窗口Layer(i - 1)值為0，0代表當(dāng)前父窗口；子窗口Layer(i)值為1，第1個(gè)子窗
·If Layer(i) > 0 Then
如果子窗口值大于0，表明子窗口存在
·sClass = Plugin.Window.GetClass(Layer(i))
當(dāng)前窗口類(lèi)名賦值給sClass
·sText = Plugin.Window.GetText(Layer(i))
當(dāng)前窗口標(biāo)題賦值給sText
·Report = Space(i * 2) & Right("0000" & Layer(i), 8) & " 類(lèi)名: " & sClass & " 標(biāo)題: " & sText
結(jié)果等于取右邊8個(gè)字符當(dāng)前窗口句柄值
·TracePrint Report
調(diào)試窗口測(cè)試結(jié)果
·i = i + 1
準(zhǔn)備進(jìn)入下一級(jí)子窗口
·HwndList
再一次調(diào)用自定義函數(shù)
·Else
否則
·i = i - 1
返回上一級(jí)
·Exit Do
退出當(dāng)前循環(huán)，并非退出全體循環(huán)。如果當(dāng)前子窗口在10級(jí)情況下，要執(zhí)行10次的i - 1才能結(jié)束自定義函數(shù)HwndList
·End If
條件結(jié)束
·Loop
循環(huán)結(jié)束
·End Function
函數(shù)結(jié)束

查找QQ2013句柄的實(shí)例：

Dim i, Layer(100)
i = 1
HwndList
Function HwndList
Do
Layer(i) = Plugin.Window.FindEx(Layer(i - 1), Layer(i), 0, 0)
If Layer(i) > 0 Then
sClass = Plugin.Window.GetClass(Layer(i))
sText = Plugin.Window.GetText(Layer(i))
If sText = "QQ2013" Then
Report = Space(i * 2) & Right("0000" & Layer(i), 8) & " 類(lèi)名: " & sClass & " 標(biāo)題: " & sText
TracePrint Report
End If
i = i + 1
HwndList
Else
i = i - 1
Exit Do
End If
Loop
End Function

復(fù)制代碼

調(diào)試結(jié)果為第12行： 00199566 類(lèi)名: TXGuiFoundation 標(biāo)題: QQ2013

后臺(tái)發(fā)送文本內(nèi)容到Excel的實(shí)例：
打開(kāi)Excel表格，默認(rèn)表格為Book1

Dim i, Layer(100)
i = 1
HwndList
Function HwndList
Do
Layer(i) = Plugin.Window.FindEx(Layer(i - 1), Layer(i), 0, 0)
If Layer(i) > 0 Then
sClass = Plugin.Window.GetClass(Layer(i))
sText = Plugin.Window.GetText(Layer(i))
If sText = "Book1" Then
Call Plugin.Bkgnd.SendString(Layer(i), "后臺(tái)發(fā)送句柄為：" & Layer(i))
End If
i = i + 1
HwndList
Else
i = i - 1
Exit Do
End If
Loop
End Function

復(fù)制代碼

現(xiàn)在有很多應(yīng)用程序和游戲不能窗口最小化后臺(tái)，老杯具的事情了

。

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶(hù)發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

打開(kāi)APP，閱讀全文并永久保存查看更多類(lèi)似文章

按鍵精靈后臺(tái)簡(jiǎn)明教程（后臺(tái)找色，后臺(tái)鼠標(biāo)點(diǎn)擊等） - 【教程工具】 - 按鍵精靈論壇放飛...

按鍵精靈句柄獲得句柄控制windows窗口后臺(tái)

如何使用vb 監(jiān)控電腦活動(dòng)記錄

_ControlGetHandleByPos() UDF (v1.0)

Delphi下的字符串分隔函數(shù)的一種用法

一個(gè)點(diǎn)擊句柄的腳本，等待窗口彈出，檢.

更多類(lèi)似文章 >>

免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

本帖隱藏的內(nèi)容