Skip to content

Making Programs Fo the new paltalk

Viewing 15 posts - 1 through 15 (of 44 total)
  • Author
    Posts
  • #190170
    Admin
    Administrator

    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

    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

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

    Wtf is that lol, can you guys desifile it lol

    #190213
    Kittenless
    Member

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

    #190212
    Admin
    Administrator

    Great tips man,

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

    #190211
    Project SP
    Member

    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…… 😈 😈 😈 😈

    #190210
    Admin
    Administrator

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

    #190209
    Kittenless
    Member

    @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…

    #190208
    Admin
    Administrator

    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

    #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

    #190206
    Admin
    Administrator

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

    #190205
    Project SP
    Member

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

    #190204
    Project SP
    Member

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

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

    #190203
    Kittenless
    Member

    @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…

    #190202
    Admin
    Administrator

    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

    #190201
    Kittenless
    Member

    @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

    #190200
    Admin
    Administrator

    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,

Viewing 15 posts - 1 through 15 (of 44 total)
  • You must be logged in to reply to this topic.