get all room nicknames

Hello,

here i’m in try the vb 😥

anyway i download the source code of program founded in the below link

this is the soruce

how to get names in paltalk room to a listbox?

i modified the code to work with pal 11.2 B545

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
'Empty the listbox
ListBox1.Items.Clear()
'Get listview handle
' Dim iHnd As IntPtr = mdlHnd.GetChild(ChatRoomClass, Me.CtrlRoomSelector1.RoomName, "ATL:00A1AED0", NicListIndex)
Dim iHnd As IntPtr = mdlHnd.GetChild("DlgGroupChat Window Class", "SplitterWindowEx", "SplitterWindowEx", NicListIndex)
Debug.Print(iHnd) ' For testing
Dim iHnd2 As IntPtr = mdlHnd.GetChild(iHnd, "SplitterWindowEx", "SplitterWindowEx", NicListIndex)
Debug.Print(iHnd2) ' For testing
Dim iHnd3 As IntPtr = mdlHnd.GetChild(iHnd2, "SplitterWindowEx", "SplitterWindowEx", NicListIndex)
Debug.Print(iHnd3) ' For testing
Dim iHnd4 As IntPtr = mdlHnd.GetChild(iHnd3, "ClassCPaneContainerEx", NicListIndex)
Debug.Print(iHnd4) ' For testing
Dim iHndX As IntPtr = mdlHnd.GetChild(iHnd4, "ATL:00AD6100", "ATL:00AD6190", NicListIndex)
Debug.Print(iHndX) ' For testing
'Add nics to a listbox
If iHndX <> IntPtr.Zero Then
Dim NicArray() As String = mdlSysListView.GetAllSLVItems(iHnd)
Debug.Print(NicArray.Length.ToString)
For i = 0 To NicArray.Length - 1
ListBox1.Items.Add(NicArray(i))
Next
ListBox1.Items.Insert(0, "Total # of Nics in room is - " & ListBox1.Items.Count)
End If
End Sub
End Class

but still i cant get the nicknames 🙁