Skip to content

Need help!!! paltalk 8.2 richview control!

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • December 11, 2005 at 3:36 pm #189161
    Lavang
    Member

    hello out there!
    My greeting bot can not work any more since I used paltalk 8.1, can you guys out there please tell me how I can get the class of the richview control of paltalk 8.1 or 8.2 …

    here is the code that works very vell with paltalk8.0

    ********* work ok with pal. 8.0 ********************
    mywindowclass = Module1.FindWindow(“my window class”, Room)
    wtlsplitterwindow = Module1.FindWindowEx(mywindowclass, 0&, “wtl_splitterwindow”, vbNullString)
    wtlsplitterwindow = Module1.FindWindowEx(wtlsplitterwindow, 0&, “wtl_splitterwindow”, vbNullString)
    wtlsplitterwindow = Module1.FindWindowEx(wtlsplitterwindow, 0&, “wtl_splitterwindow”, vbNullString)
    atlfe = Module1.FindWindowEx(wtlsplitterwindow, 0&, “ATL:004FE680”, vbNullString)
    atlaxwin = Module1.FindWindowEx(atlfe, 0&, “atlaxwin71”, vbNullString)
    x = Module1.FindWindowEx(atlaxwin, 0&, “#32770”, vbNullString)
    richedita = Module1.FindWindowEx(x, 0&, “richedit20a”, vbNullString)

    this paramet not works : ATL:004FE680

    Can you tell me what can I replace that code to make the bot work!!!!

    Thank you very much!!!
    *****************************

    best regards
    Lavang

    December 11, 2005 at 4:03 pm #189162
    Admin
    Administrator

    You mean to get the text from the rich area right, if so here the code for 8.1 build 104 🙂

    mywindowclass = FindWindow("my window class", Form1.Text2.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:00504680", 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)

    There a full greeter source here

    here i also updated for build 8.2 115 ):

  • Author
    Posts

Related

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