Paltalk 11.7 Build 639 VB 6.0 Programs Issues

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 🙂

6 thoughts on “Paltalk 11.7 Build 639 VB 6.0 Programs Issues

  1. 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

  2. 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

    https://www.imfiles.com/topic/hwndspy/

Leave a Reply

You must Register or Login to comment on Paltalk 11.7 Build 639 VB 6.0 Programs Issues