ok finnally decided to post this proggie so here it is it has been tested on paltalk 8.3 and it works enjoy.

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)
atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053d798", 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&, ":)")
Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text1.Text)Call SendMessageByString(richedita, WM_SETTEXT, 0&, ":)")



Users browsing this forum: No registered users and 0 guests