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 ❓
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 ❓
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.
Latest beta here
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.
I believe this source works for blue room.
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
@Departure wrote:
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.
its work like champ ..Loco you rock 😉
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.
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
another issue getlastline :d
Thanks Loco have a Nice weekend all 😉 dont drink and drive eheheh
Lol only a little 🙂 hehe hey string to check for the existence of the class wasn’t i suppose to do this
Thats what I though :swift:
not sure who the authors are but under “about” by Locaohacker
Some codes from Departure, Method, Nano and the people from VBform(dot)com
?
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
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.
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
i had found listview don’t work with green and blue rooms :d i haven’t get it yet
That would work, yes.
What version of pal are you using? Trying downloading the beta if you don’t have it already.
@Eves wrote:
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.
I updated my trivia bot with some information posted here on how to read lines in paltalk 10 (thanks!) so now it works in Paltalk 10. You can find it in:
https://sites.google.com/site/davidtrivia/paltalk-trivia-bot
@autopilot wrote:
Can’t it be done programaticaly?
@Chike wrote:
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.
@Chike wrote:
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/
@Chike wrote:
[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.
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
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.
@Eves wrote:
So what exactly did you do to get them to work?
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
@Eves wrote:
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.
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?
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
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
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
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
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 SubThe example you posted works fine though.
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 Suband 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 Functionhere the greeter updated code, you will see i added 2 options withing a frame 🙂 Im gonna move this to vb forums 🙂
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 roomSo 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
Will need constant updates :swift: