Aigh so I was able to login with a green nick and this how we can determine if they green or black, by checkign if this register key exist
HKEY_CURRENT_USER\Software\Paltalk\Nickname\upgradedisplay_interval
so if it exist then they are black if not they are green
I gonna do it programitacally but that what I be cheking for the upgradedisplay_interval key

Now this is weird, and it might be why peeps are not giving feedback on programs heheh or am missing something, check the apis of
Paltalk Send Text box Green nick

Code: Select all

Dim wtlsplitterwindow As Long, atla As Long, atlaxwin As Long
Dim x As Long, richedita As Long
wtlsplitterwindow = FindWindow("wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atla = FindWindowEx(wtlsplitterwindow, 0&, "atl:007235a8", vbNullString)
atlaxwin = FindWindowEx(atla, 0&, "atlaxwin71", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)


Black nick

Code: Select all

Dim wtlsplitterwindow As Long, atla As Long, atlaxwin As Long
Dim x As Long, richedita As Long
wtlsplitterwindow = FindWindow("wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atla = FindWindowEx(wtlsplitterwindow, 0&, "atl:007235a8", vbNullString)
atlaxwin = FindWindowEx(atla, 0&, "atlaxwin71", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

Using the old sendtext

Code: Select all

    Dim iHnd As Long
        Dim parent, child, alt As Long
        Dim start_pos&, end_pos&, txt_len&
       'iHnd = getPalSubForm(Form1.WindowClass, Form1.Combo1.Text, Form1.RoomOutboundTextBoxClass, Form1.SendTxtIndex)
        On Error Resume Next
    parent = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
    child = FindWindowEx(parent, 0, "WTL_SplitterWindow", vbNullString)
    child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)
    child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)
    child = FindWindowEx(child, 0, "WTL_SplitterWindow", vbNullString)
    alt = GetWindow(child, GW_Child)
    alt = GetWindow(alt, GW_HWNDNEXT)
    alt = FindWindowEx(alt, 0, "atlaxwin71", vbNullString)
    alt = FindWindowEx(alt, 0, "#32770", vbNullString)
    iHnd = FindWindowEx(alt, 0, "RichEdit20A", vbNullString)
    iHnd = FindWindowEx(alt, iHnd, "RichEdit20A", vbNullString)
    txt_len& = SendMessage(iHnd, WM_GETTEXTLENGTH, 0, 0)
        'Copy Text that has been typed in if any
        If txt_len& > 0 Then ' don't need all this if user not typing
            'disable editing, may not be needed
            Call EnableWindow(iHnd, 0)
            ' save user selection / cursor position
            Call SendMessage(iHnd, EM_GETSEL, ByVal VarPtr(start_pos&), ByVal VarPtr(end_pos&))
            ' select all text and cut
            Call SendMessage(iHnd, EM_SETSEL, 0, ByVal txt_len&)
            Call SendMessage(iHnd, WM_CUT, 0, 0)
        End If
    Call SendMessageSTRING(iHnd, WM_SETTEXT, 0&, Text$)
    Call SendMessageLong(iHnd, WM_KEYDOWN, 13, 0&)
            'Send any typing back to box
        If txt_len& > 0 Then
            ' text box is empty, paste saved text
            Call SendMessage(iHnd, WM_PASTE, 0, 0)
            ' restore selection / cursor position
            Call SendMessage(iHnd, EM_SETSEL, start_pos&, ByVal end_pos&)
            'enable editing
            Call EnableWindow(iHnd, 1)
        End If

send Text works for both black nicks and green nicks, now I am confuse I though it shouldn't

No its only when using the index system because you have found AtlAxWin71 control first, I think I said something about this in another post , find something that is common with ALL paltalk builds and it that sending text is the 2nd Richedit control after the first AtlAxWin71 control, I dont know if that makes sense to you loco... but my source codes for build 221 stil work today with current build only because it finds AtlAxWin71 control first then the second RichEdit20a (send text box) in paltalk.

another thing you should be aware of is the send button, even tho' the control name has changed to AvmUI_CUIBitmapButton but strangely enough when using my old code it works with wtl_bitmapbutton control, this is very strange because with using an api spy in paltalk with build 247 there is no control wtl_bitmapbutton for the "send" button in paltalk

Dep that make sense it sounds a like a better way then the old way, and I just tested the old way in blue and green and black and it works in all colors

bout wtl_bitmapbutton, I dont know but would that explaing why it dont seem to work for some peeps, dont know

locohacker wrote:check the apis of
Paltalk Send Text box

Hmmmm green and black look perfectly identical to me.

Yes, when compared, the first two snippits are identical.

That's what I see too, but what's confusing me lol if its the same, and the code hasnt change since 9.2 why the index keeps being different, but I am guessing is because is a different method like dep says hhehe, I just wanted confirmation that I wasn't going crazy