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)
.
.