Skip to content

help getting chat room and pm text >:(

Viewing 5 posts - 1 through 5 (of 5 total)
  • Author
    Posts
  • December 11, 2005 at 5:15 pm #189156
    Admin
    Administrator

    Fucking gay anyone here able to help me out getting the chat room and pm text so when people reply in chat it grabs there reply and samething for pm would be nice i tryed…….

    Dim TheText As String, TL As Long
    
Dim mywindowclass As Long
    
Dim wtlsplitterwindow As Long
    
Dim atl As Long
    
Dim atlaxwin As Long
    
Dim x As Long
    
Dim richedita 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)
    
atl = FindWindowEx(wtlsplitterwindow, 0&, "atl:00504680", vbNullString)
    
atlaxwin = FindWindowEx(atl, 0&, "atlaxwin71", vbNullString)
    
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
    
TL = SendMessageLong(richedita&, WM_GETTEXTLENGTH, 0&, 0&)
    
TheText = String(TL + 1, " ")
    
Call SendMessageByString(richedita&, WM_GETTEXT, TL + 1, TheText)
    
TheText = Left(TheText, TL)
    

    
If richedita = 0 Then
    
Msgbox "Error: Cannot find window"
    
Exit Sub
    
End If

    any of you butter balls able to help my jewish ass out? Thanks.

    December 11, 2005 at 7:27 pm #189160
    Admin
    Administrator

    You want the hold text or the last line, for the last line this should work for both

    Function GetChatText()
    
On Error Resume Next
    
Dim mywindowclass As Long
    
Dim wtlsplitterwindow As Long
    
Dim atl As Long
    
Dim atlaxwin As Long
    
Dim X As Long
    
Dim richedita As Long
    
Dim Button As Long
    
mywindowclass = FindWindow("my window class", Form1.Text1.Text)
    
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
    
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    
atl = FindWindowEx(wtlsplitterwindow, 0&, "atl:00536778", vbNullString)
    
atlaxwin = FindWindowEx(atl, 0&, "atlaxwin71", vbNullString)
    
X = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    
richedita = FindWindowEx(X, 0&, "richedit20a", vbNullString)
    
richedita = FindWindowEx(X, richedita, "richedit20a", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
richedita = FindWindowEx(X, richedita, "RichEdit20A", vbNullString)
    
GetChatText = GetRoomText(richedita)
    
End Function

    All you need to do is connect to the the im window or room window I think

    December 11, 2005 at 7:53 pm #189159
    Admin
    Administrator

    Check this code its grabs both pm and chat rooms last lines

    one thing i need help with how to trim the richtextbox in a good way so there is not empty spaces 🙂 all the ones i try dont work well 🙁

    April 12, 2006 at 2:10 pm #189158
    method
    Member

    loco could u tell me how i can compile this code of u. i made a form and with a text box and button on it and pasted your code and called the function from within button on click event but i get this errror :

    compile error
    

    
sub or function no defined

    and it points to FindWindow

    could u tell me how to fix this error and make it work .Thanks

    April 12, 2006 at 2:31 pm #189157
    Admin
    Administrator

    ah thas because you need to add a module

    check this code is mad nice 🙂

  • Author
    Posts

Related

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