Updated code for Chatsend for the New paltalk 8

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 🙂