how to get names in paltalk room to a listbox?

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #15136
    imFiles
    Administrator

    Hi i was trying to find a simple code to get the names from a room in palktalk and add them to a list1.list on form1 with a click of a command button anyone that has a template or code that does this I would greatly appreciate it, I know how to find the window I need just not sure how to direct that info to the list, when i use my sub of getnames in a button like this

    getnames (list1.list)

    it doesnt work…..anyone have idea?

     

    Dim LCount As Long
    Dim dlggroupchatwindowclass As Long
    Dim splitterwindowex As Long
    Dim cwndmembertree As Long
    Dim syslistview As Long
    
    dlggroupchatwindowclass = FindWindow("dlggroupchat window class", vbNullString)
    splitterwindowex = FindWindowEx(dlggroupchatwindowclass, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    cwndmembertree = FindWindowEx(splitterwindowex, 0&, "cwndmembertree", vbNullString)
    syslistview = FindWindowEx(cwndmembertree, 0&, "syslistview32", vbNullString)
    LCount = SendMessageLong(syslistview, LB_GETCOUNT, 0&, 0&)
    
    If syslistview = 0 Then
    MsgBox "Error: Cannot find window"
    Exit Sub
    End If

     

    also tried to make it work with this following code

     

    Dim TheText As String, TL As Long
    Dim dlggroupchatwindowclass As Long
    Dim splitterwindowex As Long
    Dim cwndmembertree As Long
    Dim syslistview As Long
    
    dlggroupchatwindowclass = FindWindow("dlggroupchat window class", vbNullString)
    splitterwindowex = FindWindowEx(dlggroupchatwindowclass, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    cwndmembertree = FindWindowEx(splitterwindowex, 0&, "cwndmembertree", vbNullString)
    syslistview = FindWindowEx(cwndmembertree, 0&, "syslistview32", vbNullString)
    TL = SendMessageLong(syslistview&, WM_GETTEXTLENGTH, 0&, 0&)
    TheText = String(TL + 1, " ")
    Call SendMessageByString(syslistview&, WM_GETTEXT, TL + 1, TheText)
    TheText = Left(TheText, TL)
    
    If syslistview = 0 Then
    Msgbox "Error: Cannot find window"
    Exit Sub
    End If

     

    anyways tell me what you think i should try, i can see similar questions have been asked before and I have yet to see anyone show how this is performed other than saying it is hard.

Viewing 1 post (of 1 total)
  • You must be logged in to reply to this topic.