Aigh, this some info for me to see if i can make some programs work for paltalk color

richedit20a

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)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053c798", 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)

room nicklist

Code: Select all

Dim mywindowclass As Long, wtlsplitterwindow As Long, atlcd As Long
Dim syslistview As Long
mywindowclass = FindWindow("my window class", vbNullString)
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atlcd = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053c8d0", vbNullString)
syslistview = FindWindowEx(atlcd, 0&, "syslistview32", vbNullString)

cat roomlist

Code: Select all

Dim atld As Long, wtlsplitterwindow As Long, syslistview As Long
atld = FindWindow("atl:0053d390", vbNullString)
wtlsplitterwindow = FindWindowEx(atld, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
syslistview = FindWindowEx(wtlsplitterwindow, 0&, "syslistview32", vbNullString)


loco do u mean u want to color the name on our side ? if yes then i am intrested on doing that too but so far i can only color all names not individual names!

na man, thas for paltalk colour, i want to make some programs to work in paltalk colour for some peeps, like sastifaction scroller and maybe when i fix the admin bot that one too, but i be using the sastifaction scroller to bugs some rooms so i really want to update tha

wtf is this ehhe yo i compare the color api and the regular paltalk and is the damn same but the programs dont work for paltalk umm wonder why

here the comparesing

wtlsplitterwindow = FindWindow("wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindow("wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053c798", vbNullString)
atlc = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053c798", vbNullString)

atlaxwin = FindWindowEx(atlc, 0&, "atlaxwin71", vbNullString)
atlaxwin = FindWindowEx(atlc, 0&, "atlaxwin71", vbNullString)

x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)
richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

aigh the black api is paltalk regular the red ones are paltalk color, and is the same thing or am i going crazy

What do you mean? Send text is not working?

just tested my whisper spammer and it works fine so uno..

let me check again maybe is due to the update.ini lets see

loco i told you before about paltalk colour, it places a diffrent build number in the registry, thus meaning the update code thinks its a diffrent version which gives your program a diffrent atl handel, if you look at the normal paltalk build number in the registry, then open paltalk colour and go and look back in the registry you will find paltalk colour changes the build number........... but you and i know its not a diffrent build number because the atl handels are the same

ah damn, so that's why it make sence so the only way to program to paltalk is without the update.ini I think, tha sucks cause i will have to update everytime there a new version out

if paltalk change version and just altxxxx change, use the trick posted by SP-project it should work for all version, using get child and get next window

loco only paltalk colour for some reason changes the build number "fake build number" but for programming apps for paltalk its not a problem to use the update.ini , for each build that comes out you just have to ass the atl handel to the update.ini

EDIT:
OMG, i just been playing with a couple of ideas and i have cracked it finally, I have written a function that will automatically subclass the atl control, 1 line of code that fixes the paltalk atl handels without a problem, This means no more upgrades for your programs and no where near as much code as Sproject used,

hmmmm now its time to update my paltalk proggies witht his function, that means it will work with all paltalk builds and future one also yipeeee!!

we learn new thing each day

man plsssssssss share it i really need it

make your homeworks loco, if not your wife wont be happy:lol:

hheh, man thas the problem she dont give me time to do any hehe

but is sp code the way to go