Skip to content

Reply To: Need help!!! paltalk 8.2 richview control!

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 ):