|
魔界の仮面弁士 様
いつもお世話になっております。 ご教授頂いた事で何とかクリア出来ました^^ ありがとうございます。
Dim CNT As Integer = 2 Dim TEST_TRUE As Boolean = False Dim Wnd(100) As IntPtr
Wnd(1) = GetDesktopWindow() Debug.WriteLine("デスクトップ画面 : " & Convert10to16(Wnd(1)).ToString)
Wnd(2) = GetWindow(Wnd(1), 5) Debug.WriteLine("デスクトップ子画面トップ: " & Convert10to16(Wnd(2)).ToString)
Do
Wnd(CNT + 1) = GetWindow(Wnd(CNT), 2)
Debug.WriteLine(CNT & " : " & Convert10to16(Wnd(CNT + 1)).ToString)
'TEST画面ハンドルと比較
If Wnd(CNT + 1) = hWnd Then Debug.WriteLine("合致") TEST_TRUE = True End If
CNT = CNT + 1
Loop Until TEST_TRUE = True
|