Looking for the most updated palsend chat code for pal8 bld9

This topic has 4 replies, 2 voices, and was last updated 19 years ago by Admin.

Viewing 5 posts - 1 through 5 (of 5 total)

Author

Posts

May 17, 2005 at 2:10 am #189511

cwebz

Member

can anyone help me ??

May 17, 2005 at 2:35 am #189515

Admin

Administrator

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 🙂

May 17, 2005 at 3:02 am #189514

Admin

Administrator

atl:004fe680

is the only part of your code anyone needs to update everytime paltalk updateds just use a API Spy and find “atl:004fe680” it is the only thing that changes.

May 18, 2005 at 5:26 am #189513

cwebz

Member

I think it’s just me I still can’t get it ..

May 18, 2005 at 4:44 pm #189512

Admin

Administrator

lol, its okay cwebz here a example for u to try 🙂 This one works for v8 b90