toxinburn

Well for now since I am soooooo rusty and out of practice I am just starting back to what I am more familiar with at the moment and that is VB6, I have at least got some of my codes to work there lol. Anyhow I was gonna show you guys another code that I have but I am trying to figure out how to get it to show up in a list. this code is to find the paltalk names list in a chat room but how do i make it go to my own list when I click a command button?

Public Sub GetNames()
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

End Sub