[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:

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?

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:

Then use a "get string between" function to get the total users. Google for it :D

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:

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 ;)

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... :)

Oh I thought we were talking about getting the correct count ;)

Thanks For Share!!!

Quote:

---

Originally Posted by mustiback

Thanks For Share!!!

---

Welcome.... :)

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

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: