Well I am trying to make a flooder for this new paltalk but man is confusing my ass lol, I try using the Api spy but no matter how I try to make the code it dont work, here the Api Spy code for just to put the text on the richeditbox

Code: Select all

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


Compare this to the old paltalk

Code: Select all

Dim richedita As Long
richedita = FindWindow("richedit20a", vbNullString)


Wtf is that lol, can you guys desifile it lol

Code: Select all

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....

Great tips man,

I think Project-Sp aka salmanpaji figure it out, about the chatsend, hope he makes it public

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......

Ok Bro take your time, just keep on making great programs

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...

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

Code: Select all

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

locohacker 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

Code: Select all

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

Code: Select all

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


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

Code: Select all

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

Hey its not working Even if i change it, curse this new paltalk

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......

the whole purpose of the old method... was for u guyz to learn from it.....

i might giove the codes to "Kittenless" & "locohacker",....... cuz......
kittenless.. knows what hez talkin about.... and locohacker. to u. is a reason
that u're goood paltalk programs promoter, and bringin them into one place..
keep the good work.... loco......

Project SP wrote:i might giove the codes to "Kittenless" & "locohacker",....... 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

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

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

Code: Select all

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

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

Code: Select all

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

I know, thas why i need to find ou the api so it works better. And You right I have to have one room open, if i open more then one room it sends it in both like periodically, crazy, I got to learn this things,