Paltalk 11.5 Build 579 VB 6.0 Programs

Added the code below to your project (in FindWin).
To find charrooms only chage if FindPalRooms

If InStr(1, WinTitle, "", vbTextCompare) <> 0 Then

to

If GetListCtrl(lhWnd) <> 0 Then

Declare Function EnumChildWindowsRef Lib "user32" Alias "EnumChildWindows" _
  (ByVal hwnd As Long, ByVal lpEnumFunc As Long, ByRef lParam As Any) As Long
Public Declare Function GetDlgCtrlID Lib "user32" (ByVal hwnd As Long) As Integer
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Integer
' ************************************************************************************

' ************************************************************************************
Public Type ChatCtrls
    hText As Long
    hEdit As Long
    hList As Long
End Type

Function EnumSubCtrls(ByVal hwnd As Long, ByRef lParam As ChatCtrls) As Long
    Select Case GetDlgCtrlID(hwnd)
    Case 202
        lParam.hText = hwnd
    Case 203
        If IsWindowVisible(hwnd) <> 0 Then lParam.hEdit = hwnd
    Case 1789
         If IsWindowVisible(hwnd) <> 0 Then lParam.hList = hwnd
    End Select
    EnumSubCtrls = 1
End Function
Function GetChatCtrls(hwnd As Long) As ChatCtrls
    Dim ctrls As ChatCtrls
    Call EnumChildWindowsRef(hwnd, AddressOf EnumSubCtrls, ctrls)
    GetChatCtrls = ctrls
End Function

Function EnumFindEditCtrl(ByVal hwnd As Long, ByRef lParam As Long) As Long
    EnumFindEditCtrl = 1
    If GetDlgCtrlID(hwnd) = 203 Then
        If IsWindowVisible(hwnd) <> 0 Then
            lParam = hwnd
            EnumFindEditCtrl = 0
        End If
    End If
End Function
Public Function GetEditCtrl(hwnd As Long) As Long
    Dim hCtrl As Long
    Call EnumChildWindowsRef(hwnd, AddressOf EnumFindEditCtrl, hCtrl)
    GetEditCtrl = hCtrl
End Function

Public Function EnumFindTextCtrl(ByVal hwnd As Long, ByRef lParam As Long) As Long
    EnumFindTextCtrl = 1
    If GetDlgCtrlID(hwnd) = 202 Then
        If IsWindowVisible(hwnd) <> 0 Then
            lParam = hwnd
            EnumFindTextCtrl = 0
        End If
    End If
End Function
Public Function GetTextCtrl(hwnd As Long) As Long
    Dim hCtrl As Long
    Call EnumChildWindowsRef(hwnd, AddressOf EnumFindTextCtrl, hCtrl)
    GetTextCtrl = hCtrl
End Function

Public Function EnumFindListCtrl(ByVal hwnd As Long, ByRef lParam As Long) As Long
    EnumFindListCtrl = 1
    If GetDlgCtrlID(hwnd) = 1789 Then
        If IsWindowVisible(hwnd) <> 0 Then
            lParam = hwnd
            EnumFindListCtrl = 0
        End If
    End If
End Function
Public Function GetListCtrl(hwnd As Long) As Long
    Dim hCtrl As Long
    Call EnumChildWindowsRef(hwnd, AddressOf EnumFindListCtrl, hCtrl)
    GetListCtrl = hCtrl
End Function

I had this error when I had Dim prefix of the tyoe fields so I removed them, maybe you need to add them I don’t know.
It compiles and run on VB6 Pro.
BTW I had a “can’t load mscomctl.ocx” error when I 1st oppened the project, so you better use the original project because it is saved without them.

Why wait for 11.6, wait for 11.7 or better 11.8… no, best wait for 20.0 that will give you like 10 years.
LOL @ you.

Admin, its time for you to move over to vb.net if you haven’t already done so, AND!!! rewrite your code in more modular way, also use what chike advised with GetDlgCtrlID API, this will save you from ever needing to update your programs, well at least not for now anyway. doing this will give you more time to spend on the actual program and not having to update the base code for getting and receiving text due to Paltalk version updates. you might even have the time to “clean up” your code….

he would have us believe these are his girls…

While the truth is these are more like them….

moral of the story is… forget the bitches and get your coding on!!!