Find Handle (chike)
- Code:
[size=12][size=12]Public[/size][size=12] [/size][size=12]Delegate [/size][size=12]Function[/size][size=12] [/size][size=12]EnumWChildindowaProc[/size][size=12]([/size][size=12]ByVal [/size][size=12]Handle [/size][size=12]As[/size][size=12] [/size][size=12]IntPtr[/size][size=12],[/size][size=12] [/size][size=12]ByRef [/size][size=12]Parameter [/size][size=12]As[/size][size=12] [/size][size=12]IntPtr[/size][size=12])[/size][size=12] [/size][size=12]As[/size][size=12] [/size][size=12]Boolean[/size][/size]
[size=12][size=12]Public[/size][size=12] [/size][size=12]Declare[/size][size=12] [/size][size=12]Auto [/size][size=12]Function[/size][size=12] [/size][size=12]EnumChildWindows [/size][size=12]Lib[/size][size=12] [/size][size=12]"User32.dll"[/size][size=12] [/size][size=12]_[/size][/size]
[size=12][size=12]([/size][size=12]ByVal [/size][size=12]hwnd [/size][size=12]As[/size][size=12] [/size][size=12]IntPtr[/size][size=12],[/size][size=12] [/size][size=12]ByVal [/size][size=12]Callback [/size][size=12]As[/size][size=12] [/size][size=12]EnumWChildindowaProc[/size][size=12],[/size][size=12] [/size][size=12]ByRef [/size][size=12]lParam [/size][size=12]As[/size][size=12] [/size][size=12]IntPtr[/size][size=12])[/size][size=12] [/size][size=12]As[/size][size=12] [/size][size=12]Boolean[/size][/size]
[size=12] [/size]
[size=12][size=12]Declare[/size][size=12] [/size][size=12]Auto [/size][size=12]Function[/size][size=12] [/size][size=12]GetDlgCtrlID [/size][size=12]Lib[/size][size=12] [/size][size=12]"User32.dll"[/size][size=12] [/size][size=12]_[/size][/size]
[size=12][size=12]([/size][size=12]ByVal [/size][size=12]hwnd [/size][size=12]As[/size][size=12] [/size][size=12]IntPtr[/size][size=12])[/size][size=12] [/size][size=12]As[/size][size=12] [/size][size=12]Integer[/size][/size]
[size=12] [/size]
[size=12][size=12]Public[/size][size=12] [/size][size=12]Function[/size][size=12] [/size][size=12]EnumFindID[/size][size=12]([/size][size=12]ByVal [/size][size=12]hwnd [/size][size=12]As[/size][size=12] [/size][size=12]IntPtr[/size][size=12],[/size][size=12] [/size][size=12]ByRef [/size][size=12]lParam [/size][size=12]As[/size][size=12] [/size][size=12]IntPtr[/size][size=12])[/size][size=12] [/size][size=12]As[/size][size=12] [/size][size=12]Boolean[/size][/size]
[size=12][size=12]If[/size][size=12] [/size][size=12]([/size][size=12]GetDlgCtrlID[/size][size=12]([/size][size=12]hwnd[/size][size=12])[/size][size=12] [/size][size=12]=[/size][size=12] [/size][size=12]lParam[/size][size=12])[/size][size=12] [/size][size=12]And[/size][size=12] [/size][size=12]IsWindowVisible[/size][size=12]([/size][size=12]hwnd[/size][size=12])[/size][size=12] [/size][size=12]Then[/size][/size]
[size=12][size=12]lParam[/size][size=12] [/size][size=12]=[/size][size=12] [/size][size=12]hwnd[/size][/size]
[size=12][size=12]Return[/size][size=12] [/size][size=12]False[/size][/size]
[size=12][size=12]End[/size][size=12] [/size][size=12]If[/size][/size]
[size=12][size=12]Return[/size][size=12] [/size][size=12]True[/size][/size]
[size=12][size=12]End[/size][size=12] [/size][size=12]Function[/size][/size]
[size=12] [/size]
[size=12][size=12]Sub [/size][size=12]main[/size][size=12]([/size][size=12])[/size][/size]
[size=12][size=12]Dim [/size][size=12]hwnd[/size][size=12] [/size][size=12]=[/size][size=12] [/size][size=12]FindWindow[/size][size=12]([/size][size=12]"DlgGroupChat Window Class"[/size][size=12],[/size][size=12] [/size][size=12]vbNullString[/size][size=12])[/size][/size]
[size=12][size=12]Dim [/size][size=12]ctl[/size][size=12] [/size][size=12]=[/size][size=12] [/size][size=12]&[/size][size=12]amp[/size][size=12];[/size][size=12]amp[/size][size=12];[/size][size=12]H6FD[/size][/size]
[size=12][size=12]EnumChildWindows[/size][size=12]([/size][size=12]hwnd[/size][size=12],[/size][size=12] [/size][size=12]AddressOf [/size][size=12]EnumFindID[/size][size=12],[/size][size=12] [/size][size=12]ctl[/size][size=12])[/size][/size]
[size=12][size=12]Console[/size][size=12].[/size][size=12]WriteLine[/size][size=12]([/size][size=12]"user names: "[/size][size=12] [/size][size=12]&[/size][size=12]amp[/size][size=12];[/size][size=12]amp[/size][size=12];[/size][size=12] [/size][size=12]ctl[/size][size=12].[/size][size=12]ToString[/size][size=12]([/size][size=12]"X8"[/size][size=12])[/size][size=12])[/size][/size]
[size=12][size=12]ctl[/size][size=12] [/size][size=12]=[/size][size=12] [/size][size=12]&[/size][size=12]amp[/size][size=12];[/size][size=12]amp[/size][size=12];[/size][size=12]HCA[/size][/size]
[size=12][size=12]EnumChildWindows[/size][size=12]([/size][size=12]hwnd[/size][size=12],[/size][size=12] [/size][size=12]AddressOf [/size][size=12]EnumFindID[/size][size=12],[/size][size=12] [/size][size=12]ctl[/size][size=12])[/size][/size]
[size=12][size=12]Console[/size][size=12].[/size][size=12]WriteLine[/size][size=12]([/size][size=12]"room text: "[/size][size=12] [/size][size=12]&[/size][size=12]amp[/size][size=12];[/size][size=12]amp[/size][size=12];[/size][size=12] [/size][size=12]ctl[/size][size=12].[/size][size=12]ToString[/size][size=12]([/size][size=12]"X8"[/size][size=12])[/size][size=12])[/size][/size]
[size=12][size=12]ctl[/size][size=12] [/size][size=12]=[/size][size=12] [/size][size=12]&[/size][size=12]amp[/size][size=12];[/size][size=12]amp[/size][size=12];[/size][size=12]HCB[/size][/size]
[size=12][size=12]EnumChildWindows[/size][size=12]([/size][size=12]hwnd[/size][size=12],[/size][size=12] [/size][size=12]AddressOf [/size][size=12]EnumFindID[/size][size=12],[/size][size=12] [/size][size=12]ctl[/size][size=12])[/size][/size]
[size=12][size=12]Console[/size][size=12].[/size][size=12]WriteLine[/size][size=12]([/size][size=12]"user edit: "[/size][size=12] [/size][size=12]&[/size][size=12]amp[/size][size=12];[/size][size=12]amp[/size][size=12];[/size][size=12] [/size][size=12]ctl[/size][size=12].[/size][size=12]ToString[/size][size=12]([/size][size=12]"X8"[/size][size=12])[/size][size=12])[/size][/size]
[size=12][size=12]End[/size][size=12] [/size][size=12]Sub[/size][/size]