Making Programs Fo the new paltalk

Dim SndBoxWnd As Long

Dim childWnd As Long

Dim newwnd As Long

childWnd& = 0&



newwnd& = FindWindowExP(ParentWnd&, childWnd&, "WTL_SplitterWindow", vbNullString)

If newwnd& > 0 Then

ParentWnd& = newwnd

End If

childWnd& = FindWindowExP(ParentWnd&, childWnd&, "WTL_SplitterWindow", vbNullString)

ParentWnd& = childWnd&

childWnd& = 0

childWnd& = FindWindowExP(ParentWnd&, childWnd&, "ATL:004C5600", vbNullString)

ParentWnd& = childWnd&

childWnd& = 0

childWnd& = FindWindowExP(ParentWnd&, childWnd&, "AtlAxWin71", vbNullString)

ParentWnd& = childWnd&

childWnd& = 0

childWnd& = FindWindowExP(ParentWnd&, childWnd&, "#32770", vbNullString)

ParentWnd& = childWnd&

childWnd& = 0

childWnd& = FindWindowExP(ParentWnd&, childWnd&, "RichEdit20A", vbNullString)

SndBoxWnd& = FindWindowExP(ParentWnd&, childWnd&, "RichEdit20A", vbNullString)

one problem they have removed the send button so if anyone has any idea or initiating its send….

not yet bro………
Im gonna take some time…. to ,make it public…..
and i wanna see wat are ppl doing….. it….. if they have learned.
from the old method…… 😈 😈 😈 😈

@Project SP wrote:

not yet bro………
Im gonna take some time…. to ,make it public…..
and i wanna see wat are ppl doing….. it….. if they have learned.
from the old method…… 😈 😈 😈 😈

i almost have your methid figured out.. but i cant seem to get it working…

if you want i can pm you the code i have..

lets just say it involves cross-process data manipulation and the index 13…..
🙄

ive got sooo many people who use my scoring program on my case over it.. its driving me insane lol

oh that and the Buddypop box etc..

why cant people learn that just because paltalk has upgraded doesnt mean we can release an update for our programs at the same time…

@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

ok herez what im gonna do… im gonna make
the “CSv6.ocx” The Chat Send v6.0 For The PalTalk 7 Messenger
aiiritte,…… 🙂 wich will allow you to send the text , autogreeter. and all
those text options from that file…. 🙂 by making ur own codes of the autogreeter…

sorry guess, that i hv to tough on this matter, buz if i publish the codes, then nobodyz gonna learn from it,,, thewy just gonna copy and paste…..
and done…… and we want actuall programmers for paltalk…. not some
newbie….. standsup…. and want the codes……

@Project SP wrote:

i might giove the codes to “Kittenless” & “Admin”,……. cuz……
kittenless.. knows what hez talkin about…. .

Please… I might be intelligent.. but don’t mistake me for a bloke.. 😛

*:arrow: ❗ checks herself ❗ * yepp.. theses bumps on the front are called boobs i think lol 8)

SP… check your PM because ive found a way and not sure if its the same as yours…

@Admin wrote:

lol that be cool sp, 🙂 i did this simple code to make a scroller dont laugh it works tho, check it

On Error Resume Next

DoEvents

Clipboard.Clear

DoEvents

Clipboard.SetText Text1.Text

AppActivate "- Voice Group"

DoEvents

SendKeys "^V" & "{Enter}"

Call Delay(1)

😉 its simple but it works but i dont want to use it like in my other programs cause i dont know if its reliable enough

VERY Messy
This basically doesnt discriminate between groups
so if you have more than one open.. (which you can do now in 7) it wont know which one precisely to send it to.. choose randomly and send to that