Skip to content
Home > Programming > Call RoomSend > Reply To: Call RoomSend

Reply To: Call RoomSend

#189736
Admin
Administrator

lol man its hard to explain, the way I do it and most of us is we use an api spymprogram to get the handle of the box where we want to send the text to, I personally use this program

and I really dont know how thing work behind it 🙂

for example if you use the program and u click on Code Generator then you drag the yellow ball to the text box of the paltalk room you will get something like this

Dim wtlsplitterwindow As Long, atld 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)
atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053d798", 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)

Now in this code we intersted on sending text to richedita so we use a sendmessege api to do this by adding to the code this

Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text$)

where Text$ is an alvitrary textbox we may use 🙂

so the code woul look like this

Dim wtlsplitterwindow As Long, atld 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)
atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053d798", 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$)

then in the form itself we put the call to this code by usin this

Call RoomSend(RichTextBox1.TextRTF)

where RichTextBox1.TextRTF is where the text is, you can also use a textbox and the code would look like this then

Call RoomSend(Text1.Text)

lol its a little hard to explain but thas how i go bout it 🙂