DevClub


Você não está conectado. Conecte-se ou registre-se

Photo

Servidor em manutenção

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

Marakgarin

avatar
Novato
Bem , o tutorial é simples porém pode ser útil.
Função: Quando o modo manutenção é ativado somente a Staff pode entrar.

Server~Side.


Crie um Checkbox .
Checkbox: 
Caption= Servidor em manutenção
name= chkGmon

Procure por
Código:
Private Sub HandleNewAccount
dentro procure por
Código:
  If Not isNameLegal(n) Then
                    Call AlertMsg(index, "Invalid name, only letters, numbers, spaces, and _ allowed in names.")
                    Exit Sub
                End If

abaixo adicione
Código:
  If frmServer.chkGmon.Value = YES Then
               If GetPlayerAccess(index) <= 0 Then
              
                     Call AlertMsg(index, "O servidor está em manutenção, somente a equipe está online, visite o site para mais informações.")
                        Exit Sub
                    End If
            End If

Procure por
Código:
Private Sub HandleLogin

dentro encontre
Código:
Call LoadPlayer(index, Name)
            ClearBank index
            LoadBank index, Name

Abaixo adicione
Código:
   If frmServer.chkGmon.Value = YES Then
               If GetPlayerAccess(index) <= 0 Then
              
                     Call AlertMsg(index, "O servidor está em manutenção, somente a equipe está online, visite o site para mais informações.")
                        Exit Sub
                    End If
            End If

Créditos: Lincoln

Math320

avatar
Novato
Bem Util mesmo eu que so sei faser um navegador com abas no vb acho isso que vc fas no vb e um milagre hsausahusahusuhsuahsahu mais bom tutorial +1

Convidado

avatar
Convidado
Simples é util parabéns +1 Crédito.

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Tópicos semelhantes

-

» Desligamento do servidor modificado

Permissões neste sub-fórum
Não podes responder a tópicos