Skip to content

Updated code for Chatsend for the New paltalk 8

Viewing 5 posts - 1 through 5 (of 5 total)
  • Author
    Posts
  • #189644
    Admin
    Administrator

    Here for you newbies lol 🙂 this the code to send text to the new paltalk 8.0 🙂

    Public Sub RoomSend(Text As String)
    Dim mywindowclass As Long
    Dim wtlsplitterwindow As Long
    Dim atlf As Long
    Dim atlaxwin As Long
    Dim x As Long
    Dim richedita As Long
    Dim Button As Long
    mywindowclass = FindWindow("my window class", vbNullString)
    wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    atlf = FindWindowEx(wtlsplitterwindow, 0&, "atl:004f7660", vbNullString)
    atlaxwin = FindWindowEx(atlf, 0&, "atlaxwin71", vbNullString)
    x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
    richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)
    Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text$)

    If richedita = 0 Then

    Exit Sub
    End If

    Do
    DoEvents
    mywindowclass = FindWindow("my window class", vbNullString)
    wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    atlf = FindWindowEx(wtlsplitterwindow, 0&, "atl:004f7660", vbNullString)
    atlaxwin = FindWindowEx(atlf, 0&, "atlaxwin71", vbNullString)
    x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
    richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)
    Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)
    Loop Until richedita <> 0
    End Sub

    nice 🙂

    #189648
    sk8er
    Member

    i see basicaly alls u do is rename some shit to go from pt 7 to 8 lol

    #189647
    Admin
    Administrator

    Yeps is just a line change lol, but one thing I couldn’t make work you know the get window title I think it was by hellbound, it doesnt work for paltalk 8, at list with me,

    You know the program that gets the paltalk room title and stuff, 🙁 I need the code to work, if i am goign to upgrade the greeter to paltalk 8 🙁

    #189646
    sk8er
    Member

    yah it was for me age checker, i had label1.caption = strwindowtitle, then that was mousemove(x as integer, y as integer, shift as variable) or something like that lol. so ima have to look at that for a lil while and try toupdate it, cause it looks like the room name is just a simple thing to be formnroom.caption = formcreateroom.text.text, causde u can create room in buddy list, so it may run liek that, idk though, illl look at it

    #189645
    Admin
    Administrator

    please 🙂 i need that for the greeter big time ):

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