February 10, 2010 at 2:28 am
#187272
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 locohackers 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.