TWiZA Rooms/Controls Handles 9.2/9.4/9.5 source

Hi

Private Delegate Function EnumWin(ByVal HwD As Integer, ByVal lparam As Integer) As Boolean
Private Declare Function EnumWindows Lib "user32.dll" Alias "EnumWindows" (ByVal FuncCall As EnumWin, ByVal lParam As Integer) As Boolean
Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Integer, ByVal FuncCall As EnumWin, ByVal lParam As Integer) As Boolean
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal HwnD As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer

Private Function FindRooms(ByVal HwD As Integer, ByVal lparam As Integer) As Boolean

Dim sClass As String = Space(255)
Dim nC As Integer = GetClassName(HwD, sClass, 255)
Dim WinTxt As String

sClass = Left(sClass, nC)

If sClass = "DlgGroupChat Window Class" Then
WinTxt = sGetText(HwD)
If WinTxt.Contains(" Voice Room") Then

End If
End If

Return True
End Function

Private Function FindHwndCTL(ByVal HwD As Integer, ByVal lparam As Integer) As Boolean

Dim sClass As String = Space(255)
Dim nC As Integer = GetClassName(HwD, sClass, 255)
Static i As UShort

sClass = Left(sClass, nC)

If sClass = "SysListView32" Then _listHWD = HwD
If sClass = "RichEdit20A" Then
i += 1
If i = 3 Then _sendHWD = HwD
If i = 4 Then _textHWD = HwD : i = 0 : Return False : Exit Function
End If

Return True
End Function

EnumWindows(New EnumWin(AddressOf FindRooms), 0)
EnumChildWindows(HwD, New EnumWin(AddressOf FindHwndCTL), 0)