Looking for the most updated palsend chat code for pal8 bld9

here you go 🙂

Dim mywindowclass As Long

Dim wtlsplitterwindow As Long

Dim atlfe As Long

Dim atlaxwin As Long

Dim X As Long

Dim richedita As Long

Dim Button 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)

atlfe = FindWindowEx(wtlsplitterwindow, 0&, "atl:004fe680", vbNullString)

atlaxwin = FindWindowEx(atlfe, 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&, Text$)



If richedita = 0 Then



Exit Sub

End If



Do

DoEvents

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)

atlfe = FindWindowEx(wtlsplitterwindow, 0&, "atl:004fe680", vbNullString)

atlaxwin = FindWindowEx(atlfe, 0&, "atlaxwin71", vbNullString)

X = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(X, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(X, richedita, "richedit20a", vbNullString)

Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)

Loop Until richedita  0

if u need a example code i make one for ya if u want 🙂