Skip to content

A way to find if nick is green/blue or black

Viewing 7 posts - 1 through 7 (of 7 total)
  • Author
    Posts
  • April 17, 2008 at 12:45 am #187565
    Admin
    Administrator

    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_USERSoftwarePaltalkNicknameupgradedisplay_interval
    🙂 so if it exist then they are black if not they are green :mrgreen:
    I gonna do it programitacally but that what I be cheking for the upgradedisplay_interval key 🙂

    April 17, 2008 at 1:15 am #187571
    Admin
    Administrator

    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

    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

    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

        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 🙄

    April 17, 2008 at 2:53 am #187570
    Departure
    Member

    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

    April 17, 2008 at 3:26 am #187569
    Admin
    Administrator

    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 8)

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

    April 17, 2008 at 8:54 am #187568
    Chike
    Member

    @Admin wrote:

    check the apis of
    Paltalk Send Text box

    Hmmmm green and black look perfectly identical to me.

    April 17, 2008 at 2:03 pm #187567
    String
    Member

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

    April 17, 2008 at 2:10 pm #187566
    Admin
    Administrator

    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 :mrgreen:

  • Author
    Posts

Related

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