Skip to content

Reply To: Paltalk 9.9 Programming VB 6.0

#187272
String
Member

I think you are making it harder than it need be loco.
The only thing that has changed is the name of the splitter window.

Just use your old code for pal 9.8, and simply replace WTL_SplitterWindow with SplitterWindowEx and it works fine.

In your Paltalk Funtext Source example, this is your send code. I just replaced the old splitter window name with the new one. It works fine on 9.9 build 344
Sub RoomSend(Text As String)
‘this code from Admins Paltalk Funtext project

Dim iHnd As Long
Dim parent, child, alt As Long
On Error Resume Next
parent = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
child = FindWindowEx(parent, 0, "SplitterWindowEx", vbNullString)
child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
alt = GetWindow(child, GW_Child)
alt = GetWindow(alt, GW_HWNDNEXT)
alt = FindWindowEx(alt, 0, "atlaxwin90", vbNullString)
alt = FindWindowEx(alt, 0, "#32770", vbNullString)
iHnd = FindWindowEx(alt, 0, "RichEdit20A", vbNullString)
iHnd = FindWindowEx(alt, iHnd, "RichEdit20A", vbNullString)
Call SendMessageSTRING(iHnd, WM_SETTEXT, 0&, Text$)
Call SendMessageLong(iHnd, WM_KEYDOWN, 13, 0&)
End Sub

The code in your original post above may also work, but its missing the code to get the main windows class name… which it needs before looking for the splitter window.