Call RoomSend

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

    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 🙂

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