Call RoomSend

Well here what I am using in case u had problems, some people were. 😉

Public Sub RoomSend(Text As String)

Dim mywindowclass As Long

Dim wtlsplitterwindow As Long

Dim atld As Long

Dim atlaxwin As Long

Dim x As Long

Dim richedita As Long

On Error Resume Next

mywindowclass = FindWindow("my window class", vbNullString)

wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:004d6640", vbNullString)

atlaxwin = FindWindowEx(atld, 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)

atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:004d6640", vbNullString)

atlaxwin = FindWindowEx(atld, 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

And to call it

Call RoomSend(RichTextBox1.TextRTF)

This the old method that the paltalk programers use to send meesges to paltalk rooms.
I just put this cause some people where having problems with Call RoomSend including me, lol 🙂