You are welcome

yes loco a very good job mate :O)

hey you know LVcooltext (or some thing like that) is making money from his paltalk programs, so if hes making money from those pretty basic paltalk programs you could make money from your Trivabot, because i think trivabot would be much more usful than some basic text send proggie....

but like always i dont belive in making from your hobbies (paltalk programming) and i belive in sharing the infomation so other people can learn also, just as i did when first starting VB and still learning now.


but there can be the exceptions when it come to people who are loaded and it would'nt affect in the slightest

lol yep most peeps in paltalk dont have money to be spending like that, so i like it to be free for all.

like you say i like to share my knowledge

hehehe i hear it mann...

I updated the trivia bot for paltalk 8.1 build 104 you can get it here

http://imfiles.com/Paltalk_Programs/ ... _L126.html

i have tried the trivia and it works fine...i just have a few comments or suggestions.

1. every question should have at least 1 minute before it loads the next questions. (i agree with the next question command but its not reallyof interest of the players)

2. the program is quite heavy when it comes to loading it in the room.

3. the hints should be coming from the answer and loads up every 15 seconds...it means when it reach the 30 sec mark...the first letters of each word should be revealed as hint, when it reach the 15 sec remaining it will reveal the alternate letter of each word. when no one gets the answer, the answer of the question will be revealed.

4. it doesnt take the correct answer right away

5. the right answer should be indicated on the line where the person who answered correctly is acknowledged

its just my suggestion or comments...am a trivia fanatic too and i just want to have a trivia that is fun not only to the players but also to the person launching it...thanks again

I like those subjestions

the first one i think i can do, like add an option time frame for each question, thas cool

the heavy loading on rooms well thats a mess if u check the code is on the vb forums is huge lol, dont know if i can do that

lol man u go great ideas let try to implement them.

locohacker i think the heavy loading problem can be solved also, If its the same code as you posted ages ago there is room for improvments. For example there is a lot of code that does'nt get used and can be deleted out of the program other bits of code can be put into strings instead of text box's and make public strings instead of private strings which in return will cut the code down in stead of have strings for your bas and then the same string as private for your form ect... also maybe one day if you get the time, a whole new rewrite of the code will clean up a lot and also give you a chance to implement new ways of coding that you have learn'nt after you first wrote the original trivabot

yeah agreed...

all this for sure dont need to be in the Module1 cause its not being used......

Code: Select all

Public Function DOTALLCOMMAND()
Dim X As Long
Call GetPalWindow
X = FindWindow("my window class", vbNullString)
Dim TheWindow As Long
Dim aMenu As Long
Dim mCount As Long
Dim LookFor As Long
Dim sMenu As Long
Dim sCount As Long
Dim LookSub As Long
Dim sID As Long
Dim sString As String


TheWindow = X
aMenu& = GetMenu(TheWindow)
mCount& = GetMenuItemCount(aMenu&)
For LookFor& = 0& To mCount& - 1
    sMenu& = GetSubMenu(aMenu&, LookFor&)
    sCount& = GetMenuItemCount(sMenu&)
    For LookSub& = 0 To sCount& - 1
        sID& = GetMenuItemID(sMenu&, LookSub&)
        sString$ = String$(100, " ")
        Call GetMenuString(sMenu&, sID&, sString$, 100&, 1&)
        If InStr(LCase(sString$), LCase("Remove All Mics")) Then
            Call SendMessageLong(TheWindow, WM_COMMAND, sID&, 0&)
            Exit Function
        End If
    Next LookSub&
Next LookFor&

If X = 0 Then
Exit Function
End If
End Function

Public Function UNDOTALLCOMMAND()
Dim X As Long
Call GetPalWindow
X = FindWindow("my window class", vbNullString)
Dim TheWindow As Long
Dim aMenu As Long
Dim mCount As Long
Dim LookFor As Long
Dim sMenu As Long
Dim sCount As Long
Dim LookSub As Long
Dim sID As Long
Dim sString As String


TheWindow = X
aMenu& = GetMenu(TheWindow)
mCount& = GetMenuItemCount(aMenu&)
For LookFor& = 0& To mCount& - 1
    sMenu& = GetSubMenu(aMenu&, LookFor&)
    sCount& = GetMenuItemCount(sMenu&)
    For LookSub& = 0 To sCount& - 1
        sID& = GetMenuItemID(sMenu&, LookSub&)
        sString$ = String$(100, " ")
        Call GetMenuString(sMenu&, sID&, sString$, 100&, 1&)
        If InStr(LCase(sString$), LCase("Give Mics to Everyone")) Then
            Call SendMessageLong(TheWindow, WM_COMMAND, sID&, 0&)
            Exit Function
        End If
    Next LookSub&
Next LookFor&

If X = 0 Then
Exit Function
End If
End Function

'works whether ur admin or not
Public Function viewUid()
Dim window As Long
Call GetPalWindow
window = FindWindow("my window class", vbNullString)
PostMessage window, WM_COMMAND, 372, 1
End Function

all the un needed code just makes it bigger in size and cause cause errors when its compiled and someone uses it. however i only looked at the code thats in the vip area so if therer was an update with the code and anything has been changed i wouldn't know but i know the "Advance Greeter" has only a few things that are not needed and would free up a for bytes in size

Aigh, I need to do those things its lots of work so it goign to take some time

locohacker wrote:I like those subjestions

the first one i think i can do, like add an option time frame for each question, thas cool

the heavy loading on rooms well thats a mess if u check the code is on the vb forums is huge lol, dont know if i can do that

lol man u go great ideas let try to implement them.

thanks for acknowledging my suggestions. am no programmer am just a user that has a ton of ideas.

over the years am sure a lot of programmers are trying to come up with a bot of all sorts, checkers, greeters, text faders, ramdom messages, auto messaging when the user is away, trivia and a lot more...but launching all bots at the same time eats up ur memory and the result u cant enjoy paltalk coz of the memory load. most of the people who requires such things are normally room owners like me. there was one program i used to have before...maybe 2001 and its very light when u run it. it has the following;

1. Auto Greeter (not so fancy...has color changer and text sizes only)
2. Random Announcements in the room (u can change the time intervals of each message)
3. PM Manager (it will box in all ur active PMs and has a tab that blinks when u have a new PM)
4. Away message (it responds to the PM of ur friend whenever u turn it on and u can edit the message)

it has done before and am just wondering why it cant be done again. these are just the basic things that u need in a room anyways.

if u need me to check stuffs i can help u and also ideas...keep me posted...thanks again

josh i was thinking about doing simple just like that, but in visual basic .net lol no 6 just to see how it goes, but if want one i am done i will post it okie

Ok I update the trivia a little
Now you can choose how long to wait for answer before u go to next question. u will see wher it says Q Time the you input the time in seconds, and next to it u check the checkbox if u want to use this feature

Also some peeps wanted a way to transfer old file that where separated like they only have answers in one file and question now u have the option when u click on options on the editor screen u will see it there

next i need to do is hints one letter at the time the be next

and then finally clean u the code

here it is

Hi! Plz can someone explain my why when I try to open paltalktriviabot.exe there' s an error message about a certain ''RICHTX32.OCX not found or not valid'' ??

Lulo italy

you missing this file download it here

http://www.imfiles.com/Dll_and_Ocx/r ... x_L98.html

and put it on the same folder as the triviabot okie