Paltalk 11.7 Build 639 VB 6.0 Programs Issues

This topic has 6 replies, 4 voices, and was last updated 8 years ago by Chike.

Viewing 7 posts - 1 through 7 (of 7 total)

Author

Posts

April 13, 2016 at 10:15 pm #186410

Administrator

So this damn paltalk 11.7 build 639 is being a pain with the VB 6.0 programs it has the same index and the API looks the same as 638 and the programs work on 638 but not on 639.
Build 638 API

Dim dlggroupchatwindowclass As Long, splitterwindowex As Long, classcpanecontainerex As Long
Dim atlae As Long, atlaed As Long, atlaebf As Long
Dim richeditw 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)
classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString)
atlae = FindWindowEx(classcpanecontainerex, 0&, "atl:00ae4898", vbNullString)
atlaed = FindWindowEx(atlae, 0&, "atl:00ae3d28", vbNullString)
atlaebf = FindWindowEx(atlaed, 0&, "atl:00ae4bf8", vbNullString)
richeditw = FindWindowEx(atlaebf, 0&, "richedit20w", vbNullString)

Build 639 API

Dim dlggroupchatwindowclass As Long, splitterwindowex As Long, classcpanecontainerex As Long
Dim atlae As Long, atlaed As Long, atlaebf As Long
Dim richeditw 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)
classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString)
atlae = FindWindowEx(classcpanecontainerex, 0&, "atl:00ae4898", vbNullString)
atlaed = FindWindowEx(atlae, 0&, "atl:00ae3d28", vbNullString)
atlaebf = FindWindowEx(atlaed, 0&, "atl:00ae4bf8", vbNullString)
richeditw = FindWindowEx(atlaebf, 0&, "richedit20w", vbNullString)

As you can see it the same shit and the programs dont work. @chike where are you 🙂

April 14, 2016 at 3:15 am #186416

Chike

Member

What’s an “index”?
I don’t have VB6.0 and im scared to install on my Windows 7
Don’t know if I have installer anyway.

April 14, 2016 at 11:58 am #186415

Admin

Administrator

This indexes 🙂

Const SendTxtIndex10Beta450 As Integer = 1
Const ChaTxtIndex10Beta450 As Integer = 4

But man I wouldn’t install VB 6 on any PC hehehe I kindna had to reinstall everything when I try it on a Windows 10 PC heheheh

April 26, 2016 at 3:00 pm #186414

Departure

Member

Use break points to work out which line returns a null handle, then you can investigate further, each FindWindowEx should return a valid handle of your code is correct. I assume the original post with code was from Pat API spy? why not try another program and see of you get the same results? E.g I uploaded a HwndSpy program a few years ago here which will give the high Hierarchy of each component, use that to compare with what you have, it will even give you the “Index” number