Mudando Acess Pelo Server

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Mudando Acess Pelo Server

    Mensagem por Thales12 em Sex Fev 17, 2012 4:38 pm

    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)

      Data/hora atual: Seg Dez 17, 2018 8:13 am