پیدا کردن هندل شی های درون یک پنجره

[karimkpg]

کسی می تونه هندل تمامی شی های درون یه پنجره رو بدست بیاره
هر کس راه حل رو بگه یه پروژه وی بی خوب جایزشه...:لبخند:

[Tasiyan]

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim PAPI As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
GetCursorPos PAPI
Label1.Caption = WindowFromPoint(PAPI.x, PAPI.y)
End Sub
یه لیبل + یه تایمر اضافه کن
اینجا همه برای ثواب مجازی کار می کنند نه جایزه :بامزه:
:لبخند:

[karimkpg]

ببخشید قصد جسارت نداشتم شاید به این خاطر که اطرافیان من همه انتظار جایزه دارن این حرف رو زدم...
این قطعه برنامه هندل شیی که موس روی اون قرار داره رو برمی گردونه من می خواستم تمامی هندل های درون یک پنجره رو بدون دخیل کردن کاربر بدست بیارم
با تشکر