Code: Select all
3938112 - Afx:37830000:b:00010003:00000006:1283158F ""
Any help would be great!
Moderators: Dorian (MJT support), JRL
Code: Select all
3938112 - Afx:37830000:b:00010003:00000006:1283158F ""
Code: Select all
Let>vPartClass=Afx:3783000
SRT>DetectPortion
Position>vPartClass,Class,1,vPos,0
If>vPos<>0
//GWres is the window handle
MDL>%GWres%%crlf%%title%%crlf%%class%
Exit>
EndIf
END>DetectPortion
Let>WindowCount=0
Let>Level=0
Let>WIN_USEHANDLE=1
//Get and write data for top window
LibFunc>user32,GetDesktopWindow,hwnd
GetWindowNames>hwnd,title,class
//Initial jump down to first top level child window.
Let>Level=1
LibFunc>user32,GetWindow,GWres,hwnd,5
GetWindowNames>GWres,title,class
GoSub>DetectPortion
Let>Window_%Level%=GWres
Let>DoNextFlag=0
Label>StepDown
If>DoNextFlag=0
GoSub>GetChild,GWres
If>{(%GWChildRes%<>0)or(%DoNextFlag%=1)}
GoTo>StepDown
Else>
Sub>Level,1
Let>LastWindow=Window_%Level%
GoSub>GetNext,LastWindow
Goto>StepDown
EndIf
Else>
GoSub>GetNext,GWres
GoTo>StepDown
EndIf
SRT>GetChild
LibFunc>user32,GetWindow,GWChildRes,GetChild_var_1,5
If>GWChildRes<>0
Add>Level,1
Let>Window_%Level%=GWChildRes
GetWindowNames>GWChildRes,title,class
GoSub>DetectPortion
Let>GWRes=GWChildRes
Else
GoSub>GetNext,GetChild_var_1
EndIf
END>GetChild
SRT>GetNext
LibFunc>user32,GetWindow,GWRes,GetNext_var_1,2
If>GWres<>0
Let>Window_%Level%=GWRes
Let>GWChildRes=1
GetWindowNames>GWRes,title,class
GoSub>DetectPortion
Let>DoNextFlag=0
Else
Sub>Level,1
Let>GWRes=Window_%Level%
Let>DoNextFlag=1
EndIf
If>Level=0
MDL>%vPartClass%%crlf%Not found
Wait>0.2
Exit>0
EndIf
END>GetNext