paltalk bots

Since Pal did it’s upgrade in March none of my bots will work in my room. I have the admin bot 10, the winamp bot 10. Nothing has changed on my pc but pals upgrade. Am I the only 1 having problems if who what do I do?

from the newbie ❓

38 thoughts on “paltalk bots

  1. Ok after a lot of digging an trying to install the Vb6, this is what I found>
    I guess I only had the 102 (that one downloaded to my pc fine) after several attempt to install the 102v6 (using Jzip) it would not download in my PCs programs. “HP C / Program Files (x86).
    Tried to install in my received files (that only stored it) then still wouldn’t open an down load
    I seen the example of the code you suggested I add. When I did the search on the opened file (stored in my downloads) it was not found.
    My pc is HP win7
    What am I doing wrong
    OH and BTW I no longer need it to work for a blue room (I quit that room) but still need it to work in a black room.

  2. Also, make sure that to start the bot, you right click it and select “Run as Administrator”. On Windows 7, the API calls are restricted and need elevated rights to work properly.

  3. Have 10.2 build 438 ( an I think last week I did have the beta, but pal locked up on me an had to delete an reinstall) but I will try the beta again.
    Now something I did notice is when I open the bot is still has all the info I put in it before, even though I’ve deleted it an reinstalled a couple of times trying to fix it.
    Does that mean anything???
    but ty I will try that now an let you know

  4. @Departure wrote:

    add a manifest to your application at compile time and it will run as administrator without having to tick any boxes

    The VB6 compiler does not handle manifest files, so that will not work with VB6. And the bots written by loco are all in VB6.

  5. Good bit of detective work there Loco!
    You could combine the 2 into one text send by simply checking for the existence of classcpanecontainerex. and if it doesn’t exist, move on to black room send code.

  6. duh heheh I was putting the If classcpanecontainerex = 0 Then before i added the classcpanecontainerex = FindWindowEx line ehehhe thanks man that’s much better 🙂 it works perfect

  7. Lol only a little 🙂 hehe hey string to check for the existence of the class wasn’t i suppose to do this

    If classcpanecontainerex = 0 Then

    Thats what I though :swift:

  8. Well it did work in a “black” room, till just a few min ago when pal forced yet another upgrade down our throats. Not letting me log on till I did the upgrade to the newest version 10.0 build 453. I looked an no beta is available that I could find. Any suggestions now?? lol
    sorry to be such a pain

  9. There were a few small changes made to the admin console in pal recently. That could be whats causing your admin bot to malfunction.

    Who are the authors of your bots? Try contacting them.

  10. umm I was having some issues too but i though it was cause I wasnt the admin of the room I was testing, but if you an admin then I got to chek and see

  11. @Eves wrote:

    version 10.0 build 453

    Don’t you mean 10.2?
    If you are using vb6 and working from the recent adminbot example of loco’s, check this post and try making those changes to your code. Lemme know how it goes.

  12. @autopilot wrote:

    Also, make sure that to start the bot, you right click it and select “Run as Administrator”. On Windows 7, the API calls are restricted and need elevated rights to work properly.

    Can’t it be done programaticaly?

  13. @Chike wrote:

    @autopilot wrote:

    Also, make sure that to start the bot, you right click it and select “Run as Administrator”. On Windows 7, the API calls are restricted and need elevated rights to work properly.

    Can’t it be done programaticaly?

    It can be done in VB 2008 & 2010, but I believe with VB6 since it (VB6) was out of support life cycle before Windows Vista/7, it never had support added for running with elevated permissions. I could be wrong, it has happened before, and I dont mess with VB6 any more.

  14. @Chike wrote:

    @autopilot wrote:

    Also, make sure that to start the bot, you right click it and select “Run as Administrator”. On Windows 7, the API calls are restricted and need elevated rights to work properly.

    Can’t it be done programaticaly?

    add a manifest to your application at compile time and it will run as administrator without having to tick any boxes

    here is a quick google for .net manifest

    http://www.developerfusion.com/code/7987/making-a-net-app-run-on-vista-with-administrator-priviledges/

  15. @Chike wrote:

    Can’t it be done programaticaly?

    [attachment=0:3dfg9ry7]Win7ElevatePriv.png[/attachment:3dfg9ry7]

    It looks like from the properties dialog, in the compatibility tab, you can set a check box to run elevated.

  16. OMG it works. Something so simple an now it works, ty ty ty lol
    an I am gonna donate to the site (wont be much) but what I can> you all rock my socks lmao
    I got all the bots to work, the admin, winamp, an music. BTW do you have a trivia bot as well?
    1 that I can add my own questions to easily without having to type, or copy an paste everyone?
    I have about 1,300 (?) trivia. lol The bot I was using before (I wont name names) but I payed for the pro-version w/lifetime upgrades an now he wont answer his website or emails.
    BUT AGAIN TY SOOOO VERY MUCH you saved my ass> the new room opens tomorrow night an NOW I’m ready

  17. Ok, somewhere along the line I misunderstood what you were saying. I thought you already had vb6 installed. Installing vb6 on a win7 machine( and having it work properly) is not so simple.

    But anyway…. So, the current version of the admin Bot does not work for you in a black room. Is that correct?
    If so, view this thread and download the file titled PAB Setup 102. Install it and try it. If it doesn’t work, let us know.

  18. OK hun I tried to download that link this sent me to but it wont load, it goes to my download files. But I can’t get it to install.
    I have win7 an I even went to a program that will open an run files made for previous window versions, but the file doesn’t show up when I did a search to do that with.
    What am I doing wrong now??
    I am sorry to be such a pain.
    An I need this bot so very bad an as fast as possible. Having problems with roomies as well as few admin. On following rule an guidelines set up for the room. I use this not only to keep track of stats an greetings but to post, much needed message in the room.
    And btw Thank you so much for you help with this > you all rock making these things <3

  19. @Eves wrote:

    OK hun I tried to download that link this sent me to but it wont load, it goes to my download files. But I can’t get it to install.
    I have win7 an I even went to a program that will open an run files made for previous window versions, but the file doesn’t show up when I did a search to do that with.
    What am I doing wrong now??

    Do you have Vb6 installed? Cause, the link above is a link to the programs source in vb6(programming section) .Or, are you just looking for the compiled program?

    Here is a link to the updated compiled version.

  20. yes I do, an I also noticed that the it was a (rar) file format. So I downloaded a program to open that just now.
    I opened an did get it installed.
    Tried to connect to the room, would not connect. I did close the room while it was still had the room name at the bottom of the program. Then reopened the room as I read above the link you posted.
    But it is still not connecting to the room, nor posting any messages or greeting.
    So what do I have to do now?

  21. HUM my last posting didn’t post, I wondered why I didn’t get an email back about it lol.
    BUT > ty ty ty OMG thank you sooooo very much, something so simple as to run under the admin, an it worked!!!! on all of them, the admin bot, winamp, fun text, everything. (for the black rooms anyways) didn’t need it anymore for a blue room (I left that 1)
    And just in time I might add, I was to open the new room with only 2 days left an I DID IT. Thanks to all your help
    And BTW I did send a donation, yet small, it is was what I could I do
    NOW my next question is > Do you have a trivia bot, where I can add my own questions, without having to type everyone or copy an paste each one into it? I’d paid for the pro version made by (scripted) a couple yrs back, but he is not answering his site or emails. And it will not work with the new pal nor will it work in my virtual pc anymore (pal won’t let a black nic log on under a virtual) but
    I have over 1,000 specific type of trivia questions I’d like to load in it, an have it keep track of score, how often to post question, an with different categories,
    but let me know what cha got???
    AGAIN TY TY TY <3 <3 <3

  22. Well I tried that, but was unable to, there is no longer an options of downloading the beta version for pal, which maybe the reason I was having trouble wit pal a couple days ago when I deleted an reinstalled the program

  23. OK I am sorry, I really don’t know what I’m doing. I am in a Blue room.
    What do I do with these codes? Where do I put them.
    I loved this Admin Bot, it was made easy to use an so very helpful in managing a room.
    So if someone could please put it in “idiot” terms (lol) I really need this program

  24. Yeps I gonna have to do that String 🙂 and wassu For last line use this 🙂

    Public Function GetLastLine()
    On Error Resume Next
    Dim mywindowclass As Long, classcpanecontainerex As Long, atlffdd As Long
    Dim wtlsplitterwindow As Long
    Dim atlfe As Long
    Dim atlaxwin As Long
    Dim x As Long
    Dim richedita As Long
    
    mywindowclass = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
    wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "SplitterWindowEx", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "SplitterWindowEx", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "SplitterWindowEx", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "SplitterWindowEx", vbNullString)
    classcpanecontainerex = FindWindowEx(wtlsplitterwindow, 0&, "classcpanecontainerex", vbNullString)
    atlffdd = FindWindowEx(classcpanecontainerex, 0&, "atl:008ffdd0", vbNullString)
    atlfe = GetWindow(atlffdd, GW_Child)
    atlfe = GetWindow(atlfe, GW_HWNDNEXT)
    atlaxwin = FindWindowEx(atlfe, 0&, "atlaxwin90", vbNullString)
    atlaxwin = FindWindowEx(atlfe, atlaxwin, "atlaxwin90", vbNullString)
    x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    richedita = FindWindowEx(x, 0&, "richedit20w", vbNullString)
    
    Form1.RichTextBox2.Text = GetLastLineTextChat(richedita)

    But if i were you I wait til monday so i can do as string suggested cause that will only work on color rooms 🙂 and is weekend hehehehe Im out

  25. Using your room send code above, I meant something like this.

    Sub RoomSend(Text As String)
    Dim iHnd As Long
    Dim parent, child, alt As Long, classcpanecontainerex As Long, atlffdd As Long
    Dim start_pos&, end_pos&, txt_len&
    On Error Resume Next
    
    parent = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
    child = FindWindowEx(parent, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    
    ''''''''' This in place of option button code'''''''''''''''''''''''''''''''
    classcpanecontainerex = FindWindowEx(child, 0&, "classcpanecontainerex", vbNullString)
    
    If classcpanecontainerex = 0 Then
    alt = GetWindow(child, GW_Child)
    Else
    atlffdd = GetWindow(classcpanecontainerex, GW_Child)
    alt = GetWindow(atlffdd, GW_Child)
    End If
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    alt = GetWindow(alt, GW_HWNDNEXT)
    alt = FindWindowEx(alt, 0, "atlaxwin90", vbNullString)
    alt = FindWindowEx(alt, 0, "#32770", vbNullString)
    iHnd = FindWindowEx(alt, 0, "richedit20w", vbNullString)
    iHnd = FindWindowEx(alt, iHnd, "richedit20w", vbNullString)
    txt_len& = SendMessage(iHnd, WM_GETTEXTLENGTH, 0, 0)
    'Copy Text that has been typed in if any
    If txt_len& > 0 Then ' don't need all this if user not typing
    'disable editing, may not be needed
    Call EnableWindow(iHnd, 0)
    'save user selection / cursor position
    Call SendMessage(iHnd, EM_GETSEL, ByVal VarPtr(start_pos&), ByVal VarPtr(end_pos&))
    ' select all text and cut
    Call SendMessage(iHnd, EM_SETSEL, 0, ByVal txt_len&)
    Call SendMessage(iHnd, WM_CUT, 0, 0)
    End If
    Call SendMessageSTRING(iHnd, WM_SETTEXT, 0&, Text$)
    Call SendMessageLong(iHnd, WM_KEYDOWN, 13, 0&)
    'Send any typing back to box
    If txt_len& > 0 Then
    ' text box is empty, paste saved text
    Call SendMessage(iHnd, WM_PASTE, 0, 0)
    ' restore selection / cursor position
    Call SendMessage(iHnd, EM_SETSEL, start_pos&, ByVal end_pos&)
    'enable editing
    Call EnableWindow(iHnd, 1)
    End If
    End Sub

     

    The example you posted works fine though.

  26. yeps i did that but it didn’t i guess i did it wrong 8) but i ended up just adding options and came our with this
    for room sending

    Sub RoomSend(Text As String)
    Dim iHnd As Long
    Dim parent, child, alt As Long, classcpanecontainerex As Long, atlffdd As Long
    Dim start_pos&, end_pos&, txt_len&
    'iHnd = getPalSubForm(Form1.WindowClass, Form1.Combo1.Text, Form1.RoomOutboundTextBoxClass, Form1.SendTxtIndex)
    On Error Resume Next
    parent = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
    child = FindWindowEx(parent, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    If Form1.Option5.Value = True Then
    alt = GetWindow(child, GW_Child)
    Else
    
    classcpanecontainerex = FindWindowEx(child, 0&, "classcpanecontainerex", vbNullString)
    atlffdd = GetWindow(classcpanecontainerex, GW_Child)
    alt = GetWindow(atlffdd, GW_Child)
    End If
    alt = GetWindow(alt, GW_HWNDNEXT)
    alt = FindWindowEx(alt, 0, "atlaxwin90", vbNullString)
    alt = FindWindowEx(alt, 0, "#32770", vbNullString)
    iHnd = FindWindowEx(alt, 0, "richedit20w", vbNullString)
    iHnd = FindWindowEx(alt, iHnd, "richedit20w", vbNullString)
    txt_len& = SendMessage(iHnd, WM_GETTEXTLENGTH, 0, 0)
    'Copy Text that has been typed in if any
    If txt_len& > 0 Then ' don't need all this if user not typing
    'disable editing, may not be needed
    Call EnableWindow(iHnd, 0)
    ' save user selection / cursor position
    Call SendMessage(iHnd, EM_GETSEL, ByVal VarPtr(start_pos&), ByVal VarPtr(end_pos&))
    ' select all text and cut
    Call SendMessage(iHnd, EM_SETSEL, 0, ByVal txt_len&)
    Call SendMessage(iHnd, WM_CUT, 0, 0)
    End If
    Call SendMessageSTRING(iHnd, WM_SETTEXT, 0&, Text$)
    Call SendMessageLong(iHnd, WM_KEYDOWN, 13, 0&)
    'Send any typing back to box
    If txt_len& > 0 Then
    ' text box is empty, paste saved text
    Call SendMessage(iHnd, WM_PASTE, 0, 0)
    ' restore selection / cursor position
    Call SendMessage(iHnd, EM_SETSEL, start_pos&, ByVal end_pos&)
    'enable editing
    Call EnableWindow(iHnd, 1)
    End If
    End Sub

    and get lastline

    Public Function GetLastLine()
    On Error Resume Next
    Dim mywindowclass As Long
    Dim wtlsplitterwindow As Long, classcpanecontainerex As Long, atlffdd As Long
    Dim atlfe As Long
    Dim atlaxwin As Long
    Dim x As Long
    Dim richedita As Long
    
    mywindowclass = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
    wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "SplitterWindowEx", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "SplitterWindowEx", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "SplitterWindowEx", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "SplitterWindowEx", vbNullString)
    If Form1.Option5.Value = True Then
    atlfe = GetWindow(wtlsplitterwindow, GW_Child)
    Else
    classcpanecontainerex = FindWindowEx(wtlsplitterwindow, 0&, "classcpanecontainerex", vbNullString)
    atlffdd = GetWindow(classcpanecontainerex, GW_Child)
    atlfe = GetWindow(atlffdd, GW_Child)
    End If
    atlfe = GetWindow(atlfe, GW_HWNDNEXT)
    atlaxwin = FindWindowEx(atlfe, 0&, "atlaxwin90", vbNullString)
    atlaxwin = FindWindowEx(atlfe, atlaxwin, "atlaxwin90", vbNullString)
    x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    richedita = FindWindowEx(x, 0&, "richedit20w", vbNullString)
    
    Form1.RichTextBox2.Text = GetLastLineTextChat(richedita)
    End Function

     

    here the greeter updated code, you will see i added 2 options withing a frame 🙂 Im gonna move this to vb forums 🙂

  27. K I think there like difference is the api for black room and color rooms like this is for the text input in a room.
    Color room

    Dim splitterwindowex As Long, classcpanecontainerex As Long, atlffdd As Long
    Dim atl As Long, atlaxwin As Long, x As Long
    Dim richeditw As Long
    splitterwindowex = FindWindow("splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString)
    atlffdd = FindWindowEx(classcpanecontainerex, 0&, "atl:008ffdd0", vbNullString)
    atl = FindWindowEx(atlffdd, 0&, "atl:00900098", vbNullString)
    atlaxwin = FindWindowEx(atl, 0&, "atlaxwin90", vbNullString)
    x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    richeditw = FindWindowEx(x, 0&, "richedit20w", vbNullString)
    richeditw = FindWindowEx(x, richeditw, "richedit20w", vbNullString)

    black room

    Dim splitterwindowex As Long, atl As Long, atlaxwin As Long
    Dim x As Long, richeditw As Long
    splitterwindowex = FindWindow("splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
    atl = FindWindowEx(splitterwindowex, 0&, "atl:00900098", vbNullString)
    atlaxwin = FindWindowEx(atl, 0&, "atlaxwin90", vbNullString)
    x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    richeditw = FindWindowEx(x, 0&, "richedit20w", vbNullString)
    richeditw = FindWindowEx(x, richeditw, "richedit20w", vbNullString)`
    The difference I see is this is extra in the blue room
    
    classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString)
    atlffdd = FindWindowEx(classcpanecontainerex, 0&, "atl:008ffdd0", vbNullString)

    So I added this code on the roomsend of the funtext like this
    `Sub RoomSend(Text As String)
    Dim iHnd As Long, classcpanecontainerex As Long, atlffdd As Long
    Dim parent, child, alt As Long
    Dim start_pos&, end_pos&, txt_len&
    'iHnd = getPalSubForm(Form1.WindowClass, Form1.Combo1.Text, Form1.RoomOutboundTextBoxClass, Form1.SendTxtIndex)
    On Error Resume Next
    parent = FindWindow("DlgGroupChat Window Class", Form1.Combo1.Text)
    child = FindWindowEx(parent, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    child = FindWindowEx(child, 0, "SplitterWindowEx", vbNullString)
    classcpanecontainerex = FindWindowEx(child, 0&, "classcpanecontainerex", vbNullString)
    atlffdd = FindWindowEx(classcpanecontainerex, 0&, "atl:008ffdd0", vbNullString)
    alt = GetWindow(atlffdd, GW_Child)
    alt = GetWindow(alt, GW_HWNDNEXT)
    alt = FindWindowEx(alt, 0, "atlaxwin90", vbNullString)
    alt = FindWindowEx(alt, 0, "#32770", vbNullString)
    iHnd = FindWindowEx(alt, 0, "richedit20w", vbNullString)
    iHnd = FindWindowEx(alt, iHnd, "richedit20w", vbNullString)
    txt_len& = SendMessage(iHnd, WM_GETTEXTLENGTH, 0, 0)
    'Copy Text that has been typed in if any
    If txt_len& > 0 Then ' don't need all this if user not typing
    'disable editing, may not be needed
    Call EnableWindow(iHnd, 0)
    ' save user selection / cursor position
    Call SendMessage(iHnd, EM_GETSEL, ByVal VarPtr(start_pos&), ByVal VarPtr(end_pos&))
    ' select all text and cut
    Call SendMessage(iHnd, EM_SETSEL, 0, ByVal txt_len&)
    Call SendMessage(iHnd, WM_CUT, 0, 0)
    End If
    Call SendMessageSTRING(iHnd, WM_SETTEXT, 0&, Text$)
    Call SendMessageLong(iHnd, WM_KEYDOWN, 13, 0&)
    'Send any typing back to box
    If txt_len& > 0 Then
    ' text box is empty, paste saved text
    Call SendMessage(iHnd, WM_PASTE, 0, 0)
    ' restore selection / cursor position
    Call SendMessage(iHnd, EM_SETSEL, start_pos&, ByVal end_pos&)
    'enable editing
    Call EnableWindow(iHnd, 1)
    End If

    End Sub

    And that works for sending text in a color room 🙂 but im guessing this part of the new code

    atlffdd = FindWindowEx(classcpanecontainerex, 0&, "atl:008ffdd0", vbNullString)

    Will need constant updates :swift:

Leave a Reply

You must Register or Login to comment on paltalk bots