Connecting to Paltalk Room without the “Room” text in title

He so Paltalk 11.5 update no longer has the “Room” on the paltalk rooms title. so the program in VB6 are not able to connect that way using this code.

Public Function FindPalRooms(ByVal lhWnd As Long, ByVal lParam As Long) As Long
Dim retVal As Long, ProcessID As Long, ThreadID As Long
Dim WinClassBuf As String * 255, WinTitleBuf As String * 255
Dim WinClass As String, WinTitle As String

    retVal = GetClassName(lhWnd, WinClassBuf, 255)
    WinClass = StripNulls(WinClassBuf)  ' remove extra Nulls & spaces
    retVal = GetWindowText(lhWnd, WinTitleBuf, 255)
    WinTitle = StripNulls(WinTitleBuf)
    
    'Added so text is sent only to chat room and not to pm
    If LCase(WinClass) = LCase(mTargetWinClass) Then
       If InStr(1, WinTitle, " Room", vbTextCompare) <> 0 Then
           Form1.Combo1.AddItem (WinTitle)
       End If
    End If
    
    FindPalRooms = True
End Function

So we need to find another way, it prob easy but if anyone has a easy solution post it here Thanks 🙂