1 Attachment(s)
[VB6] VBForums - Grab All Online Users
Hi.... :wave:
First of all, thanks to EdgeMeal's Forum Ticker Utility.
I had used some of his codes without permission(I think, he's not angry at me... :D). My program will list all the Users who are online in VBForums.
BTW, this is a very simple program...! Please post your comments (both positive and negative feedbacks are appreciated... :D)
Thanks for reading.... :wave:
Re: [VB6] VBForums - Grab All Online Users
Tried the code and it works as expected! For those who think there is a discrepancy with the forum that is because the forums also counters the numbers of invisible users as well as online users. Whereas akhileshbc's code doesn't. Can you upgrage it to include invisible users too?
Re: [VB6] VBForums - Grab All Online Users
Quote:
Originally Posted by
Nightwalker83
Tried the code and it works as expected! For those who think there is a discrepancy with the forum that is because the forums also counters the numbers of invisible users as well as online users. Whereas akhileshbc's code doesn't. Can you upgrage it to include invisible users too?
Thanks for your comment...:wave:
I think the forum won't show it to anyone...! :D (looks like a security option).
The working of the above code is,
download the index/main page and load it(page source) to a string variable. Parse the usernames contained in that string...and display the usernames on a Listbox.... :wave:
Re: [VB6] VBForums - Grab All Online Users
Then use a "get string between" function to get the total users. Google for it :D
Re: [VB6] VBForums - Grab All Online Users
Quote:
Originally Posted by
thejurm
Then use a "get string between" function to get the total users. Google for it :D
GetString method of ADO..??? But what if the forum is not grabbing the invisible user's names from its database..???
For example:
Code:
SELECT forumUsernames FROM forumUsers WHERE invisbleUsers = FALSE
Just a thought...! .....:wave:
Re: [VB6] VBForums - Grab All Online Users
I don't exactly know how you are doing it, but...
Code:
Public Function GSB(Main As String, Start As String, Finish As String, Optional Index As Long = 1) As String
On Error Resume Next
GSB = Split(Split(Main, Start, Index + 1)(Index), Finish, 2)(0)
End Function
Use that will get something of this format:
Code:
string = "abc"
msgbox gsb(string, "a", "c")
'returns "b"
If you are using an HTML source for this then you are in good shape ;)
Re: [VB6] VBForums - Grab All Online Users
Quote:
Originally Posted by
thejurm
I don't exactly know how you are doing it, but...
Code:
Public Function GSB(Main As String, Start As String, Finish As String, Optional Index As Long = 1) As String
On Error Resume Next
GSB = Split(Split(Main, Start, Index + 1)(Index), Finish, 2)(0)
End Function
Use that will get something of this format:
Code:
string = "abc"
msgbox gsb(string, "a", "c")
'returns "b"
If you are using an HTML source for this then you are in good shape ;)
I thought your post was about displaying the Invisible Users... :)
Re: [VB6] VBForums - Grab All Online Users
Oh I thought we were talking about getting the correct count ;)
Re: [VB6] VBForums - Grab All Online Users
Re: [VB6] VBForums - Grab All Online Users
Quote:
Originally Posted by
mustiback
Thanks For Share!!!
Welcome.... :)
Re: [VB6] VBForums - Grab All Online Users
what if the forums have different colors on the usernames?
like the viprasys.org? does it have any problems with that?
can you help me with it?
@akhileshbc
your code was amzing
i will try to study and learn from it
thanks
Re: [VB6] VBForums - Grab All Online Users
You're welcome...:wave:
If you go through the VB source code and the page source(HTML code) of the index page of your site, you will be able to do the necessary changes all by yourself.
If you have any questions, feel free to post it...:wave: