Mudando Acess Pelo Server

Escrito por Guilherme na mmorpgbr antiga.

Access Server - Att. Gu1lh3rm3

.::Descrição::.
•Funciona a quem quer mudar qualquer tipo de access pelo server

.::Requerimentos::.
•Programação 1/5

.::Tutorial::.
(Server Side)

1º Crie 4 Coisas!, 1 Labeis, 1 HScrollBar e um Command Button!, coloque o nome de uma das Labeis de lblAccess, e o nome do ScrollBar de scrlAccess, deixe elas dessa forma:

label1: lblAccess, Command Button1
scrlAccess

Olhe uma foto de como vai ficar!:


2º Clique 2x no Button e adicione esse codigo dentro dele!

Código:

SetAccess

Agora Clique 2x na scrlAccess e adicione isso dentro:

Código:

lblAccess.Caption = scrlAccess.Value

E mude o Max da scrlAcces para 5!!!

3º Proucure por:

Código:

Sub mnuRemoveAdmin_click()
    Dim Name As String
    Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

    If Not Name = "Not Playing" Then
        Call SetPlayerAccess(FindPlayer(Name), 0)
        Call SendPlayerData(FindPlayer(Name))
        Call PlayerMsg(FindPlayer(Name), "You have had your administrator access revoked.", BrightRed)
    End If

End Sub

Abaixo adicione:

Código:

Sub SetAccess()
Dim Name As String
Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

If Not Name = "Not Playing" Then
Player(FindPlayer(Name)).Access = frmServer.scrlAccess.Value
Call SendPlayerData(FindPlayer(Name))
Call PlayerMsg(FindPlayer(Name), "You have been granted administrator access:" & frmServer.scrlAccess.Value, Cyan)
End If

End Sub

(Server Side Finalizado)

.::Recomendações::.
•Sempre faça um Backup para que quando aconteça algum erro,não tenha perigo perder seu projeto!

.::Error::.
•Qualquer error Contate-me, tentarei arruma-lo!

E Desculpe-me pelo error de português!

.::Créditos::.
•Gu1lh3rm3(Por Fazer o Tutorial)
•RenanR(Por postar na nova mmorpgbr e corrigir erros de português)