Online User List

From VbGORE Visual Basic Online RPG Engine

Example of Online User Window:

Note:This tutorial dosn't include the uptime timer, for a tutorial on that please refer to http://www.vbgore.com/Server_Uptime_Timer.

Make a new form, frmOnline This is the window that will show the online users. Add a listbox called Userslst This is where the online users will be displayed. Make a Command button called Shutdown This will shutdown the server.

Find/Locate:

Private Sub Shutdown_Click()

Below Add:

UnloadServer = 1

This will shutdown the server when the cammand button "Shutdown" is pressed.

Find/Locate:

Private Sub Form_Load()
Dim TempSplit() As String

Below Add:

frmOnline.Show
    Server_RefreshUserListBox

This will display your online user window when the server starts up.

Doubble click on the frmOnline window and add the following into Private Sub Form_Load()

'Show status
 Server_RefreshUserListBox

This will refresh the User list box.

In General.bas add:

Sub Server_RefreshUserListBox()
 
'*****************************************************************
'Refreshes the User list box
'*****************************************************************
 
Dim LoopC As Long
 
    If LastUser < 0 Then
        frmOnline.Userslst.Clear
        Exit Sub
    End If
 
    frmOnline.Userslst.Clear
    CurrConnections = 0
    For LoopC = 1 To LastUser
        If UserList(LoopC).Name <> "" Then
            frmOnline.Userslst.AddItem UserList(LoopC).Name
            CurrConnections = CurrConnections + 1
        End If
    Next LoopC
    TrayModify ToolTip, "Game Server: " & CurrConnections & " connections"
 
End Sub

This will refresh the User list box and shows current connections.

Find/Locate:

    'Update number of users
    If NumUsers <> 0 Then NumUsers = NumUsers - 1
    TrayModify ToolTip, Server_BuildToolTipString

Below add:

    Server_RefreshUserListBox

This will refresh the User list box when the number of users changes.

Find/Locate:

    'Update number of users
    NumUsers = NumUsers + 1

Below add:

   'Refresh list box and send log on string
    Server_RefreshUserListBox

This will refresh the User list box.

Once that is added, when you run the server, frmOnline should show up and all the online players should be shown in the listbox. You can also add a fancy background to thet form or the list box to make lit look better.