Skip to content

Reply To: Making Programs Fo the new paltalk

#190207
Kittenless
Member

@Admin wrote:

Kittenless thats wha I want to do upgrade programs, 😈 but this is the shit i use the api spy and this code seem to be right it was done by Crash

Dim wtlsplitterwindow As Long, atlc As Long, atlaxwin As Long
Dim x As Long, richedita As Long
Dim mywindowclass As Long
mywindowclass = FindWindow("my window class", vbNullString)
wtlsplitterwindow = FindWindow("wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:004c4600", vbNullString)
atlaxwin = FindWindowEx(atlc, 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$)

I am not good at dealing with external programs but I am getting better at it, so wtf it doesnt want to send the message ❓ Anyways I keep on checking untyl my girl tells me to stop jejeejejje


atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:004c4600", vbNullString)
atlaxwin = FindWindowEx(atlc, 0&, "atlaxwin71", vbNullString)

needs to be changed.. Change the c4600 to c5600
eg


atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:004c5600", vbNullString)
atlaxwin = FindWindowEx(atlc, 0&, "atlaxwin71", vbNullString)

keep an eye on the codes with api spy as they will be changing in each version

my advice if you know how to create a DLL..

create all the code for the paltalk interface in a dll.. then you can replace that without having to replace Lots of code