Looking for the most updated palsend chat code for pal8 bld9

by cwebz » Mon May 16, 2005 9:10 pm

by locohacker » Mon May 16, 2005 9:35 pm

here you go

Code: Select all

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

by Guest » Mon May 16, 2005 10:02 pm

by cwebz » Wed May 18, 2005 12:26 am

by locohacker » Wed May 18, 2005 11:44 am

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