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.
Hi String,
Thank you for the example, do you have an example that is working for paltalk 10.4?
There is only one syslistview32 (or whatever it is now) in the room window therefore you can simply search it with EnumWindows. For that you need a callback function that will stop the search when a syslistview32 is found and will return it’s handle in the callback parameter(preffered over global variable).
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.
@deeva2 wrote:
You need to update the “Nicklist” Class Mate.. Paltalk had changes since 10.2, and especially the nicklist class is changed! If you dont know how to do it please report back…. But I am also new and I had to learn the basics myself, so give it a shot and find out how to update the nicklist class..
@ChiNa-Man wrote:
Alright China, ill do that now
Aha I got it now. Awesum!
@String wrote:
This isnt working in 10.3
This is an update to my previous example. My example above is for versions of pal older than 10.2 485.
The example below is for 10.2 485 and, possibly, newer. I only tested this on 10.2 485.
@toxinburn wrote:
With a basic understanding of programming, it isn’t hard at all. Neither of the unnamed code blocks you posted make any reference to adding anything to a list box, so its no wonder it doesn’t work.
I’ve posted several examples/code on how to do this and so have many others. But, if I were you, id go back to vb2010 and let vb6 go. You gave up on .net to quickly.
Here is a quick example using Auto’s modules, lightly tested on latest pal version.
Hi Johnny5. Its not because its not working, but because Paltalk is changing the Nicklist class everytime a new update is out. I suggest that you try fix it by yourself so you always know how to fix it, just like user “deeva2” and like myself. I have
Here is a Screenshot where the Niclist class Code is Located (Use a Spy++ Tool / Windows Finder)
1) Open the Project, and simply find the “Niclist” Class in your Form Code under the “Paltalk Controls” Section… Or if you have Auto-Pilots “Paltalks Component Package” where the Nicklist class is located in mdlpalinfo.vb…
where the Nicknames are in the room.. Shown on the Image above..
2) Try to Download the Window Finder that I have attached below.
3) Open your Paltalk Messenger and Join a room.. Or open your own room!
– Now Start the Window Finder Tool, Click on the “Search” Tab*Menu >> Find Window
4) Now simply Drag and Drop the Blue/Black circle
5) After you get the Nicklist Class Code, Simply add the new Niclist class in the Niclist Class found in yiour form “Paltalk Controls”!
Good luck mate!
I have attached a WindowFinder below so you can use that to find the Window Class names… If you have any questions feel free to ask!