Updated code for Chatsend for the New paltalk 8

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #11591
    imFiles
    Member

    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 🙂

Viewing 1 post (of 1 total)
  • You must be logged in to reply to this topic.