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

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

Code: Select all

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

http://www.imfiles.com/paltalk/advan ... vt644.html

here i also updated for build 8.2 115 ):