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

Code: Select all

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

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

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

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

please i need that for the greeter big time ):