Skip to content

Paltalk 11.7 Build 639 VB 6.0 Programs Issues

Viewing 7 posts - 1 through 7 (of 7 total)
  • Author
    Posts
  • #186410
    Admin
    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 🙂

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

    #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

    #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

    HwndSpy

    #186413
    Admin
    Administrator

    Yeps I used Pat API, aigh I gonna use the HwndSpy to dig deeper on what’s going on. Thanks 🙂

    #186412
    MrAlone
    Member

    Good Evening..

    I’m using Paltalk 118 b652 and everything is working fine ..

    https://www.imfiles.com/topic/paltalk-11-7-programs-vb-6-0-source/

    Work like a charm ..

     

    Luv U

    #186411
    Admin
    Administrator

    Yeps, it they weren’t working for build 648, but they good for the new 11.8 heheh so no updates 🙂

Viewing 7 posts - 1 through 7 (of 7 total)
  • You must be logged in to reply to this topic.