Skip to content
Home > Programming > Updated code for Chatsend for the New paltalk 8

Updated code for Chatsend for the New paltalk 8

Viewing 5 posts - 1 through 5 (of 5 total)
  • Author
    Posts
  • April 1, 2005 at 5:04 am #189644
    Admin
    Administrator

    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 🙂

    April 1, 2005 at 12:23 pm #189648
    sk8er
    Member

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

    April 1, 2005 at 3:15 pm #189647
    Admin
    Administrator

    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 🙁

    April 1, 2005 at 4:36 pm #189646
    sk8er
    Member

    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

    April 1, 2005 at 6:15 pm #189645
    Admin
    Administrator

    please 🙂 i need that for the greeter big time ):

  • Author
    Posts

Related

Viewing 5 posts - 1 through 5 (of 5 total)
  • You must be logged in to reply to this topic.