Navigation Menu

[toxinburn]

thanks ya I had messed with the coding on both of those to try to make it add it to a list box using a string, just didnt work for me i will take a look at this and probably be like DUH thanks again.

[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

 

[toxinburn]

Wow go figure the VB is newer yet more complicated lol, oh well I really appreciate your help bud and I actually get this at least looks like i will have to do that with all functions that I add to the module then to make sure they work in any instance just seems crazy to do away with the As Any

[Author]

Posts