Jogadores Online

Com esse tutorial mostra uma lista com os jogadores online vamos começar

Client ~ Side VB6

FrmMain Crie 1 PictureBox e uma ListBox

PictureBox: Nome PicOnline
dentro da Pic coloque
ListBox: lstOnline

Agora va no Module " GameLogic " e no fim coloque

Código:

Sub JogadoresOnline()
Dim i As Long
With frmMain
.lstOnline.Clear

For i = 1 To Player_HighIndex
If IsPlaying(i) Then
.lstOnline.AddItem GetPlayerName(i) & " - Level:" & GetPlayerLevel(i)
End If
Next
End With
End Sub

Agora Procure Por

Código:

frmMain.lblCharName = GetPlayerName(MyIndex) & " - Level " & GetPlayerLevel(MyIndex)

Abaixo de um enter e Coloque

Código:

JogadoresOnline

Agora Crie um CommandButton
Dentro Coloque

Código:

PicOnline.visible = Not PicOnline.visible

e Pronto Qualquer Bug Reportem " sistema testado "

Credios : Eduardo & Vision Makers